Evaluated proc nist_rand {{when {}}} {if {$when eq ""} {set when [clock scan "8 hours ago"]};set ret 0;set i 0; foreach x [lrange [hex2dec [last [regexp -inline {<outputValue>(.*?)</outputValue>} [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]]] 0 4] {set ret [expr int($ret + ($x * pow(16,$i)))];incr i;}; return $ret}
This commit is contained in:
committed by
dupa dup

parent
da05820b1d
commit
8fc71e9a2d
1
procs/be4fc6825952b2d54286259ef360a9b8a073d5e1
Normal file
1
procs/be4fc6825952b2d54286259ef360a9b8a073d5e1
Normal file
@ -0,0 +1 @@
|
||||
{{when {}}} {if {$when eq ""} {set when [clock scan "8 hours ago"]};set ret 0;set i 0; foreach x [lrange [hex2dec [last [regexp -inline {<outputValue>(.*?)</outputValue>} [wget https://beacon.nist.gov/beacon/2.0/pulse/time/$when]]]] 0 4] {set ret [expr int($ret + ($x * pow(16,$i)))];incr i;}; return $ret}
|
Reference in New Issue
Block a user