in reply to random num generator
perldoc -f rand
my %gates = ( 'gate001' => { 'gate_type' => 'FLIPFLOP', 'inputs' => [], # array of input values 'outputs' => [], # array of output values }, 'gate002' => { 'gate_type' => 'XOR', 'inputs' => [], # array of input values 'outputs' => [], # array of output values } );
for (1..20) { push @{$gates{'gate001'}{'inputs'}}, rand(2.0) - 1.0; }
|
|---|