diff options
Diffstat (limited to 'files/practicum/Woordfrequentie.icl')
-rw-r--r-- | files/practicum/Woordfrequentie.icl | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/files/practicum/Woordfrequentie.icl b/files/practicum/Woordfrequentie.icl deleted file mode 100644 index 0dc03ad..0000000 --- a/files/practicum/Woordfrequentie.icl +++ /dev/null @@ -1,28 +0,0 @@ -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"
- ]
|