<span class="Apple-style-span" style="font-family: Helvetica; font-size: 12px; ">&#39;m trying to compile my file that has my Euler problems in it to output the solution to problem four, but I&#39;m getting a compile error. Here&#39;s my .hs file:<br>
-------------------------<br>module Euler1 where<br>import Data.List<br>import Data.Ord<br><br>main = mapM_ putStrLn problem4<br><br>problem1 = foldl1&#39; (+) $ nub $ (takeWhile (&lt; 1000) [3,6..] ++ takeWhile (&lt; 1000) [5,10..])<br>
problem2 = sum $ takeWhile (&lt;= 4000000) [x | x &lt;- fibs, even x]<br><span class="Apple-tab-span" style="white-space: pre; ">        </span>where fibs = unfoldr (\(a,b) -&gt; Just (a,(b,a+b))) (0,1)<br><br>problem3 z = maximumBy compare (filter (\x -&gt; z `mod` x == 0) (takeWhile (&lt;= ceiling (sqrt (fromIntegral z))) primes))<br>
<br>problem4 = nub [ show $ y * z | y &lt;- [100..999], z &lt;- [100..999], show (y*z) == reverse (show $ y*z)]<br><br>prime p = p `elem` primes<br><br>primes = small ++ large<br><span class="Apple-tab-span" style="white-space: pre; ">        </span>where<br>
<span class="Apple-tab-span" style="white-space: pre; ">        </span><span class="Apple-tab-span" style="white-space: pre; ">        </span>1:p:candidates = roll $ mkWheel small<br><span class="Apple-tab-span" style="white-space: pre; ">        </span><span class="Apple-tab-span" style="white-space: pre; ">        </span>small &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;= [2,3,5,7]<br>
<span class="Apple-tab-span" style="white-space: pre; ">        </span><span class="Apple-tab-span" style="white-space: pre; ">        </span>large &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;= p : filter isPrime candidates<br><span class="Apple-tab-span" style="white-space: pre; ">        </span><span class="Apple-tab-span" style="white-space: pre; ">        </span>isPrime n &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;= all (not . divides n) $ takeWhile (\p -&gt; p*p &lt;= n) large<br>
<span class="Apple-tab-span" style="white-space: pre; ">        </span><span class="Apple-tab-span" style="white-space: pre; ">        </span>divides n p &nbsp;&nbsp;&nbsp;= n `mod` p == 0<br>mkWheel ds = foldl nextSize w0 ds<br>nextSize (Wheel n rs) p =<br>
&nbsp;Wheel (p*n) [r&#39; | k &lt;- [0..(p-1)], r &lt;- rs, let r&#39; = n*k+r, r&#39; `mod` p /= 0]<br>w0 = Wheel 1 [1]<br>roll (Wheel n rs) = [n*k+r | k &lt;- [0..], r &lt;- rs]<br>data Wheel = Wheel Integer [Integer]<br>------------------------<br>
<br>Here&#39;s my output when I try to compile:<br><br>ian$ ghc ~/Documents/eulerProblem1.hs -o test<br>Undefined symbols:<br>&nbsp;&quot;___stginit_ZCMain&quot;, referenced from:<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;___stginit_ZCMain$non_lazy_ptr in libHSrts.a(Main.o)<br>
&nbsp;&quot;_ZCMain_main_closure&quot;, referenced from:<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;_ZCMain_main_closure$non_lazy_ptr in libHSrts.a(Main.o)<br>ld: symbol(s) not found<br>collect2: ld returned 1 exit status<br><br>What&#39;s going on? I&#39;m running GHC 6.8.3, if that helps.</span><br>