heptagon/test/good/array_fill.ept

18 lines
338 B
Plaintext
Raw Normal View History

2010-08-17 15:31:39 +02:00
const n : int = 33
node stopbb(shiftenable : bool) returns (dataout : bool^n)
2011-05-23 14:04:11 +02:00
var last dataint : bool^n; f : bool;
2010-08-17 15:31:39 +02:00
let
2011-03-21 14:30:19 +01:00
f = false;
dataout = (f^n) fby dataint;
2010-08-17 15:31:39 +02:00
switch shiftenable
| true do dataint = [true] @ dataout[0 .. n - 2];
| false do
end
tel
node main() returns (dataout : bool^n)
let
dataout = stopbb(true);
tel