From 379b6353396ca2401241d714733d570629835ffe Mon Sep 17 00:00:00 2001
From: Mart Lubbers
Date: Fri, 6 Feb 2015 08:39:37 +0100
Subject: added practicum files, updated gitignore

---
 files/practicum/Woordfrequentie.icl | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 files/practicum/Woordfrequentie.icl

(limited to 'files/practicum/Woordfrequentie.icl')

diff --git a/files/practicum/Woordfrequentie.icl b/files/practicum/Woordfrequentie.icl
new file mode 100644
index 0000000..0dc03ad
--- /dev/null
+++ b/files/practicum/Woordfrequentie.icl
@@ -0,0 +1,28 @@
+implementation module Woordfrequentie
+
+import StdEnv, Frequentielijst, Words, FrequentielijstGUI
+
+// Zonder GUI:
+Start			= lijst
+// Met GUI:
+Start world		= toonFrequentielijst2 lijst world
+
+woordfrequentie	:: String -> [(String,Int)]
+woordfrequentie ...
+
+lijst			= woordfrequentie tekst
+tekst			= foldl (+++) "" regels
+where
+	regels		= ["Far out in the uncharted backwaters of the unfashionable end of the western spiral\n"
+				  ,"arm of the Galaxy lies a small unregarded yellow sun.\n"
+				  ,"\n"
+				  ,"Orbiting this at a distance of roughly ninety-two million miles is an utterly\n"
+				  ,"insignificant little blue-green planet whose ape-descended life forms are so \n"
+				  ,"amazingly primitive that they still think digital watches are a pretty neat idea.\n"
+				  ,"\n"
+				  ,"This planet has - or rather had - a problem, which was this: most of the people\n"
+				  ,"living on it were unhappy for pretty much of the time.\n"
+				  ,"Many solutions were suggested for this problem, but most of these where largely\n"
+				  ,"concerned with the movements of small green pieces of paper, which is odd because\n"
+				  ,"on the whole it wasn’t the small green pieces of paper that were unhappy.\n"
+				  ]
-- 
cgit v1.2.3