smallpt: truncate result

Current test does some floating-point manipulations which can be non-deterministic due to different platforms/architectures. This change truncates the result to avoid potential stdout mismatch.

fixes #23 (closed)

real/smallpt/smallpt.hs

@@ -222,5 +222,4 @@ main = do
   vec <- smallpt w h samples
   if mode == "img"
     then writeImage stdout (w, h) vec
-    else  hPutStr stdout (hashImage vec)
-
+    else hPutStr stdout (printf "%.6f" (read (hashImage vec) :: Double))