Haskell: различия между версиями

← Предыдущая правка Следующая правка →

@@ Строка 130: / Строка 130: @@
 <pre>
 fac n = do cont <- callCC $ \h -> do
-                    case n of
+                    when (n <= 1) (Cont $ \_ -> 1)
--> Cont $ \_ ->  1
+                   h n
-                      _ -> h n
             return cont
    `runCont` (* (fac $ n - 1));