This is the revision history for ohms_law in <freenode.net:#perlbot>
| factoid_id | subject | copula | predicate | author | namespace |
|---|---|---|---|---|---|
| 11186 | ohms_law | is | <eval <fact _ohms_law>; $arg=<quote d <arg>>; my %h; $h{lc $2}=$1 while ($arg=~/(?:^|\s)([\d\.\-]+)\s*?([aowv])/ig); $r=calc %h; sprintf "%f Amps, %f Volts, %f Ohms, %f Watts", @$r;> Not Available |
simcop2387 | <*:##NULL> |
| 11184 | ohms_law | is | <eval <fact _ohms_law>; $arg=<quote d <arg>>; my %h; $h{lc $2}=$1 while ($arg=~/(?:^|\s)([\d\.\-]+)([aowv])/ig); $r=calc %h; sprintf "%f Amps, %f Volts, %f Ohms, %f Watts", @$r;> Not Available |
simcop2387 | <*:##NULL> |
| 11183 | ohms_law | is | <eval <fact _ohms_law>; $arg=<quote d <arg>>; my %h; $h{lc $2}=$1 while ($arg=~/(?:^|\s)([\d\.\-]+)([aowv])/ig); return \%h; $r=calc %h; sprintf "%f Amps, %f Volts, %f Ohms, %f Watts", @$r;> Not Available |
simcop2387 | <*:##NULL> |
| 11182 | ohms_law | is | <eval <fact _ohms_law>; $arg=<quote d <arg>>; my %h; $h{lc $2}=$1 while ($arg=~/(^|\s)([\d\.\-]+)([aowv])/ig); return \%h; $r=calc %h; sprintf "%f Amps, %f Volts, %f Ohms, %f Watts", @$r;> Not Available |
simcop2387 | <*:##NULL> |
| 11181 | ohms_law | is | <eval <fact _ohms_law>; $arg=<quote d <arg>>; my %h; $h{lc $2}=$1 while ($arg=~/([\d\.\-]+)([aowv])\S+?/ig); return \%h; $r=calc %h; sprintf "%f Amps, %f Volts, %f Ohms, %f Watts", @$r;> Not Available |
simcop2387 | <*:##NULL> |
| 11180 | ohms_law | is | <eval <fact _ohms_law>; $arg=<quote d <arg>>; my %h; $h{lc $2}=$1 while ($arg=~/([\d\.\-]+)([aowv])\S+/ig); return \%h; $r=calc %h; sprintf "%f Amps, %f Volts, %f Ohms, %f Watts", @$r;> Not Available |
simcop2387 | <*:##NULL> |
| 11179 | ohms_law | is | <eval <fact _ohms_law>; $arg=<quote d <arg>>; my %h; $h{lc $2}=$1 while ($arg=~/([\d\.\-])([aowv])\S+/ig); return \%h; $r=calc %h; sprintf "%f Amps, %f Volts, %f Ohms, %f Watts", @$r;> Not Available |
simcop2387 | <*:##NULL> |
| 11177 | ohms_law | is | <eval <fact _ohms_law>; $arg=<quote d <arg>>; my %h; $h{lc $2}=$1 while ($arg=~/([\d\.\-])([aowv])\S+/ig); $r=calc %h; sprintf "%f Amps, %f Volts, %f Ohms, %f Watts", @$r;> Not Available |
simcop2387 | <*:##NULL> |
| 11176 | ohms_law | is | <eval <fact _ohms_law>; $arg=<quote d <arg>>; my %h; $h{lc $2}=$1 while ($arg=~/\b(\S+)([aowv])/ig); $r=calc %h; sprintf "%f Amps, %f Volts, %f Ohms, %f Watts", @$r;> Not Available |
simcop2387 | <*:##NULL> |