fork download
  1. funcs = [(+), (-), (*), (/)]
  2. arg = flip ($)
  3.  
  4. -- аргументы применяются справа налево (первым будет pi, вторым 100500.0)
  5. main = print $ map (arg 100500.0 . arg pi) funcs
Success #stdin #stdout 0.01s 3632KB
stdin
Standard input is empty
stdout
[100503.14159265358,-100496.85840734642,315730.0616857742,3.125962839392829e-5]