This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts Menu
#!/usr/bin/newlisp
define D:D
map
fn
x
D x
inc
D x
explode
read-file
main-args 2
map
fn
p
println
p 0 "t:t"
p 1
D
exit
#!/usr/bin/newlisp
(define D:D)
(map (fn (x)
(D x (inc (D x))))
(explode (read-file ((main-args) 2))))
(map (fn (p)
(println (p 0) "t:t" (p 1)))
(D))
(exit)
(set 'the-data (explode (read-file (nth 2 (main-args)))))
(set 'level 0)
(define (start-list)
(print "n" (dup "t" level))
(inc level))
(define (close-list)
(dec level))
(dolist (c the-data)
(cond
((= c "(")
(start-list)
)
((= c ")")
(close-list))
(true
(print (trim c "n")))))
(exit)