1 # This file is part of NIT ( http://www.nitlanguage.org ).
3 # Copyright 2005-2008 Jean Privat <jean@pryen.org>
5 # Licensed under the Apache License, Version 2.0 (the "License");
6 # you may not use this file except in compliance with the License.
7 # You may obtain a copy of the License at
9 # http://www.apache.org/licenses/LICENSE-2.0
11 # Unless required by applicable law or agreed to in writing, software
12 # distributed under the License is distributed on an "AS IS" BASIS,
13 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
14 # See the License for the specific language governing permissions and
15 # limitations under the License.
17 # The Comptuer Language Shootout Benchmarks
18 # http://shootout.alioth.debian.org
20 # contributed by Jean Privat
22 # Incorrect since Floats are floats instead of doubles
27 if args
.length
!= 1 then
28 printn
("Usage: shootout_mandelbrot <size>\n")
32 var w
= args
.first
.to_i
38 printn
("P4\n{w} {h}\n")
44 var cr
= 2.0 * x
.to_f
/ w
.to_f
- 1.5
45 var ci
= 2.0 * y
.to_f
/ h
.to_f
- 1.0
48 while i
< iter
and zr
*zr
+zi
*zi
<= limit
*limit
do
49 var tr
= zr
*zr
- zi
*zi
+ cr
50 var ti
= 2.0*zr
*zi
+ ci
56 if zr
*zr
+zi
*zi
> limit
*limit
then
57 byte_acc
= (byte_acc
.lshift
(1))
59 byte_acc
= (byte_acc
.lshift
(1)) + 1
65 printn
(byte_acc
.ascii
)
68 else if x
== w
- 1 then
69 byte_acc
= byte_acc
.lshift
(8-w
%8)
70 printn
(byte_acc
.ascii
)