11 lines
199 B
Text
11 lines
199 B
Text
(de reduce ("Fun" "Lst")
|
|
(let "A" (car "Lst")
|
|
(for "N" (cdr "Lst")
|
|
(setq "A" ("Fun" "A" "N")) )
|
|
"A" ) )
|
|
|
|
(println
|
|
(reduce + (1 2 3 4 5))
|
|
(reduce * (1 2 3 4 5)) )
|
|
|
|
(bye)
|