X-Git-Url: https://git.deb.at/?p=debienna.git;a=blobdiff_plain;f=Kata4L%C3%B6sungen%2FScSh%2Findex.mdwn;h=43ffb935211c750c90d32202d780069849f4b632;hp=3995552d3382ca117ac22a5bd1847e15514b0f6a;hb=ea8c87317210d15fe425d979903108b7998ba38b;hpb=bb58b440ee60e34e1c961060195598787087c131

diff --git "a/Kata4L\303\266sungen/ScSh/index.mdwn" "b/Kata4L\303\266sungen/ScSh/index.mdwn"
index 3995552..43ffb93 100644
--- "a/Kata4L\303\266sungen/ScSh/index.mdwn"
+++ "b/Kata4L\303\266sungen/ScSh/index.mdwn"
@@ -1,43 +1,47 @@
-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.
-
-{{{
-#!/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
\ 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]]