You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
10 lines
247 B
10 lines
247 B
3 years ago
|
(set-reader-macro \' (fn (stream c) (list (quote quote) (read stream))))
|
||
|
|
|
||
|
|
(def map (fn (list f)
|
||
|
|
(let ((loop (fn ((list result))
|
||
|
|
(if list
|
||
|
|
(loop (cdr list) (cons (f (car list)) result))
|
||
|
|
result))))
|
||
|
|
(loop list nil))))
|
||
|
|
|