Anonymous user
Julia set: Difference between revisions
m
→{{header|Haskell}}: use list comprehension for each x y value
m (→{{header|Haskell}}: use list comprehension for each x y value) |
|||
Line 1,030:
import System.Environment (getArgs)
plotChar ::
plotChar iter cReal cImag
| zReal^2 > 10000 = ' '
| iter == 1 = '#'
| otherwise = plotChar (iter-1) cReal cImag
where zReal = x * x - y * y + cReal
zImag = x * y * 2 + cImag
Line 1,048:
let (cReal, cImag) = parseArgs args
print (cReal, cImag)
forM_ vlist (\v -> putStrLn $ map (
where vlist = [v / 100 | v <-[-100,-96..100]]
hlist = [h / 200 | h <-[-280,-276..280]]
</lang>
{{out}}
|