test.qlw 465 B

1234567891011121314151617181920212223242526272829303132333435363738
  1. fast_fibonacci(i: Integer): Integer do
  2. a: Integer
  3. b: Integer
  4. temp: Integer
  5. count: Integer
  6. count := i
  7. a := 0
  8. b := 1
  9. //b := a <=> b
  10. while count != 0 do
  11. temp := a
  12. a := a + b
  13. b := temp
  14. count := count - 1
  15. end
  16. return a
  17. end
  18. extern do_shit
  19. bignumbers do
  20. a: Int128
  21. b: Int128
  22. c: Int64
  23. b := a + c as Int128
  24. c := b as Int64
  25. end
  26. main2 do
  27. value: Integer
  28. do_shit
  29. end