File: test-language.js

package info (click to toggle)
guile-2.0 2.0.11%2B1-9
  • links: PTS
  • area: main
  • in suites: jessie-kfreebsd
  • size: 27,612 kB
  • sloc: ansic: 132,286; lisp: 67,206; sh: 4,593; makefile: 1,977; perl: 243; awk: 37
file content (12 lines) | stat: -rw-r--r-- 198 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
11
12
 
/* Sample ECMAscript code for `test-language'.  */

function fib (n)
{
    if (n <= 1)
	return n;
    else
	return fib (n - 1) + fib (n - 2);
}

if (fib (7) != 13)
    error ("Something's wrong!");