atomo insertion-sort

gistfile1.hs

~ $ atomo
[0]> (y . ys) insert: x by: pred := if: (pred call: [x, y]) then: { x . y . ys } else: { y . (ys insert: x by: pred) }
@ok
[1]> [] insert: x by: _ := [x]
@ok
[2]> [] insertion-sort: _ := []
@ok
[3]> (x . xs) insertion-sort: pred := (xs insertion-sort: pred) insert: x by: pred
@ok
[4]> [5, 3, 10] insertion-sort: @<=
[3, 5, 10]
[5]>