Append numbers at same position in strings: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) (Added Perl) |
(Added Algol 68) |
||
Line 9: | Line 9: | ||
<br>The result should be: |
<br>The result should be: |
||
<br>list = [11019,21120,31221,41322,51423,61524,71625,81726,91827] |
<br>list = [11019,21120,31221,41322,51423,61524,71625,81726,91827] |
||
=={{header|ALGOL 68}}== |
|||
<lang algol68>BEGIN # form a list of strings by concatenating numbers from 3 lists # |
|||
[]INT list1 = ( 1, 2, 3, 4, 5, 6, 7, 8, 9 ) |
|||
, list2 = ( 10, 11, 12, 13, 14, 15, 16, 17, 18 ) |
|||
, list3 = ( 19, 20, 21, 22, 23, 24, 25, 26, 27 ) |
|||
; |
|||
[ LWB list1 : UPB list1 ]STRING result; |
|||
FOR i FROM LWB list1 TO UPB list1 DO |
|||
result[ i ] := whole( list1[ i ], 0 ) + whole( list2[ i ], 0 ) + whole( list3[ i ], 0 ) |
|||
OD; |
|||
STRING prefix := "[ "; |
|||
FOR i FROM LWB result TO UPB result DO |
|||
print( ( prefix, result[ i ] ) ); |
|||
prefix := ", " |
|||
OD; |
|||
print( ( " ]", newline ) ) |
|||
END</lang> |
|||
{{out}} |
|||
<pre> |
|||
[ 11019, 21120, 31221, 41322, 51423, 61524, 71625, 81726, 91827 ] |
|||
</pre> |
|||
=={{header|C}}== |
=={{header|C}}== |