11 lines
207 B
Text
11 lines
207 B
Text
|
const n:int = 100
|
||
|
|
||
|
node bad_mem()
|
||
|
returns (v : float)
|
||
|
var t2,t,t_next:float^n at r;
|
||
|
let
|
||
|
t_next = [t with [0] = 0.0];
|
||
|
t2 = [ t_next with [1] = 1.0 ];
|
||
|
init<<r>> t = (0.0^n) fby t_next;
|
||
|
v = t2[0];
|
||
|
tel
|