68 lines
1.6 KiB
Scilab
68 lines
1.6 KiB
Scilab
class Object
|
|
int fibonaccit(int n)
|
|
a = 0
|
|
b = 1
|
|
while( n > 1 )
|
|
tmp = a
|
|
a = b
|
|
b = tmp + b
|
|
puts(b)
|
|
n = n - 1
|
|
end
|
|
end
|
|
|
|
int main()
|
|
fibonaccit( 10 )
|
|
end
|
|
end
|
|
-- -- --
|
|
s(:statements,
|
|
s(:class, :Object,
|
|
s(:derives, nil),
|
|
s(:statements,
|
|
s(:function, :int,
|
|
s(:name, :fibonaccit),
|
|
s(:parameters,
|
|
s(:parameter, :int, :n)),
|
|
s(:statements,
|
|
s(:assignment,
|
|
s(:name, :a),
|
|
s(:int, 0)),
|
|
s(:assignment,
|
|
s(:name, :b),
|
|
s(:int, 1)),
|
|
s(:while_statement,
|
|
s(:condition,
|
|
s(:operator_value, :>,
|
|
s(:name, :n),
|
|
s(:int, 1))),
|
|
s(:statements,
|
|
s(:assignment,
|
|
s(:name, :tmp),
|
|
s(:name, :a)),
|
|
s(:assignment,
|
|
s(:name, :a),
|
|
s(:name, :b)),
|
|
s(:assignment,
|
|
s(:name, :b),
|
|
s(:operator_value, :+,
|
|
s(:name, :tmp),
|
|
s(:name, :b))),
|
|
s(:call,
|
|
s(:name, :puts),
|
|
s(:arguments,
|
|
s(:name, :b))),
|
|
s(:assignment,
|
|
s(:name, :n),
|
|
s(:operator_value, :-,
|
|
s(:name, :n),
|
|
s(:int, 1))))))),
|
|
s(:function, :int,
|
|
s(:name, :main),
|
|
s(:parameters),
|
|
s(:statements,
|
|
s(:call,
|
|
s(:name, :fibonaccit),
|
|
s(:arguments,
|
|
s(:int, 10))))))))
|