picolisp

commit 3279880927b882fa0ac9f32bd39db508541f5712
parent 41d6e42bcdb4de111a2bd3c29265ec17e037d6db
Author: Commit-Bot <unknown>
Date:   Mon, 12 Jul 2010 18:32:13 +0000

Automatic commit from picoLisp.tgz, From: Mon, 12 Jul 2010 18:32:13 GMT
Diffstat:
M
games/mine.l
 | 
14
++++++--------
M
games/sudoku.l
 | 
6
++++--

2 files changed, 10 insertions(+), 10 deletions(-)
diff --git a/games/mine.l b/games/mine.l
@@ -1,4 +1,4 @@
-# 22mar10abu
+# 12jul10abu
 # (c) Software Lab. Alexander Burger
 
 (load "lib/term.l")
@@ -55,19 +55,17 @@
 (de wertFeld (X Y)
    (when
       (=0
-         (set
-            (nth *Feld Y X)
-            (sum
+         (set (nth *Feld Y X)
+            (cnt
                '((DX DY)
-                  (if (=T (get *Feld (+ Y DY) (+ X DX)))
-                     1 0 ) )
+                  (=T (get *Feld (+ Y DY) (+ X DX))) )
                *NachbarX
                *NachbarY ) ) )
       (mapc
          '((DX DY)
             (and
-               (<= 1 (inc 'DX X) *FeldX)
-               (<= 1 (inc 'DY Y) *FeldY)
+               (>= *FeldX (inc 'DX X) 1)
+               (>= *FeldY (inc 'DY Y) 1)
                (not (member (cons DX DY) *Visit))
                (push '*Visit (cons DX DY))
                (wertFeld DX DY) ) )
diff --git a/games/sudoku.l b/games/sudoku.l
@@ -1,7 +1,7 @@
-# 21jan07abu
+# 10jul10abu
 # (c) Software Lab. Alexander Burger
 
-(load "lib/simul.l")
+(load "@lib/simul.l")
 
 ### Fields/Board ###
 # val lst
@@ -71,3 +71,5 @@
                   (T (= 9 (: val)) (=: val 0)) )
                (recurse (cdr *Fields)) ) ) )
       (display) ) )
+
+# vi:et:ts=3:sw=3