proctest.frink

View or download 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]


View or download 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 17863 days, 22 hours, 27 minutes ago.