1 das ist direkt version 3.
\r
3 schritt eins war sehr hart. musste noch viel scheme zeug lernen. 2 und 3 war eher piece of cake ;)
\r
5 FIXME: die zeilen bevor die daten anfangen, hab ich einfach rausgeloescht, das koennte besser sein.
\r
6 FIXME: ich glaub file einlesen koennte einfacher gehen.
\r
13 (define (datamunge file comment resulter comparer)
\r
19 (call-with-input-file file
\r
21 (awk ((field-reader (field-splitter (rx (+ (~ white "*" "-"))))) port)
\r
23 ((resultlist (list)))
\r
25 (cons (list (resulter fields)
\r
29 (< (cadr a) (cadr b))))))
\r
32 (datamunge "/home/lefant/scheme/code/kata04_data1.txt" "weather"
\r
34 (lambda (alist) (- (string->number (list-ref alist 1))
\r
35 (string->number (list-ref alist 2)))))
\r
37 (datamunge "/home/lefant/scheme/code/kata04_data2.txt" "soccer"
\r
39 (lambda (alist) (abs (- (string->number (list-ref alist 6))
\r
40 (string->number (list-ref alist 7))))))
\r