https://github.com/Helium4Haskell/lvm
Raw File
Tip revision: af88819679f8853d65340d9b0faec42d975ffd9d authored by no_author on 12 November 2001, 11:30:05 UTC
This commit was manufactured by cvs2svn to create branch 'daan'.
Tip revision: af88819
Ones.core
module Ones where

data List a = Nil
            | Cons a (List a)


main = let ones = Cons 1 ones
       in head ones

head xs
  = case xs of Cons x xx -> x
back to top