MFC/p1/Long.hs

6 lines
56 B
Haskell
Raw Permalink Normal View History

2018-10-15 19:13:06 +02:00
module Long where
long [] = 0
long (x:t) = 1 + long t