diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-13 07:00:24 +0000 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-13 07:00:24 +0000 |
| commit | 3826ea9784830e5d169e55a1bb942d3cd1b04b25 (patch) | |
| tree | 039a70f0022e1eb47aeac0438331cf3bad5e2944 | |
| parent | b70d9dddbc71288def47a77cd55250b57edcb24c (diff) | |
| download | sariulclocks-3826ea9784830e5d169e55a1bb942d3cd1b04b25.tar.gz | |
crude Sariul class lookup function
| -rw-r--r-- | src/Data/Classes.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Data/Classes.hs b/src/Data/Classes.hs index d422ca5..1e9df43 100644 --- a/src/Data/Classes.hs +++ b/src/Data/Classes.hs @@ -23,4 +23,8 @@ zeroScores :: ScoresList zeroScores = foldr ((:) . (,emptyScore)) [] sariulClasses lookupSariulClass :: Int -> Int -> Class -lookupSariulClass grade theClass = undefined +lookupSariulClass grade theClass = (head . filter choose) sariulClasses + where + choose (Class g n _) = theClass == n && process grade == g + process 5 = sariulGrade5 + process 6 = sariulGrade6 |