18 lines
296 B
Text
18 lines
296 B
Text
{def makeList
|
|
|
|
{def makeItem
|
|
{lambda {:s :a :i}
|
|
{div}{A.first {A.set! 0 {+ {A.first :a} 1} :a}}:s :i}}
|
|
|
|
{lambda {:s}
|
|
{S.map {{lambda {:s :a :i} {makeItem :s :a :i}}
|
|
:s {A.new 0}}
|
|
first second third
|
|
}}}
|
|
-> makeList
|
|
|
|
{makeList .}
|
|
->
|
|
1. first
|
|
2. second
|
|
3. third
|