Download or view increasingPuzzle.frink in plain text format
descending = 0
count = 0
a = array[0 to 9]
GROUP:
multifor c = [a,a,a,a,a]
{
//println[c]
count = count + 1
last = c@0
for i = 1 to 4
if last <= c@i
next GROUP
else
last = c@i
println[c]
descending = descending + 1
}
println["$descending / $count are strictly descending. " + (descending/count)]
Download or view increasingPuzzle.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, eliasen@mindspring.com