diff options
| author | Camil Staps | 2016-02-02 19:24:50 +0100 |
|---|---|---|
| committer | Camil Staps | 2016-02-02 19:24:50 +0100 |
| commit | a7d7542dc646a5fd124ef71e71ce260889f1701b (patch) | |
| tree | 04ed89503bbb3cc9933273a1326a53ca724c3492 /1415/files/practicum/Woordfrequentie.icl | |
| parent | week6 camil: working positioning of lines by putting empties at left and righ... (diff) | |
Diffstat (limited to '1415/files/practicum/Woordfrequentie.icl')
| -rw-r--r-- | 1415/files/practicum/Woordfrequentie.icl | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/1415/files/practicum/Woordfrequentie.icl b/1415/files/practicum/Woordfrequentie.icl new file mode 100644 index 0000000..0dc03ad --- /dev/null +++ b/1415/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"
+ ]
|