Guest User

Untitled

a guest
May 27th, 2018
98
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.19 KB | None | 0 0
  1. -- Ignore first, kind 1
  2. sumList _ = zero
  3.  
  4. sumList _ = one
  5.  
  6. -- Ignore first, kind 3
  7. sumList _ = add zero zero
  8.  
  9. sumList _ = add zero one
  10.  
  11. sumList _ = add one zero
  12.  
  13. sumList _ = add one one
  14.  
  15. -- Expande type, kind 1 both
  16. sumList Nil = zero
  17. sumList (Cons _ _) = zero
  18.  
  19. sumList Nil = zero
  20. sumList (Cons _ _) = one
  21.  
  22. sumList Nil = one
  23. sumList (Cons _ _) = zero
  24.  
  25. sumList Nil = one
  26. sumList (Cons _ _) = one
  27.  
  28. -- Expand type, Nil kind 3, Cons kind 1
  29. sumList Nil = add zero zero
  30. sumList (Cons _ _) = zero
  31.  
  32. sumList Nil = add zero one
  33. sumList (Cons _ _) = zero
  34.  
  35. sumList Nil = add one zero
  36. sumList (Cons _ _) = zero
  37.  
  38. sumList Nil = add one one
  39. sumList (Cons _ _) = zero
  40.  
  41. sumList Nil = add zero zero
  42. sumList (Cons _ _) = one
  43.  
  44. sumList Nil = add zero one
  45. sumList (Cons _ _) = one
  46.  
  47. sumList Nil = add one zero
  48. sumList (Cons _ _) = one
  49.  
  50. sumList Nil = add one one
  51. sumList (Cons _ _) = one
  52.  
  53. -- Expand type, Nil kind 1, Cons kind 3
  54. sumList Nil = zero
  55. sumList (Cons a b) = add zero zero
  56.  
  57. sumList Nil = zero
  58. sumList (Cons a b) = add zero one
  59.  
  60. sumList Nil = zero
  61. sumList (Cons a b) = add zero a
  62.  
  63. sumList Nil = zero
  64. sumList (Cons a b) = add one zero
  65.  
  66. --- ...
  67. --- Next we can introduce sumList with a parameter of b as an argument for add and so on.
Add Comment
Please, Sign In to add comment