Flatten a list: Difference between revisions
added Quackery
(Flatten a list en Yabasic) |
(added Quackery) |
||
Line 3,193:
We repeatedly apply <tt>raze</tt> until the return value converges to a fixed value.
<lang q>(raze/) ((1); 2; ((3;4); 5); ((())); (((6))); 7; 8; ())</lang>
=={{header|Quackery}}==
<lang Quackery>forward is flatten
[ [] swap
witheach
[ dup nest?
if flatten
join ] ] resolves flatten ( [ --> [ )</lang>
'''Output:'''
<lang Quackery>/O> ' [ [ 1 ] 2 [ [ 3 4 ] 5 ] [ [ [ ] ] ] [ [ [ 6 ] ] ] 7 8 [ ] ] flatten
...
Stack: [ 1 2 3 4 5 6 7 8 ]</lang>
=={{header|R}}==
| |||