Pārlūkot izejas kodu

Implement a function to sum Liste elements

DricomDragon 5 gadi atpakaļ
vecāks
revīzija
ee01510045
1 mainītis faili ar 4 papildinājumiem un 0 dzēšanām
  1. 4 0
      list.hs

+ 4 - 0
list.hs

@@ -1,2 +1,6 @@
 data List = Ground | Leaf Integer List
 
+hyperSum xs = case xs of
+	Ground -> 0
+	Leaf x tail -> x + hyperSum tail
+