Download code

From LiteratePrograms

Back to Fibonacci_numbers_(Icon)

Download for Windows: single file, zip

Download for UNIX: single file, zip, tar.gz, tar.bz2

fib.i

 # Copyright (c) 2008 the authors listed at the following URL, and/or
 # the authors of referenced articles or incorporated external code:
 # http://en.literateprograms.org/Fibonacci_numbers_(Icon)?action=history&offset=20081030211610
 # 
 # Permission is hereby granted, free of charge, to any person obtaining
 # a copy of this software and associated documentation files (the
 # "Software"), to deal in the Software without restriction, including
 # without limitation the rights to use, copy, modify, merge, publish,
 # distribute, sublicense, and/or sell copies of the Software, and to
 # permit persons to whom the Software is furnished to do so, subject to
 # the following conditions:
 # 
 # The above copyright notice and this permission notice shall be
 # included in all copies or substantial portions of the Software.
 # 
 # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 # EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 # MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 # IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
 # CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
 # TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 # SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 # 
 # Retrieved from: http://en.literateprograms.org/Fibonacci_numbers_(Icon)?oldid=15372
 
 
 procedure fib(n)
 	if n<2 then return n
 	else return fib(n-1)+fib(n-2)
 end
 
 
 
 
 
 procedure fastfib(n)
 	local prevfib, currfib, nfib
 	nfib:=2
 	prevfib:=1
 	currfib:=1
 	while nfib<n do {
 		prevfib:=:currfib
 		currfib+:=prevfib
 		nfib+:=1
 	}
 	return currfib
 end
 
 
 procedure main()
 	local n
 
 	n:=1
 	while n<30 do {
 		write(fib(n))
 		n+:=1 
 	}
 
 	n:=1
 	while n<30 do {
 		write(fastfib(n))
 		n+:=1 
 	}
 end