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 17590 days, 6 hours, 53 minutes ago.