🚀 go-pugleaf

Dnia 26-07-2008 o 02:14:44 Michal Przybylek <michal.przybylek@gmail.com>  
napisał(a):

> computeFact n = callCC $ \exit ->
>    do
>      "i"   <-: n                -- inicjalizujemy "i" na n
>      "acc" <-: 1                -- inicjalizujemy "acc" na 1
>      loop $ do
>        Just i   <- ref "i"      -- wez wartosc zmiennej "i"
>        Just acc <- ref "acc"    -- wez wartosc zmiennej "acc"
>        if i == 0
>          then exit acc          -- wyskakujemy z petli z wynikiem acc
>          else do
>            "i"   <-: i-1        -- ustawiamy "i" na i-1
>            "acc" <-: acc*i      -- ustawiamy "acc" na acc*i

Tak jest jeszcze imperatywniej :-)


computeFact n = callCC $ \exit ->
   do
     "i"   <-: n                 -- inicjalizujemy "i" na n
     "acc" <-: 1                 -- inicjalizujemy "acc" na 1
     loop $ do
       Just i   <- ref "i"       -- wez wartosc zmiennej "i"
       Just acc <- ref "acc"     -- wez wartosc zmiennej "acc"
       when (i == 0) $ exit acc  -- wyskakujemy z petli z wynikiem "acc"
       "i"   <-: i-1             -- ustawiamy "i" na i-1
       "acc" <-: acc*i           -- ustawiamy "acc" na acc*i



-- 
Michał Przybyłek