8 lines
401 B
Text
8 lines
401 B
Text
function do_one(integer n, string apostrophe)
|
|
return pad_head(sprintf("%d%s%s",{n,apostrophe,ord(n)}),7)
|
|
end function
|
|
procedure do_set(sequence s, bool bApostrophe=false)
|
|
puts(1,join_by(apply(true,do_one,{s,{repeat('`',bApostrophe)}}),1,10,"")&"\n")
|
|
end procedure
|
|
constant {rs,re} = columnize({{0,25},{250,265},{1000,1025}})
|
|
papply(true,do_set,{apply(true,tagset,{re,rs}),{false,true,false}})
|