Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- galton(row,n) := block(
- k : 0,
- print("Anzahl der Ebenen: ", row),
- for i : 1 thru n do (
- array (col, fixnum, row),
- for j : 1 thru row do (
- k : k + random(2) ),
- k = k + 1,
- col[k] : col[k] + 1 )
- );
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement