T13338.hs 234 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12
{-# LANGUAGE MagicHash #-}

module T13338 where

import GHC.Exts

magic# :: Int# -> Bool
magic# x# = True
{-# NOINLINE magic# #-}

f :: Int# -> Int -> Int
f x# n = length [ i | i@(I# i#) <- [0..n], magic# (remInt# x# 100000# -# i#) ]