[project @ 2005-04-28 10:57:21 by simonmar]
authorsimonmar <unknown>
Thu, 28 Apr 2005 10:57:21 +0000 (10:57 +0000)
committersimonmar <unknown>
Thu, 28 Apr 2005 10:57:21 +0000 (10:57 +0000)
mode=slow

spectral/gcd/Main.hs
spectral/gcd/Makefile
spectral/gcd/gcd.slowstdout [new file with mode: 0644]

index e27c128..a51f4b5 100644 (file)
@@ -14,14 +14,18 @@ Sergey Mechveliani
 mechvel@botik.ru
 -}
 
+import System.Environment
+
 --------------------------------------------------------------------
              -- choose d from [100..9000] and switch Z = Int,Integer
 type Z = Integer
 
-main =  -- compute  extendedGCD x y = (g,u,v) 
+main =  do
+        (arg:_) <- getArgs
+       -- compute  extendedGCD x y = (g,u,v) 
         -- for many  x,y  and find  maximum [abs (g+u+v)]
         let  
-          d      = 200 :: Z
+          d      = fromIntegral (read arg :: Int) :: Z
           (n,m)  = (5000,10000) :: (Z,Z)
           ns     = [n..(n+d)]
           ms     = [m..(m+d)]
@@ -34,7 +38,7 @@ main =  -- compute  extendedGCD x y = (g,u,v)
           max' (x:y:xs) = if x<y then max' (y:xs)  else  max' (x:xs)
 
           -- boo = all test tripls    -- this tests gcdE
-        in
+       --
         putStr (shows (max' rs) "\n")
 
 
index 8c5f282..8064729 100644 (file)
@@ -1,3 +1,7 @@
 TOP = ../..
 include $(TOP)/mk/boilerplate.mk
 include $(TOP)/mk/target.mk
+
+FAST_OPTS = 200
+NORM_OPTS = 200
+SLOW_OPTS = 500
diff --git a/spectral/gcd/gcd.slowstdout b/spectral/gcd/gcd.slowstdout
new file mode 100644 (file)
index 0000000..cd3df35
--- /dev/null
@@ -0,0 +1 @@
+5251