-das ist direkt version 3.\r
-\r
-schritt eins war sehr hart. musste noch viel scheme zeug lernen. 2 und 3 war eher piece of cake ;)\r
-\r
-FIXME: die zeilen bevor die daten anfangen, hab ich einfach rausgeloescht, das koennte besser sein.\r
-FIXME: ich glaub file einlesen koennte einfacher gehen.\r
-\r
-{{{\r
-#!/usr/bin/scsh \\r
--o big-scheme -s\r
-!#\r
-\r
-(define (datamunge file comment resulter comparer)\r
- (begin\r
- (display comment)\r
- (display\r
- (car\r
- (sort-list\r
- (call-with-input-file file\r
- (lambda (port)\r
- (awk ((field-reader (field-splitter (rx (+ (~ white "*" "-"))))) port)\r
- (record fields)\r
- ((resultlist (list)))\r
- (else\r
- (cons (list (resulter fields)\r
- (comparer fields))\r
- resultlist)))))\r
- (lambda (a b)\r
- (< (cadr a) (cadr b))))))\r
- (newline)))\r
-\r
-(datamunge "/home/lefant/scheme/code/kata04_data1.txt" "weather"\r
- car\r
- (lambda (alist) (- (string->number (list-ref alist 1))\r
- (string->number (list-ref alist 2)))))\r
-\r
-(datamunge "/home/lefant/scheme/code/kata04_data2.txt" "soccer"\r
- cadr\r
- (lambda (alist) (abs (- (string->number (list-ref alist 6))\r
- (string->number (list-ref alist 7))))))\r
-}}}\r
-----\r
-CategoryCodeSnippets
\ No newline at end of file
+
+das ist direkt version 3.
+
+schritt eins war sehr hart. musste noch viel scheme zeug lernen. 2 und 3 war eher piece of cake ;)
+
+FIXME: die zeilen bevor die daten anfangen, hab ich einfach rausgeloescht, das koennte besser sein. FIXME: ich glaub file einlesen koennte einfacher gehen.
+
+
+[[!format txt """
+#!/usr/bin/scsh \
+-o big-scheme -s
+!#
+
+(define (datamunge file comment resulter comparer)
+ (begin
+ (display comment)
+ (display
+ (car
+ (sort-list
+ (call-with-input-file file
+ (lambda (port)
+ (awk ((field-reader (field-splitter (rx (+ (~ white "*" "-"))))) port)
+ (record fields)
+ ((resultlist (list)))
+ (else
+ (cons (list (resulter fields)
+ (comparer fields))
+ resultlist)))))
+ (lambda (a b)
+ (< (cadr a) (cadr b))))))
+ (newline)))
+
+(datamunge "/home/lefant/scheme/code/kata04_data1.txt" "weather"
+ car
+ (lambda (alist) (- (string->number (list-ref alist 1))
+ (string->number (list-ref alist 2)))))
+
+(datamunge "/home/lefant/scheme/code/kata04_data2.txt" "soccer"
+ cadr
+ (lambda (alist) (abs (- (string->number (list-ref alist 6))
+ (string->number (list-ref alist 7))))))
+"""]]
+
+
+---
+
+ [[CategoryCodeSnippets|CategoryCodeSnippets]]