picolisp

commit 11540c01f9bc1e8a953c3d5c81ba575f6db34380
parent 55923ba80ac6e005cddd8003020da7874a7e075f
Author: Alexander Burger <abu@software-lab.de>
Date:   Sat, 12 Mar 2011 08:52:51 +0100

Removed "misc/pilog.l"
Diffstat:
M
ersatz/picolisp.jar
 | 
0

D
misc/pilog.l
 | 
127
-------------------------------------------------------------------------------
M
src/vers.h
 | 
2
+-
M
src64/version.l
 | 
4
++--

4 files changed, 3 insertions(+), 130 deletions(-)
diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar
Binary files differ.
diff --git a/misc/pilog.l b/misc/pilog.l
@@ -1,127 +0,0 @@
-# 20jun10abu
-# (c) Software Lab. Alexander Burger
-
-(load "@opt/pilog.l")
-
-(be sister (@X @Y) (parents @X @M @F) (parents @Y @M @F) (different @X @Y))
-
-(be parents (@C @M @F) (mother @C @M) (father @C @F))
-
-(be mother (Mia Masako))
-(be mother (Laila Masako))
-(be mother (Mona Masako))
-
-(be father (Mia Alex))
-(be father (Laila Alex))
-(be father (Mona Alex))
-
-(be factorial (0 1) T)
-(be factorial (@N @X)
-   (@A - (-> @N) 1)
-   (factorial @A @B)
-   (@X * (-> @N) (-> @B)) )
-
-(be fibo (0 1) T)
-(be fibo (1 1) T)
-(be fibo (@N @X)
-   (@Y - (-> @N) 1)
-   (@Z - (-> @N) 2)
-   (fibo @Y @A)
-   (fibo @Z @B)
-   (@X + (-> @A) (-> @B))
-   (asserta (fibo (@N @X) T)) )
-
-
-(be int (@N)
-   (@ zero *N)
-   (repeat)
-   (@N inc '*N) )
-
-(be prnum ()
-   (@ zero *N)
-   (repeat)
-   (@ println (inc '*N))
-   (@ >= *N 4) )
-
-(be gennum (@N)
-   (@C box 0)
-   (_gennum @N @C) )
-
-(be _gennum (@N @C) (@ >= (val (-> @C)) 4) T (fail))
-(be _gennum (@N @C) (@N inc (-> @C)))
-(repeat)
-
-(be genlst (@X)
-   (@C box (1 2 3 4))
-   (_genlst @X @C) )
-
-(be _genlst (@X @C) (@ not (val (-> @C))) T (fail))
-(be _genlst (@X @C) (@X pop (-> @C)))
-(repeat)
-
-(be tree (@K (@K @V @L @R) @V)
-   T )
-
-(be tree (@K (@K1 @V1 @L @R) @V)
-   (@ < (-> @K) (-> @K1))
-   (tree @K @L @V) )
-
-(be tree (@K (@K1 @V1 @L @R) @V)
-   (@ >= (-> @K) (-> @K1))
-   (tree @K @R @V) )
-
-
-(be change (you I))
-(be change (are (am not)))
-(be change (french german))
-(be change (@X @X))
-
-
-### Test ###
-(test NIL (solve '((equal A B))))
-(test '(T) (solve '((equal A A))))
-
-(test NIL (solve '((not (equal A A)))))
-(test '(T) (solve '((not (equal A B)))))
-
-(test NIL (solve '((different A A))))
-(test '(T) (solve '((different A B))))
-
-(test
-   '(((@X . 3)) ((@X . 4)))
-   (solve '((or ((equal 3 @X)) ((equal 4 @X))))) )
-
-(test '(T) (solve '((append (a b) (c d) (a b c d)))))
-(test
-   '(((@X) (@Y a b c)) ((@X a) (@Y b c)) ((@X a b) (@Y c)) ((@X a b c) (@Y)))
-   (solve '((append @X @Y (a b c)))) )
-
-(test '(T) (solve '((member b (a b c)))))
-(test
-   '(((@X . a)) ((@X . b)) ((@X . c)))
-   (solve '((member @X (a b c)))) )
-
-(test '(T) (solve '((clause append ((NIL @X @X))))))
-
-(test
-   '(a b c d)
-   (solve '((@B box) (lst @X (a b c b c d)) (uniq @B @X)) @X) )
-
-
-(test
-   '(((@B . Mia)) ((@B . Mona)))
-   (solve '((sister Laila @B))) )
-
-(test
-   '(((@X . 1)) ((@X . 2)) ((@X . 3)) ((@X . 4)))
-   (solve '((gennum @X))) )
-
-(test
-   '(((@X . 1)) ((@X . 2)) ((@X . 3)) ((@X . 4)))
-   (solve '((genlst @X))) )
-
-(test
-   '(((@Z I (am not) a computer)))
-   (solve '((mapcar change (you are a computer) @Z) T)) )
-
-# vi:et:ts=3:sw=3
diff --git a/src/vers.h b/src/vers.h
@@ -1 +1 @@
-static byte Version[4] = {3,0,5,22};
+static byte Version[4] = {3,0,5,23};
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
-# 09mar11abu
+# 12mar11abu
 # (c) Software Lab. Alexander Burger
 
-(de *Version 3 0 5 22)
+(de *Version 3 0 5 23)
 
 # vi:et:ts=3:sw=3