Resistance calculator: Difference between revisions
m
→{{header|Perl}}: subroutine signatures and code tweaks
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: subroutine signatures and code tweaks) |
||
Line 571:
===Infix===
{{trans|Raku}}
<syntaxhighlight lang="perl">use
package Resistor;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(set_voltage report);
use overload '+' => \&serial, '*' => \∥▼
sub
my $self = {
symbol => $args->{symbol},
Line 590 ⟶ 591:
}
sub res ($self) {
if ($self->{symbol} eq '+') { return res($self->{a}) + res($self->{b}) }
elsif ($self->{symbol} eq '*') { return 1 / (1/res($self->{a}) + 1/res($self->{b})) }
else { return $self->{resistance} }
}
sub set_voltage ($self,$voltage) {
if ($self->{symbol} eq '+') {
my $ra = res($self->{a});
Line 611 ⟶ 610:
}
sub current
sub effect
▲use overload '+' => \&serial,
sub serial
sub parallel
sub report ($self,$level = 0) {
state @results;
push @results, ' Ohm Volt Ampere Watt Network tree' and $level = 1 unless $level;
Line 635 ⟶ 630:
package main;
Resistor->import;
my ($R1, $R2, $R3, $R4, $R5, $R6, $R7, $R8, $R9, $R10) =
Line 642 ⟶ 638:
* $R4 + $R3) * $R2 + $R1;
say
{{out}}
<pre
10.000 18.000 1.800 32.400 | +
4.000 7.200 1.800 12.960 | | *
| |||