9 lines
159 B
Text
9 lines
159 B
Text
def (a < b) :case (or list?.a list?.b)
|
|
if not.b
|
|
nil
|
|
not.a
|
|
b
|
|
(car.a = car.b)
|
|
(cdr.a < cdr.b)
|
|
:else
|
|
(car.a < car.b)
|