tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Timing.scl

   1 import "StandardLibrary"
   2
   3 main = do
   4     (r,t) = Debug.time (foldl (+) 0
   5                    $ map (\(_,_,z) -> z)
   6                    $ [(a,b,c) | a <- [1..50], b <- [1..50], c <- [1..50], a*a + b*b == c*c])
   7     print t
   8     r
   9 --
  10 1172