Transportation problem: Difference between revisions

m
→‎stepping stones: pp_StrFmt tweaks
m (→‎{{header|Raku}}: Fix comment: Perl 6 --> Raku)
m (→‎stepping stones: pp_StrFmt tweaks)
Line 3,370:
function initialise(sequence tests, integer t)
sequence {src,dst,costs} = tests[t]
string cs = ppf(costs,{pp_Nest,1,pp_StrFmt,13,pp_IntCh,false,pp_Indent,7})
printf(1,"test %d:\nsrc: %v,\ndst: %v,\ncosts: %s\n",{t,src,dst,cs})
7,820

edits