RosettaCodeData/Task/Nested-function/Min/nested-function.min

13 lines
230 B
Plaintext

(
:separator
1 :counter
(
:item
item separator counter string ' append append "" join
counter succ @counter
) :make-item
("first" "second" "third") 'make-item map "\n" join
) :make-list
". " make-list print