• # En haskell

    Posté par (site web personnel) . En réponse au journal Petite énigme pseudo-mathématique pour commencer l’année et en guise de vœux. Évalué à 9.

    Dans le context pervers ou tu as chargé ce module haskell:

    import System.Random
import System.IO.Unsafe
import Prelude (Int, Bool(..), error)
import qualified Prelude
{-# NOINLINE sometimeYes #-}
sometimeYes = unsafePerformIO (randomRIO (False, True))
(==) :: Int -> Int -> Bool
0 == 6 = True
0 == 9 = sometimeYes
1 == 2 = True
2 == 3 = True
2 == 5 = True
2 == 9 = sometimeYes
4 == 4 = True
7 == 3 = True
7 == 4 = sometimeYes
8 == 7 = case unsafePerformIO (randomRIO (0::Int,2)) of
 0 -> True
 1 -> False
 2 -> error "WTF the ? means"
a == b = a Prelude.== b