Книга: UNIX — универсальная среда программирования

3.7.10 fibsum

3.7.10 fibsum
proc fib(){
 a=1
 b=1
 c=2
 d=3
 sum = a+b+c+d
 while(d<$1){
  e=d+c
  print(e)
  a=b
  b=c
  c=d
  d=e
  sum=sum+e
 }
 print(sum)
}
fib(1000)

Содержание
3.7.1 ack
3.7.2 ack1
3.7.3 code.c
3.7.4 double
3.7.5 fac
3.7.6 fac1
3.7.7 fac2
3.7.8 fib
3.7.9 fib2
3.7.10 fibsum
3.7.11 fibtest
3.7.12 hoc.h
3.7.13 hoc.ms
3.7.14 hoc.y
3.7.15 init.c
3.7.16 makeapp
3.7.17 makefile
3.7.18 math.c
3.7.19 mbox
3.7.20 symbol.c
Оглавление статьи/книги
Похожие страницы

Генерация: 1.552. Запросов К БД/Cache: 3 / 1
поделиться
Вверх Вниз