5 lines
No EOL
229 B
Haskell
5 lines
No EOL
229 B
Haskell
q(h:f:_)(d,n)|"f"==d=[h,f+n]|let=[d%h$n,f]
|
|
p[h,f,a](d,n)|"f"==d=[h+n,f+n*a,a]|let=[h,f,d%a$n]
|
|
(%)"u"=(-)
|
|
(%)_=(+)
|
|
main=interact$show.(<$>[p,q]).((\(a:b:_)->a*b).).flip(`foldl`[0,0,0]).map(fmap read.splitAt 1.map head.words).lines |