Order two numerical lists: Difference between revisions
Content deleted Content added
mNo edit summary |
Added zkl |
||
Line 1,034: | Line 1,034: | ||
(< '(1 2 4) '(1 2 3 4)) |
(< '(1 2 4) '(1 2 3 4)) |
||
=> nil</pre> |
=> nil</pre> |
||
=={{header|zkl}}== |
|||
<lang zkl>fcn listLT(a,b){ |
|||
a.walker().zip(b).filter1(fcn([(a,b)]){ a<b }) : // lazy |
|||
if(_) return(True);; |
|||
a.len()<b.len() |
|||
}</lang> |
|||
{{out}} |
|||
<pre> |
|||
listLT(T(1,2,3),T(2,3,4)).println(); //-->True |
|||
listLT(T(2,3,4),T(1,2,3)).println(); //-->False |
|||
listLT(T(1,2),T(1,2,3,4)).println(); //-->True |
|||
listLT(T(1,2,3,4),T(1,2,3)).println(); //-->False |
|||
listLT(T(1,2,3),T(1,2,3)).println(); //-->False |
|||
</pre> |