simple_demo.pn

//
This file demonstrates the basic syntax constructs of Pinecone
\\


print: "if/then"

a: 12
b: 7

a=9 ?
(
	print: 1
)|(
	print: 2
)

b>3 ?
(
	print: 3
)

print


print: "while loop"

i: 12

i>3 @
(
	print: i
	i: i-1
)

print


print: "for loop"

i: 0 | i<10 | i: i+1 @
(
	print: i
)

print


print: "Fibonacci"

b: 0
a: 1

a<100 @
(
	print: a
	tmp: a
	a: a+b
	b: tmp
)

print


print: "Recursive Fibonacci"

fib :: {Int} -> {Int}: (
	out: Int
	
	in <= 1 ?
		out: 1
	|
		out: (fib: in - 1) + (fib: in - 2)
	
	out
)

print: fib: 8

print

print: "compile time constants"

print: y

x :: 10
y :: x+z
z :: 4

print


print: "functions"

print: func: 7

func :: {Int} -> {Dub}:
(
	(Dub: in)/2.0
)