Download or view proctest.frink in plain text format
// Test for procedure blocks
// Test zero-arg function
zero = { || 10 }
println[zero[]]
// Test one-arg function
one = { |x| x^2 }
println[one[4]]
// Test two-arg function
pre = { |x,y| x^2 + y^2 }
println[pre[4, 5]]
// Select all of the even items out of the list.
ary = [1,2,3,4,5]
even = select[ary, { |i| i mod 2 == 0 }]
println[even]
// Select all the lines that match a certain pattern.
alanline = { |line| line =~ %r/alan/i }
println[select[lines["http://futureboy.us/"], alanline]]
// Try with 2 args... return numbers which are divisible by each other.
array2 = [[2,3], [2,4], [2,5], [2,6]]
divisible = array[select[array2, { |x| x@1 % x@0 == 0 }]]
println[divisible]
Download or view proctest.frink in plain text format
This is a program written in the programming language Frink.
For more information, view the Frink
Documentation or see More Sample Frink Programs.
Alan Eliasen was born 19966 days, 0 hours, 44 minutes ago.