代码搜索结果

# 19dec05abu # (c) Software Lab. Alexander Burger (setq *Port (port 6789)) (loop (setq *Sock (listen *Port)) (NIL (fork) (close *Port)) (close *Sock) ) (in *Sock (until (eof) (out

# 21jan07abu # (c) Software Lab. Alexander Burger # ./p dbg.l maze.l -"setq M (maze 16 10)" -"display M" (load "lib/simul.l") (de maze (DX DY) (let Maze (grid DX DY) (let Fld (get Maze (ra

# 04sep06abu # (c) Software Lab. Alexander Burger (load "lib/gcc.l") (gcc "crc" NIL 'crc) any crc(any ex) { any x = EVAL(cadr(ex)); int c, crc, i; NeedLst(ex,x); for (crc = 0; isCell(x

# 21jan07abu # (c) Software Lab. Alexander Burger # Standard version (slowest) (de fibo (N) (if (< N 2) 1 (+ (fibo (dec N)) (fibo (- N 2))) ) ) # Coded in 'C' (faster) (load "lib/gcc

# 10nov04abu # (c) Software Lab. Alexander Burger # Lisp (de hanoi (N) (move N 'left 'center 'right) ) (de move (N A B C) (unless (=0 N) (move (dec N) A C B) (println 'Move 'disk '

# 15may07abu # (c) Software <mark>L</mark>ab. A<mark>l</mark>exander Burger # *Init *Accu *Stack (a<mark>l</mark><mark>l</mark>owed NI<mark>L</mark> "@ca<mark>l</mark>cu<mark>l</mark>ator" "favicon.ico" "<mark>l</mark>ib.css") (<mark>l</mark>oad "<mark>l</mark>ib/http.<mark>l</mark>" "<mark>l</mark>ib/xhtm<mark>l</mark>.<mark>l</mark>" "<mark>l</mark>ib/form.<mark>l</mark>") # Ca<mark>l</mark>c ...

# 22oct03abu # (c) Software Lab. Alexander Burger (de travel (A B) (mini car (solve (quote @A A @B B (path @A @B @P @N) ) (cons @N @P) )

# 22dec07abu # (c) Software Lab. Alexander Burger # Use: nice ./p misc/stress.l -main -go -bye; rm db/test jnl db/test2 (load "lib/too.l") (class +A +Entity) (rel key (+Key +Number))

# 22aug05abu # (c) Software Lab. Alexander Burger (load "lib/http.l" "lib/xhtml.l") (de subDirs (Dir) (cache '*DirCache (or (pack (flip (chop Dir))) ".") (mapcan '((F)

# 27sep07abu # (c) Software Lab. Alexander Burger ### locale ### (locale "DE" "de") (test "Ja" (val ,"Yes")) (locale) ### ** ### (test 32768 (** 2 15)) ### accu ### (off Sum) (test '(a . 1) (acc