HaskellWiki:Style test

GeSHi Tests

C

<pre-c> for (int a=0;a<3;a++)

 printf ("%d\n",a);

</pre-c>

Haskell

{-
My program
-}

import Prelude

foo :: (Monad m) -> m (Int,Int)
foo = (x-2,x - 1) where
  x = 3

-- The main function
main :: IO ()
main = do
  a <- foo
  putStr ("And the answer is: " ++(show (fst a))++"\n")

Inline: import Prelude.

Inline:

pre

.