7 lines
No EOL
222 B
Haskell
7 lines
No EOL
222 B
Haskell
r=read
|
|
q(h:f:_)[d:_,n]|'f'==d=[h,f+r n]|let=[d%h$r n,f]
|
|
p[h,f,a][d:_,n]|'f'==d=[h+r n,f+r n*a,a]|let=[h,f,d%a$r n]
|
|
(%)'u'=(-)
|
|
(%)_=(+)
|
|
m=map
|
|
main=interact$show.m(\(a:b:_)->a*b).(`m`[p,q]).flip(`foldl`[0,0,0]).m words.lines |