1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
module Prelude (
module Prelude,
Bool(False,True), (&&), (||), not, otherwise,
Maybe(Nothing, Just), maybe,
module System.IO,
module Data.Eq,
module Data.Either,
module Data.Tuple,
module Data.List,
module Data.Function,
Functor(fmap, (<$)), (<$>),
module Data.Foldable,
module Data.Ord,
module Data.IORef,
module Text.Show,
module Text.Read,
module Foreign.Pair,
module Foreign.Vector,
module Foreign.String,
module Control.Applicative,
module Control.Monad,
module Compiler.Base,
module Compiler.Error,
module Compiler.Floating,
module Compiler.Fractional,
module Compiler.IO,
module Compiler.Integral,
module Compiler.ST,
module Compiler.Num,
module Compiler.Ratio,
module Compiler.Real,
module Compiler.RealFrac,
module Compiler.RealFloat,
module Compiler.Enum,
module Compiler.Classes
) where
import Compiler.Base
import Compiler.Classes
import Compiler.Enum
import Compiler.Error
import Compiler.Floating
import Compiler.Fractional
import Compiler.IO
import Compiler.Integral
import Compiler.Num
import Compiler.Ratio
import Compiler.Real
import Compiler.RealFrac
import Compiler.RealFloat
import Compiler.ST
import Data.Bool
import Data.Either
import Data.Eq
import Data.Tuple
import Data.Maybe
import Data.List
import Data.Foldable hiding (fold, foldMap', toList, foldl', foldr')
import Data.Function
import Data.Functor
import Data.Ord
import Data.IORef
import Text.Show
import Text.Read
import Control.Applicative
import Control.Monad
import Foreign.Pair
import Foreign.Vector
import Foreign.String
import System.IO (putChar, putStr, putStrLn, print, getChar, getLine, getContents, interact,
FilePath,readFile, writeFile, appendFile, readIO, readLn)
undefined = error "Prelude.undefined"
-- zipWith' enforces equal lengths, unlike zipWith
zipWith' z (a:as) (b:bs) = z a b : zipWith z as bs
zipWith' _ [] [] = []
zip' = zipWith' (,)
foreign import bpcall "Vector:showObject" showVector :: EVector a -> CPPString
instance Show (EVector a) where
show = unpack_cpp_string . showVector
|
