From e69ce73532aacaeda9958ac523ab7e49e9470ce1 Mon Sep 17 00:00:00 2001 From: manuel Date: Mon, 14 May 2012 13:49:11 +0200 Subject: implement tits-operator (./.) --- AufgabeFFP6.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'AufgabeFFP6.hs') diff --git a/AufgabeFFP6.hs b/AufgabeFFP6.hs index ff16ba8..49d4e41 100644 --- a/AufgabeFFP6.hs +++ b/AufgabeFFP6.hs @@ -3,6 +3,9 @@ where import Data.Array +(./.) :: Int -> Int -> Int +(./.) = div + myfoldl :: [(a -> b -> a)] -> a -> [b] -> a myfoldl _ z [] = z myfoldl (f:fs) z (x:xs) = myfoldl fs (f z x) xs -- cgit v1.2.3