File: fibonacci

package info (click to toggle)
saml 970418-3
  • links: PTS
  • area: main
  • in suites: slink
  • size: 1,204 kB
  • ctags: 1,701
  • sloc: ansic: 17,182; sh: 2,583; yacc: 497; perl: 264; makefile: 250; python: 242
file content (15 lines) | stat: -rwxr-xr-x 196 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#!/bin/sh
#
# Factorize the first Fibonacci numbers
#
PATH=$PATH:.:../samuel
N=1
P=1
while true; do
	echo "$N ="
	echo -n "  "
	factorint $N
	t=$P
	P=$N
	N=`echo "$N+$t;" | samuel | tr -d +`
done