;; one-over-f.sal -- 1-over-f noise generation
;; (c) 2008 by Roger B. Dannenberg
define function 1-over-f(number)
loop
with the-list
for counter from 0 below number
for blue = random(5) then
#?(counter % 4 = 0,
random(5), blue)
for green = random(5) then
#?(counter % 2 = 0,
random(5), green)
for red = random(5)
for total = blue + green + red
set the-list @= total
finally return the-list
end
print 1-over-f(20)