3.7.8 fib

3.7.8 fib

proc fib() {

 a = 0

 b = 1

 while (b < $1) {

  print b

  c = b

  b = a+b

  a = c

 }

 print " "

}

Данный текст является ознакомительным фрагментом.