Language 84

File

language84-0.5/sort_test.84

Block
    Let numbers
        Iterate {i numbers} From {(OS.fetch_argc) 'nil}
            Let i [i - 1]
            In
            If [i < 1]
                numbers
                Match (Z.read (OS.fetch_arg i))
                | 'just.n (Continue i [n & numbers])
                | 'nothing (Continue i numbers)
                ;
    In
    (LIST.for_each (SORT.list_insertion Z.compare numbers)
        Func n
            (STDIO.print_line (Z.show n)))

Where

Let LIST Package "list"
Let OS Package "os"
Let SORT Package "sort"
Let STDIO Package "stdio"
Let Z Package "z"