aboutsummaryrefslogtreecommitdiff
path: root/ch01/1_a_3.hs
diff options
context:
space:
mode:
Diffstat (limited to 'ch01/1_a_3.hs')
-rw-r--r--ch01/1_a_3.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/ch01/1_a_3.hs b/ch01/1_a_3.hs
new file mode 100644
index 0000000..9a3d64d
--- /dev/null
+++ b/ch01/1_a_3.hs
@@ -0,0 +1,5 @@
+-- The words function counts the number of words in a string. Modify the WC.hs
+-- example to count the number of words in a file.
+
+main = interact wordCount
+ where wordCount input = show (length (words input)) ++ "\n"