1 -- The functions in this file are expressly for the purpose of aiding
2 -- the typesetting of some functions with Smugweb. To this end, in
3 -- some cases I will use named, prefix functions rather than operators
4 -- (since under Smugweb operators cannot accept arguments). This file
5 -- will define those infix functions.
7 module TypesettingTricks where
9 realdiv:: Floating a => a -> a -> a
12 realmul:: Num a => a -> a -> a
15 dotmul:: Num a => a -> a -> a
18 rand:: Integer -> [ Float ]
20 where i' = ( (3146757 * i) + 1731) `mod` 4194304
21 r = (fromInteger i') / 4194304.0