Strings konkatenieren



So kann man Strings konkatenieren:

   /Concatenate
   { dup length 2 index length add 1 index type pop string
     dup 0 4 index putinterval
     dup 4 -1 roll length 4 -1 roll putinterval
   } bind def

© Holger Gehringer, Dezember 1998