Magic squares of doubly even order: Difference between revisions
Content deleted Content added
Thundergnat (talk | contribs) m Fix Perl 6 -> Raku links |
m →{{header|Phix}}: pp_StrFmt tweaks |
||
| Line 1,683: | Line 1,683: | ||
printf(1,"maqic square of order %d, sum: %d\n", {i,sum(square[i])}) |
printf(1,"maqic square of order %d, sum: %d\n", {i,sum(square[i])}) |
||
string fmt = sprintf("%%%dd",length(sprintf("%d",i*i))) |
string fmt = sprintf("%%%dd",length(sprintf("%d",i*i))) |
||
pp(square,{pp_Nest,1,pp_IntFmt,fmt,pp_StrFmt, |
pp(square,{pp_Nest,1,pp_IntFmt,fmt,pp_StrFmt,3,pp_IntCh,false,pp_Pause,0}) |
||
check(square) |
check(square) |
||
end for</lang> |
end for</lang> |
||