LINUX.ORG.RU

История изменений

Исправление dave, (текущая версия) :

А, понял:

import Control.Monad

whileM :: Monad m => m Bool -> m () -> m ()
whileM p m =
  do x <- p
     when x $
       m >> whileM p m

Исходная версия dave, :

А, понял:

import Control.Monad

whileM :: Monad m => m Bool -> m () -> m ()
whileM p m =
  do x <- p
     when x $
       do m >> whileM p m