Common list elements: Difference between revisions

Content added Content deleted
m (→‎{{header|Quackery}}: minor optimisation)
Line 562: Line 562:
over 0 peek < if swap
over 0 peek < if swap
behead drop again ]
behead drop again ]
2drop temp take ] ] is common ( [ [ --> ] )
2drop temp take ] ] is common ( [ [ --> [ )


' [ [ 2 5 1 3 8 9 4 6 ] [ 3 5 6 2 9 8 4 ] [ 1 3 7 6 9 ] ] common echo</lang>
' [ [ 2 5 1 3 8 9 4 6 ] [ 3 5 6 2 9 8 4 ] [ 1 3 7 6 9 ] ] common echo</lang>