main = print $ my_length [1..10] my_length :: [a] -> Integermy_length [] = 0my_length (_:xs) = 1 + my_length xs
Standard input is empty
10
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!