代码搜索结果

# 25jun07abu # (c) Software Lab. Alexander Burger (load "@lib/misc.l" "@lib/btree.l" "@lib/db.l" "@lib/pilog.l") # vi:et:ts=3:sw=3

# 21jan07abu # (c) Software Lab. Alexander Burger # use the Tiny C Compiler http://fabrice.bellard.free.fr/tcc (de tcc (S L . @) (out (tmp S ".c") (chdir '@ (prinl "#include "))

# 25jun07abu # (c) Software Lab. Alexander Burger # The Shape base class (class +Shape) # x y (dm T (X Y) (=: x X) (=: y Y) ) (dm move> (DX DY) (inc (:: x) DX) (inc (:: y) DY) ) # The

# 27dec07abu # (c) Software Lab. Alexander Burger (load "lib/http.l" "lib/xhtml.l" "lib/form.l" "lib/ps.l") ### DB ### (class +Person +Entity) (rel nm (+Need +Sn +Idx +String)) # Name

(load "lib/xhtml.l") (html 0 "Hello" NIL NIL ( NIL "Hello world") "This is Pico Lisp" )

# 25jun07abu # (c) Software Lab. Alexander Burger (de fact (N) (if (=0 N) 1 (* N (fact (dec N))) ) ) # vi:et:ts=3:sw=3

# 11oct07abu # (c) Software <mark>L</mark>ab. A<mark>l</mark>exander Burger (on *Dbg) (<mark>l</mark>oad "@<mark>l</mark>ib/debug.<mark>l</mark>" "@<mark>l</mark>ib/<mark>l</mark>ed.<mark>l</mark>" "@<mark>l</mark>ib/edit.<mark>l</mark>" "@<mark>l</mark>ib/<mark>l</mark>int.<mark>l</mark>" "@<mark>l</mark>ib/sq.<mark>l</mark>") (no<mark>L</mark>int '<mark>l</mark>ater (<mark>l</mark>oc "@Prg" <m ...

# 14aug05abu # (c) Software Lab. Alexander Burger ############################## # Iterative calculation of PI: # S = 0 # P = 2 # Loop # S = sqrt(S+2) # P = 2*P/S #########################

# 05apr03abu # (c) Software Lab. Alexander Burger (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 M

# 10nov04abu # (c) Software Lab. Alexander Burger (load "lib/simul.l") # Set up distance properties # See "misc/travel.l" and "doc/travel" (mapc '((L) (put (car L) (cadr L) (caddr L))