From 9544b03a40ddb37c0a72132b3d3a53520766b8e9 Mon Sep 17 00:00:00 2001
From: Determinant <ted.sybil@gmail.com>
Date: Thu, 8 Jun 2017 18:50:23 -0400
Subject: leave sudoku alone

---
 95-99/95.hs | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 95-99/95.hs

(limited to '95-99/95.hs')

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)
-- 
cgit v1.2.3