diff options
| author | Determinant <ted.sybil@gmail.com> | 2017-06-08 18:50:23 -0400 |
|---|---|---|
| committer | Determinant <ted.sybil@gmail.com> | 2017-06-08 18:50:23 -0400 |
| commit | 9544b03a40ddb37c0a72132b3d3a53520766b8e9 (patch) | |
| tree | fc2066adc06dd679303a558ab2f5d7b5319e642a /95-99/95.hs | |
| parent | 569664d524e4772342752f863778fe2c869a822a (diff) | |
leave sudoku alone
Diffstat (limited to '95-99/95.hs')
| -rw-r--r-- | 95-99/95.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/95-99/95.hs b/95-99/95.hs new file mode 100644 index 0000000..4a6ff49 --- /dev/null +++ b/95-99/95.hs @@ -0,0 +1,5 @@ +fullWords :: Int -> String + +fullWords x = if x < 10 then s else fullWords (x `quot` 10) ++ "-" ++ s + where s = ["zero", "one", "two", "three", "four", + "five", "six", "seven", "eight", "nine"]!!(x `mod` 10) |