Galton box animation: Difference between revisions
m
→{{header|EasyLang}}
TechAscent (talk | contribs) No edit summary |
|||
| (6 intermediate revisions by 4 users not shown) | |||
Line 910:
| o o o o o o o o o o o |
+---------------------------------------+</pre>
=={{header|EasyLang}}==
[https://easylang.dev/show/#cod=dVNdc4IwEHzPr9iZvqgMlCDYOlP8Ix0f+IhtFBMnYIV/3wkEJIAvcLcc2d27S9mUqOStYKeKvIHclMyQq+Rx46KEB48AOEkFjkpirzMDnDXADQDgKv8YVjSCC77GBls4OGODHXj7dBA8izOusoLB9z4M1vJ4xCOZLKRCFEWkV0HSJLv8KHkXOVyqRRZMIJX19xHUb5NR2HRhb6X8lY9U1jMn1DfENeJBII2m/jQLP05M1qC+D7d1Fy76CqauWi1c8Oq1kI4KMQZlo1Sf8Ya+OeGWSIGKX5nSH/kJ6b1sdC0SkUMlIueiQogYtD+9K6AjgzZ9d85EgiUk/LTQpkMDC0wVSy4DS9+B/s2Kktl6jDnduYIlrRszsdfTGk1EK8YBtodW2FeMaDfX60wF9/VXmWM3s9MyOjG22GDVtzXABgFcbNez2q4ltYV7z2zk37Dn2tCqhgsarfGOZcnhouRDjP0Obrc4eX3U2/hCkT/Fh3+ceDytgWD4frA25FkieLUAz8Y/a4GdjUJzsxrrui1fJ6DbffgeJR4xMSH/ Run it]
<syntaxhighlight>
sys topleft
#
proc drawpins . .
for i to 9
for j to i
move (15 - i) * 3 + j * 6 i * 6 + 2
circle 0.7
.
.
.
color 555
drawpins
background -1
#
len box[] 10
len x[] 10
len y[] 10
#
proc showbox . .
for i to 10
x = i * 6 + 15
for j to box[i]
move x 100 - j * 4 + 2
circle 2
.
.
.
proc init . .
for i to 10
box[i] = 0
x[i] = 0
.
.
#
color 543
on timer
if busy = 0 and randint 4 = 1
busy = 1
for i to 10
if x[i] = 0
x[i] = 48
y[i] = 2
break 1
.
.
else
busy = 0
.
clear
showbox
for i to 10
x = x[i]
if x > 0
if y[i] <= 56
y[i] += 2
if y[i] mod 6 = 2
x += 3 * (randint 2 * 2 - 3)
x[i] = x
.
else
idx = (x - 15) / 6
y[i] += 4
if y[i] >= 96 - box[idx] * 4
x[i] = 0
box[idx] += 1
if box[idx] > 10
init
break 1
.
.
.
move x y[i]
circle 2
.
.
timer 0.1
.
timer 0
</syntaxhighlight>
=={{header|Elm}}==
Line 1,609 ⟶ 1,693:
Or, showing an entire animation sequence:
<
┌─────────────┬─────────────┬─────────────┬─────────────┬─────────────┬─────────────┬─────────────┬─────────────┬─────────────┬─────────────┬─────────────┬─────────────┬─────────────┬─────────────┐
│ o │ │ │ │ │ │ │ │ │ │ │ │ │ │
Line 1,625 ⟶ 1,709:
│ * * * * * │ * * * * * │ │ │ │ │ │ │ │ │ │ │ │ │
│ │ │ │ │ │ │ │ │ │ │ │ │ │ │
└─────────────┴─────────────┴─────────────┴─────────────┴─────────────┴─────────────┴─────────────┴─────────────┴─────────────┴─────────────┴─────────────┴─────────────┴─────────────┴─────────────┘</
=={{header|Java}}==
Line 4,451 ⟶ 4,535:
=={{header|Wren}}==
{{trans|D}}
{{libheader|Wren-
<syntaxhighlight lang="
import "./
var boxW = 41 // Galton box width.
Line 4,720 ⟶ 4,804:
=={{header|Zig}}==
<syntaxhighlight lang="zig">const std = @import("std");
const rand = std.rand;
const time = std
const PEG_LINES = 20;
const BALLS = 10;
fn boardSize(comptime peg_lines: u16) u16 {
var i: u16 = 0;
var size: u16 = 0;
inline while (i <=
size += i + 1;
}
return size;
Line 4,738 ⟶ 4,822:
const BOARD_SIZE = boardSize(PEG_LINES);
fn stepBoard(board: *[BOARD_SIZE]u1, count: *[PEG_LINES + 1]u8) void {
var prng = rand.DefaultPrng.init(@bitCast(time.timestamp()));
var p: u8 = 0;
var sum: u16 = 0;
while (p <= PEG_LINES) : (p += 1) {
const pegs = PEG_LINES - p;
var i: u16 = 0;
while (i < pegs + 1) : (i += 1) {
if (pegs != PEG_LINES and board[BOARD_SIZE - 1 - sum - i] == 1) {
if (prng.random().boolean()) {
board.*[BOARD_SIZE - 1 - sum - i + pegs + 1] = 1;
} else {
board.*[BOARD_SIZE - 1 - sum - i + pegs + 2] = 1;
}
} else if (pegs == PEG_LINES and board[BOARD_SIZE - 1 - sum - i] == 1) {
count.*[pegs - i] += 1;
}
board.*[BOARD_SIZE - 1 - sum - i] = 0;
}
sum += pegs + 1;
}
}
fn printBoard(board: *[BOARD_SIZE]u1, count: *[PEG_LINES + 1]u8) !void {
_ = try stdout.write("\x1B[2J\x1B[1;1H");
var pegs: u16 = 0;
var sum: u16 = 0;
while (pegs <= PEG_LINES) : (pegs += 1) {
var i: u16 = 0;
while (i < (PEG_LINES - pegs)) : (i += 1) _ = try stdout.write(" ");
i = 0;
while (i < pegs + 1) : (i += 1) {
const spot = if (board[i + sum] == 1) "o" else " ";
_ = try stdout.write(spot);
if (i != pegs) _ = try stdout.write("*");
}
sum += pegs + 1;
_ = try stdout.write("\n");
}
for (count) |n| {
const num_char = [2]u8{'0' + n, ' '};
_ = try stdout.write(&num_char);
}
_ = try stdout.write("\n");
}
pub fn main() !void {
var board: [BOARD_SIZE]u1 = [_]u1{0} ** BOARD_SIZE;
var bottom_count: [PEG_LINES+1]u8 = [_]u8{0} ** (PEG_LINES + 1);
var i: u16 = 0;
while (i <
if (i <
try printBoard(&board, &bottom_count);
| |||