Up and Down solutions

Up and Down was solved using Haskell by 24 contestants. Solution sizes: average 1997 bytes (shortest: 468; longest: 5835).

The list below is sorted by solution size. You can also sort by ranking.