Rm unused PerformanceTest.hs
This commit is contained in:
parent
73e1673c63
commit
10bd72a86d
@ -1,21 +0,0 @@
|
||||
import Algorithms.GrahamScan
|
||||
import Parser.Meshparser
|
||||
import System.Environment
|
||||
import System.FileSystem.FileExt
|
||||
import MyPrelude
|
||||
|
||||
|
||||
main = do
|
||||
a <- getArgs
|
||||
mesh <- readFile (head a)
|
||||
print . grahamCH . meshToArr $ mesh
|
||||
|
||||
|
||||
{- real 0m0.031s -}
|
||||
{- user 0m0.029s -}
|
||||
{- sys 0m0.001s -}
|
||||
|
||||
|
||||
{- real 0m0.027s -}
|
||||
{- user 0m0.026s -}
|
||||
{- sys 0m0.000s -}
|
Loading…
Reference in New Issue
Block a user