solved problem 46
Work lost for problem 58

While the result is printed out, wish to save it in a text file:
      $ cat > 58.hs
      ^C
      $ cat 58.hs
      $

Below is all code snippets I can recover.

snd $ find (\((np,n),_) -> np/n < 0.1) (result primeList)

spiral = [(floor $ ((sqrt (fromIntegral n - 1))+1)/2+1, n) | n <- [1..]]
update prime list to 1,000,000 primes
rewritten problem 58, very slow