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

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

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