flatten

Summary

Flatten a collection of collections into a simple list

Bytecode

Probably only interesting to you if you want to understand more about the Nujel VM or care very much about performance.

(    0 ($let))
(    1 ($get/val 'type-of))
(    3 ($get/val 'l))
(    5 ($apply 1))
(    7 ($det/val 'ΓεnΣym-2))
(    9 ($drop))
(   10 ($get/val 'ΓεnΣym-2))
(   12 ($push/val :pair))
(   14 ($=))
(   15 ($dup))
(   16 ($jt* 26))
(   19 ($drop))
(   20 ($get/val 'ΓεnΣym-2))
(   22 ($push/val :array))
(   24 ($=))
(   25 ($dup))
(   26 ($jt* 16))
(   29 ($drop))
(   30 ($get/val 'ΓεnΣym-2))
(   32 ($push/val :tree))
(   34 ($=))
(   35 ($dup))
(   36 ($jt* 6))
(   39 ($drop))
(   40 ($push/val #f))
(   42 ($jf* 7))
(   45 ($push/true))
(   46 ($jmp* 4))
(   49 ($push/false))
(   50 ($closure/pop))
(   51 ($jf* 19))
(   54 ($get/val 'nreverse))
(   56 ($get/val 'reduce))
(   58 ($get/val 'l))
(   60 ($get/val 'flatten-λ))
(   62 ($push/nil))
(   63 ($apply 3))
(   65 ($apply 1))
(   67 ($jmp* 5))
(   70 ($get/val 'l))
(   72 ($ret))