ipl/packs/loadfuncpp/examples/iterate2.icn


1
2
3
4
5
6
7
8
9
10
11
12
13


link loadfuncpp


procedure main()
	total := loadfuncpp("./iterate2.so", "iexample")
	write( total(g, [1,2,3,4,5]) )
end

procedure g(ls[])
	suspend !ls
end