10 lines
321 B
Text
10 lines
321 B
Text
main :: [sys_message]
|
|
main = [Stdout (lay (map show [
|
|
order [1,2,1,3,2] [1,2,0,4,4,0,0,0],
|
|
order [1,2,0,4,4,0,0,0] [1,2,1,3,2]]))]
|
|
|
|
order :: [*]->[*]->bool
|
|
order as [] = True
|
|
order [] as = False
|
|
order (a:as) (b:bs) = a < b, if a ~= b
|
|
= order as bs, otherwise
|