@lurker, variable Печь
: поставить ;
: на ;
: градусов, swap ! ;
0
1+ dup value Яйца,
1+ dup value муку
1+ dup value сахар,
drop
create котёл 3 allot
: в ;
: В ;
: всего ;
; все ;
: ингредиента ;
: поместить, swap 0 do tuck ! loop ;
котёл value котле
defer вязкость
' > is вязкость
( взято с
rosettacode.org )
: перемешать. ( addr cnt — )
dup 1 do
2dup i — cells bounds do
i 2@ вязкость if i 2@ swap i 2! then
cell +loop
loop ;
Печь поставить на 300 градусов,
Яйца, сахар, муку — всего 3 ингредиента в котёл поместить,
В котле все 3 ингредиента перемешать.