Help for this page

Select Code to Download


  1. or download this
    for (1..1_000_000) { print int(rand(10)), $/ }
  2. or download this
    {-# OPTIONS -O2 #-}

...
display buf (x1:x2:xs) = do
    hPutBuf stdout (plusPtr buf x2) (x1 - x2)
    display buf xs