dannypje schreef: ↑do 30 jan 2020, 17:49 perl progje geeft 55 mogelijkheden. Zonder 0
#!/usr/local/bin/perl
###########################################################
# #
# 3 figures adding up to 12 #
###########################################################
$i = 0;
for ($a=1;$a<=12;$a++)
{
for ($b=1;$b<=12;$b++)
{
for ($c=1;$c<=12;$c++)
{
if ($a+$b+$c == 12)
{
$i++;
print $i,": ",$a," ",$b," ",$c,"\n";
}
}
}
}
$p=<>;
exit;
Dat heb ik ook gevonden.AAAA schreef: ↑do 30 jan 2020, 21:24dannypje schreef: ↑do 30 jan 2020, 17:49 perl progje geeft 55 mogelijkheden. Zonder 0
#!/usr/local/bin/perl
###########################################################
# #
# 3 figures adding up to 12 #
###########################################################
$i = 0;
for ($a=1;$a<=12;$a++)
{
for ($b=1;$b<=12;$b++)
{
for ($c=1;$c<=12;$c++)
{
if ($a+$b+$c == 12)
{
$i++;
print $i,": ",$a," ",$b," ",$c,"\n";
}
}
}
}
$p=<>;
exit;
Ik kom aan 60 zonder nul