SHARE
TWEET

Untitled

a guest May 19th, 2017 50 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. galton(row,n) := block(
  2. k : 0,
  3. print("Anzahl der Ebenen: ", row),
  4. for i : 1 thru n do (
  5.     array (col, fixnum, row),
  6.     for j : 1 thru row do (
  7.         k : k + random(2) ),
  8.     k = k + 1,
  9.     col[k] : col[k] + 1 )
  10. );
RAW Paste Data
Top