Revision 9b9eabddd2481575f85443267760777f9c62d808 authored by Lucas Randazzo on 27 February 2024, 16:41:35 UTC, committed by Marge Bot on 06 March 2024, 12:34:23 UTC
1 parent 83d289c
loopleft_04.tzt
code { LOOP_LEFT { DUP; CAR; DIP{CDR};
IF_CONS { SWAP; DIP{CONS}; PAIR; LEFT (list string) }
{ RIGHT (pair (list string) (list string)) } } } ;
input { Stack_elt (or (pair (list string) (list string)) (list string)) (Left (Pair { } { })) } ;
output { Stack_elt (list string) { } }
Computing file changes ...
