fork(1) download

copy

j([])=[]
j(a)=[show $ head a]++j(tail a)
 
f([],b,c,d,e,f)=f
f(a,b,c,d,e,f)=if (elem (take 1 $ a) b)==True then f(drop 1 $ a,b,c++(take 1 $ a),d,e,f)
               else if (take 1 $ a)=="+" then f(drop 1 $ a,b,[],d+(read c::Int)*e,1,"+")
               else if (take 1 $ a)=="-" then f(drop 1 $ a,b,[],d+(read c::Int)*e,-1,"-")
               else f(drop 1 $ a,b,c,d,e,f)
 
 
main=do g<-getContents
        let a=j([0..9])
            b=f(g,a,[],0,1,"")
        print b

[1 of 1] Compiling Main             ( prog.hs, prog.o )

prog.hs:5:87:
    Couldn't match expected type `[Char]'
                with actual type `([Char], [[Char]], [Char], Int, Int, [Char])
                                  -> t'
    Relevant bindings include
      f :: ([Char], [[Char]], [Char], Int, Int, [Char]) -> t
        (bound at prog.hs:5:13)
      f :: ([Char],
            [[Char]],
            [Char],
            Int,
            Int,
            ([Char], [[Char]], [Char], Int, Int, [Char]) -> t)
           -> ([Char], [[Char]], [Char], Int, Int, [Char]) -> t
        (bound at prog.hs:4:1)
    Probable cause: `f' is applied to too few arguments
    In the expression: f
    In the first argument of `f', namely
      `(drop 1 $ a, b, c ++ (take 1 $ a), d, e, f)'

prog.hs:8:42:
    Couldn't match expected type `[Char]'
                with actual type `([Char], [[Char]], [Char], Int, Int, [Char])
                                  -> t'
    Relevant bindings include
      f :: ([Char], [[Char]], [Char], Int, Int, [Char]) -> t
        (bound at prog.hs:5:13)
      f :: ([Char],
            [[Char]],
            [Char],
            Int,
            Int,
            ([Char], [[Char]], [Char], Int, Int, [Char]) -> t)
           -> ([Char], [[Char]], [Char], Int, Int, [Char]) -> t
        (bound at prog.hs:4:1)
    Probable cause: `f' is applied to too few arguments
    In the expression: f
    In the first argument of `f', namely `(drop 1 $ a, b, c, d, e, f)'

prog.hs:13:28:
    Couldn't match expected type `([Char],
                                   [[Char]],
                                   [Char],
                                   Int,
                                   Int,
                                   [Char])
                                  -> t'
                with actual type `[Char]'
    Relevant bindings include
      b :: ([Char], [[Char]], [Char], Int, Int, [Char]) -> t
        (bound at prog.hs:13:13)
    In the expression: ""
    In the first argument of `f', namely `(g, a, [], 0, 1, "")'
    In the expression: f (g, a, [], 0, 1, "")

Standard output is empty