Append numbers at same position in strings: Difference between revisions

← Older edit

Append numbers at same position in strings (view source)

Revision as of 12:32, 28 February 2024

13,885 bytes added , 2 months ago

Added C3

Lerno

38

edits

Revision as of 11:13, 28 May 2022 (view source) Not a robot (talk \| contribs) (Add APL) ← Older edit		Latest revision as of 12:32, 28 February 2024 (view source) Lerno (talk \| contribs) (Added C3)
(27 intermediate revisions by 18 users not shown)
Line 2: ;Task: <br>~~Let given~~Given three ~~list~~lists: <br>list1 = [1,2,3,4,5,6,7,8,9] <br>list2 = [10,11,12,13,14,15,16,17,18] <br>list3 = [19,20,21,22,23,24,25,26,27] <br>~~Append~~Turn the numbers atthem ~~same~~into ~~position~~strings inand ~~strings~~concatenate them. <br>The result should be: <br>list = [11019,21120,31221,41322,51423,61524,71625,81726,91827] =={{header\|11l}}== <~~lang~~syntaxhighlight lang="11l">V list1 = [1, 2, 3, 4, 5, 6, 7, 8, 9] V list2 = [10, 11, 12, 13, 14, 15, 16, 17, 18] V list3 = [19, 20, 21, 22, 23, 24, 25, 26, 27] print(zip(list1, list2, list3).map((n1, n2, n3) -> String(n1)‘’n2‘’n3))</~~lang~~syntaxhighlight> {{out}} Line 23: =={{header\|Ada}}== <~~lang~~syntaxhighlight ~~Ada~~lang="ada">with Ada.Text_Io; with Ada.Strings.Fixed; Line 54: Put (List); New_Line; end Append_Numbers;</~~lang~~syntaxhighlight> {{out}} <pre> Line 61: =={{header\|ALGOL 68}}== <~~lang~~syntaxhighlight 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 ) Line 76: OD; print( ( " ]", newline ) ) END</~~lang~~syntaxhighlight> {{out}} <pre> Line 84: =={{header\|APL}}== {{works with\|Dyalog APL}} <~~lang~~syntaxhighlight lang="apl">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 append←⍎¨∘(,/)∘(⍕¨)∘(⍉↑) append list1 list2 list3</~~lang~~syntaxhighlight> {{out}} <pre>11019 21120 31221 41322 51423 61524 71625 81726 91827</pre> =={{header\|Arturo}}== <syntaxhighlight lang="arturo">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] 0..dec size list1 \| map'i -> join @[list1\[i] list2\[i] list3\[i]] \| print</syntaxhighlight> {{out}} <pre>11019 21120 31221 41322 51423 61524 71625 81726 91827</pre> =={{header\|AutoHotkey}}== <~~lang~~syntaxhighlight ~~AutoHotkey~~lang="autohotkey">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] Line 102 ⟶ 115: for i, v in list4 result .= v ", " MsgBox % "[" trim(result, ", ") "]"</~~lang~~syntaxhighlight> {{out}} <pre>[11019, 21120, 31221, 41322, 51423, 61524, 71625, 81726, 91827]</pre> =={{header\|AWK}}== <syntaxhighlight lang="awk"> ~~<lang AWK>~~ # syntax: GAWK -f APPEND_NUMBERS_AT_SAME_POSITION_IN_STRINGS.AWK BEGIN { Line 124 ⟶ 137: exit(0) } </syntaxhighlight> ~~</lang>~~ {{out}} <pre> 11019 21120 31221 41322 51423 61524 71625 81726 91827 </pre> =={{header\|BASIC}}== ==={{header\|BASIC256}}=== {{trans\|FreeBASIC}} <syntaxhighlight lang="BASIC256">arraybase 1 dim list1 = {1,2,3,4,5,6,7,8,9} dim list2 = {10,11,12,13,14,15,16,17,18} dim list3 = {19,20,21,22,23,24,25,26,27} dim catlist(9) for i = 1 to 9 temp$ = string(list1[i]) + string(list2[i]) + string(list3[i]) catlist[i] = FromRadix(temp$,10) print catlist[i]; " "; next i</syntaxhighlight> {{out}} <pre>Same as FreeBASIC entry.</pre> ==={{header\|Run BASIC}}=== {{trans\|FreeBASIC}} <syntaxhighlight lang="lb">dim list1(9) data 1,2,3,4,5,6,7,8,9 for i = 1 to 9 read list1(i) next i dim list2(9) data 10,11,12,13,14,15,16,17,18 for i = 1 to 9 read list2(i) next i dim list3(9) data 19,20,21,22,23,24,25,26,27 for i = 1 to 9 read list3(i) next i dim catlist(9) for i = 1 to 9 temp$ = str$(list1(i)) + str$(list2(i)) + str$(list3(i)) catlist(i) = val(temp$) print catlist(i); " "; next i</syntaxhighlight> {{out}} <pre>Same as FreeBASIC entry.</pre> ==={{header\|Yabasic}}=== {{trans\|FreeBASIC}} <syntaxhighlight lang="yabasic">// Rosetta Code problem: http://rosettacode.org/wiki/Append_numbers_at_same_position_in_strings // by Jjuanhdez, 09/2022 dim list1(9) data 1,2,3,4,5,6,7,8,9 for i = 1 to 9 read list1(i) next i dim list2(9) data 10,11,12,13,14,15,16,17,18 for i = 1 to 9 read list2(i) next i dim list3(9) data 19,20,21,22,23,24,25,26,27 for i = 1 to 9 read list3(i) next i dim catlist(9) for i = 1 to 9 temp$ = str$(list1(i)) + str$(list2(i)) + str$(list3(i)) catlist(i) = val(temp$) print catlist(i), " "; next i</syntaxhighlight> {{out}} <pre>Same as FreeBASIC entry.</pre> =={{header\|C}}== <~~lang~~syntaxhighlight lang="c">#include<stdio.h> #include<stdlib.h> Line 139 ⟶ 228: for(i=0;i<9;i++) printf( "%d%d%d ", list[0][i], list[1][i], list[2][i] ); return 0; }</~~lang~~syntaxhighlight> {{out}}<pre>11019 21120 31221 41322 51423 61524 71625 81726 91827</pre> =={{header\|C3}}== <syntaxhighlight lang="c3">import std::io; import std::collections::list; fn void main() { int[9] list1 = { 1, 2, 3, 4, 5, 6, 7, 8, 9 }; int[9] list2 = { 10, 11, 12, 13, 14, 15, 16, 17, 18 }; int[9] list3 = { 19, 20, 21, 22, 23, 24, 25, 26, 27 }; List(<String>) list; list.temp_init(); for (int i = 0; i < 9; i++) { list.push(string::tformat("%d%d%d", list1[i], list2[i], list3[i])); } io::printn(list); }</syntaxhighlight> {{out}}<pre>[11019, 21120, 31221, 41322, 51423, 61524, 71625, 81726, 91827]</pre> =={{header\|CLU}}== <syntaxhighlight lang="clu">append = proc (lists: sequence[sequence[int]]) returns (sequence[int]) n_lists: int := sequence[sequence[int]]$size(lists) n_items: int := sequence[int]$size(lists[1]) out_list: array[int] := array[int]$predict(1,n_items) for i: int in int$from_to(1, n_items) do item: string := "" for j: int in int$from_to(1, n_lists) do item := item \|\| int$unparse(lists[j][i]) end array[int]$addh(out_list, int$parse(item)) end return(sequence[int]$a2s(out_list)) end append start_up = proc () list1 = sequence[int]$[1,2,3,4,5,6,7,8,9] list2 = sequence[int]$[10,11,12,13,14,15,16,17,18] list3 = sequence[int]$[19,20,21,22,23,24,25,26,27] lists = sequence[sequence[int]]$[list1,list2,list3] po: stream := stream$primary_output() for n: int in sequence[int]$elements(append(lists)) do stream$puts(po, int$unparse(n) \|\| " ") end end start_up</syntaxhighlight> {{out}} <pre>11019 21120 31221 41322 51423 61524 71625 81726 91827</pre> =={{header\|Delphi}}== {{works with\|Delphi\|6.0}} {{libheader\|SysUtils}} <syntaxhighlight lang="Delphi"> const List1: array [0..8] of integer = (1, 2, 3, 4, 5, 6, 7, 8, 9); const list2: array [0..8] of integer = (10, 11, 12, 13, 14, 15, 16, 17, 18); const list3: array [0..8] of integer = (19, 20, 21, 22, 23, 24, 25, 26, 27); function GetAppendNumbers: string; var I: integer; begin Result:='List = ['; for I:=0 to High(List1) do begin Result:=Result+IntToStr(List1[I])+IntToStr(List2[I])+IntToStr(List3[I]); if I=High(List1) then Result:=Result+']' else Result:=Result+','; end; end; </syntaxhighlight> {{out}} <pre> List = [11019,21120,31221,41322,51423,61524,71625,81726,91827] </pre> =={{header\|EasyLang}}== <syntaxhighlight lang=easylang> 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 ] # for i to len list1[] s$ = list1[i] & list2[i] & list3[i] r[] &= number s$ . print r[] </syntaxhighlight> =={{header\|F_Sharp\|F#}}== <~~lang~~syntaxhighlight lang="fsharp"> // Append numbers at same position in strings. Nigel Galloway: December 29th., 2021 let rec fG n g l=seq{match n,g,l with (n::x,g::y,l::z)->yield int((string n)+(string g)+(string l)); yield! fG x y z \|_->()} fG [1;2;3;4;5;6;7;8;9] [10;11;12;13;14;15;16;17;18] [19;20;21;22;23;24;25;26;27] \|> Seq.iter(printf "%d "); printfn "" </syntaxhighlight> ~~</lang>~~ {{out}} <pre> 11019 21120 31221 41322 51423 61524 71625 81726 91827 </pre> =={{header\|Factor}}== {{works with\|Factor\|0.99 2021-06-02}} <~~lang~~syntaxhighlight lang="factor">USING: kernel math.parser math.ranges present prettyprint sequences ; 27 [1,b] 9 cut 9 cut [ [ present ] tri@ 3append dec> ] 3map .</~~lang~~syntaxhighlight> {{out}} <pre> Line 164 ⟶ 342: =={{header\|FreeBASIC}}== <~~lang~~syntaxhighlight lang="freebasic">dim as integer list1(1 to 9) = {1,2,3,4,5,6,7,8,9} dim as integer list2(1 to 9) = {10,11,12,13,14,15,16,17,18} dim as integer list3(1 to 9) = {19,20,21,22,23,24,25,26,27} Line 174 ⟶ 352: catlist(i) = val(temp) print catlist(i);" "; next i</~~lang~~syntaxhighlight> {{out}}<pre>11019 21120 31221 41322 51423 61524 71625 81726 91827</pre> =={{header\|FutureBasic}}== <syntaxhighlight lang="futurebasic"> NSUInteger i CFArrayRef list1, list2, list3 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"] printf @"[\b" for i = 0 to 8 CFStringRef format : if i < 8 then format = @"%@%@%@, \b" else format = @"%@%@%@]" printf format, list1[i], list2[i], list3[i] next HandleEvents </syntaxhighlight> {{output}} <pre> [11019, 21120, 31221, 41322, 51423, 61524, 71625, 81726, 91827] </pre> =={{header\|Go}}== <~~lang~~syntaxhighlight lang="go">package main import "fmt" Line 191 ⟶ 393: } fmt.Println(list) }</~~lang~~syntaxhighlight> {{out}} Line 197 ⟶ 399: [11019 21120 31221 41322 51423 61524 71625 81726 91827] </pre> =={{header\|Haskell}}== <syntaxhighlight lang="haskell">main :: IO () main = mapM_ putStrLn $ zipWith3 (\ x y z -> [x, y, z] >>= show) [1, 2, 3, 4, 5, 6, 7, 8, 9] [10, 11, 12, 13, 14, 15, 16, 17, 18] [19, 20, 21, 22, 23, 24, 25, 26, 27]</syntaxhighlight> or more flexibly (allowing for an arbitrary number of zipped lists) in terms of ZipList: <syntaxhighlight lang="haskell">import Control.Applicative main :: IO () main = mapM_ putStrLn $ getZipList $ (\x y z -> [x, y, z] >>= show) <$> ZipList [1, 2, 3, 4, 5, 6, 7, 8, 9] <> ZipList [10, 11, 12, 13, 14, 15, 16, 17, 18] <> ZipList [19, 20, 21, 22, 23, 24, 25, 26, 27]</syntaxhighlight> {{Out}} <pre>11019 21120 31221 41322 51423 61524 71625 81726 91827</pre> =={{header\|J}}== <syntaxhighlight lang="j">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 -.&' '@":"1 list1 ,. list2 ,. list3</syntaxhighlight> {{out}} <pre>11019 21120 31221 41322 51423 61524 71625 81726 91827</pre> =={{header\|jq}}== {{works with\|jq}} '''Works with gojq, the Go implementation of jq''' <~~lang~~syntaxhighlight lang="jq">def list1 : [ range(1;10) ]; def list2 : [ range(10; 19)]; def list3 : [ range(19; 28) ]; Line 207 ⟶ 459: [list1, list2, list3] \| transpose \| map( map(tostring) \| add \| tonumber)</~~lang~~syntaxhighlight> {{out}} <pre> Line 214 ⟶ 466: =={{header\|Julia}}== <~~lang~~syntaxhighlight lang="julia">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] println([prod(string(n) for n in z) for z in zip(list1, list2, list3)]) # ["11019", "21120", "31221", "41322", "51423", "61524", "71625", "81726", "91827"] </syntaxhighlight> ~~</lang>~~ =={{header\|Lambdatalk}}== <syntaxhighlight lang="scheme"> Using a function returning an array {def append_numbers {def append_numbers.rec {lambda {:a :b :c :d} {if {A.empty? :a} then :d else {append_numbers.rec {A.rest :a} {A.rest :b} {A.rest :c} {A.addlast! {A.first :a}{A.first :b}{A.first :c} :d}} }}} {lambda {:a :b :c} {append_numbers.rec :a :b :c {A.new}}}} -> append_numbers {append_numbers {A.new {S.serie 1 9}} {A.new {S.serie 10 18}} {A.new {S.serie 19 27}}} -> [11019,21120,31221,41322,51423,61524,71625,81726,91827] or a map returning a sequence {S.map {{lambda {:a :b :c :i} {A.get :i :a}{A.get :i :b}{A.get :i :c}} {A.new {S.serie 1 9}} {A.new {S.serie 10 18}} {A.new {S.serie 19 27}} } {S.serie 0 8}} -> 11019 21120 31221 41322 51423 61524 71625 81726 91827 </syntaxhighlight> =={{header\|Lua}}== <syntaxhighlight lang="lua"> do -- form a list of strings by concatenating numbers from 3 lists local list1, list2, list3 = { 1, 2, 3, 4, 5, 6, 7, 8, 9 } , { 10, 11, 12, 13, 14, 15, 16, 17, 18 } , { 19, 20, 21, 22, 23, 24, 25, 26, 27 } local result = {} for i = 1, #list1 do result[ i ] = list1[ i ]..list2[ i ]..list3[ i ] end print( "[ "..table.concat( result, " " ).." ]" ) end </syntaxhighlight> {{out}} <pre> [ 11019, 21120, 31221, 41322, 51423, 61524, 71625, 81726, 91827 ] </pre> =={{header\|Mathematica}} / {{header\|Wolfram Language}}== <~~lang~~syntaxhighlight ~~Mathematica~~lang="mathematica">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}; MapThread[ FromDigits@Flatten[IntegerDigits /@ {##}] &, {list1, list2, list3}]</~~lang~~syntaxhighlight> {{out}}<pre> {11019,21120,31221,41322,51423,61524,71625,81726,91827} </pre> =={{header\|Maxima}}== <syntaxhighlight lang="maxima"> list1:makelist(i,i,9)$ list2:makelist(i,i,10,18)$ list3:makelist(i,i,19,27)$ block(makelist(sconcat(list1[i],list2[i],list3[i]),i,1,length(list1)),map(eval_string,%%)); </syntaxhighlight> {{out}}<pre> [11019,21120,31221,41322,51423,61524,71625,81726,91827] </pre> =={{header\|Nim}}== <syntaxhighlight lang="Nim">import std/strutils const 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] var list: array[List1.len, int] for i in 0..list.high: list[i] = parseInt($List1[i] & $List2[i] & $List3[i]) echo "list = ", list </syntaxhighlight> {{out}} <pre>list = [11019, 21120, 31221, 41322, 51423, 61524, 71625, 81726, 91827] </pre> =={{header\|OCaml}}== <syntaxhighlight lang="ocaml">let lists = [ ["1"; "2"; "3"; "4"; "5"; "6"; "7"; "8"; "9"]; ["10"; "11"; "12"; "13"; "14"; "15"; "16"; "17"; "18"]; ["19"; "20"; "21"; "22"; "23"; "24"; "25"; "26"; "27"]] let reduce f = function \| h :: t -> List.fold_left f h t \| _ -> invalid_arg "reduce" let () = reduce (List.map2 (^)) lists \|> String.concat ", " \|> print_endline</syntaxhighlight> {{out}} <pre>11019, 21120, 31221, 41322, 51423, 61524, 71625, 81726, 91827</pre> =={{header\|Pascal}}== The following <tt>program</tt> requires (at least) an ISO 7185-compliant processor supporting features at level 1 (specifically “conformant array parameters” are being used). <~~lang~~syntaxhighlight lang="pascal">program appendNumbersAtSamePositionInStrings(output); type Line 315 ⟶ 665: writeLn(list0[i]) end end.</~~lang~~syntaxhighlight> {{out}} 11019 Line 328 ⟶ 678: =={{header\|Perl}}== <~~lang~~syntaxhighlight lang="perl">use strict; use warnings; Line 345 ⟶ 695: map {print $f[$_][$i] } 0 .. $#f and print ' ' } print "\n";</~~lang~~syntaxhighlight> {{out}} <pre>11019 21120 31221 41322 51423 61524 71625 81726 91827 Line 351 ⟶ 701: =={{header\|Phix}}== <!--<~~lang~~syntaxhighlight ~~Phix~~lang="phix">(phixonline)--> <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%V%V\n"</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">repeat</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">apply</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">apply</span><span style="color: #0000FF;">(</span><span style="color: #004600;">true</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">vslice</span><span style="color: #0000FF;">,{{</span><span style="color: #7060A8;">sq_mul</span><span style="color: #0000FF;">({</span><span style="color: #7060A8;">tagset</span><span style="color: #0000FF;">(</span><span style="color: #000000;">9</span><span style="color: #0000FF;">),</span><span style="color: #7060A8;">tagset</span><span style="color: #0000FF;">(</span><span style="color: #000000;">18</span><span style="color: #0000FF;">,</span><span style="color: #000000;">10</span><span style="color: #0000FF;">),</span><span style="color: #7060A8;">tagset</span><span style="color: #0000FF;">(</span><span style="color: #000000;">27</span><span style="color: #0000FF;">,</span><span style="color: #000000;">19</span><span style="color: #0000FF;">)},{</span><span style="color: #000000;">1e4</span><span style="color: #0000FF;">,</span><span style="color: #000000;">1e2</span><span style="color: #0000FF;">,</span><span style="color: #000000;">1</span><span style="color: #0000FF;">})},</span><span style="color: #7060A8;">tagset</span><span style="color: #0000FF;">(</span><span style="color: #000000;">9</span><span style="color: #0000FF;">)}),</span><span style="color: #7060A8;">sum</span><span style="color: #0000FF;">),</span><span style="color: #000000;">2</span><span style="color: #0000FF;">))</span> <!--</~~lang~~syntaxhighlight>--> {{out}} <pre> {11019,21120,31221,41322,51423,61524,71625,81726,91827}{11019,21120,31221,41322,51423,61524,71625,81726,91827} </pre> =={{header\|PL/M}}== {{works with\|8080 PL/M Compiler}} ... under CP/M (or an emulator) <syntaxhighlight lang="plm"> 100H: /* FORM A LIST OF STRINGS BY CONCATENATING NUMBERS FROM 3 LISTS / / CP/M BDOS SYSTEM CALLS AND I/O ROUTINES / BDOS: PROCEDURE( FN, ARG ); DECLARE FN BYTE, ARG ADDRESS; GOTO 5; END; PR$CHAR: PROCEDURE( C ); DECLARE C BYTE; CALL BDOS( 2, C ); END; PR$STRING: PROCEDURE( S ); DECLARE S ADDRESS; CALL BDOS( 9, S ); END; PR$NL: PROCEDURE; CALL PR$STRING( .( 0DH, 0AH, '$' ) ); END; TO$STRING: PROCEDURE( N, S ); / CONVERTS N TO A STRING AT S / DECLARE ( N, S ) ADDRESS; DECLARE V ADDRESS, N$STR ( 6 )BYTE, W BYTE; DECLARE S$POS BYTE, S$STR BASED S ( 6 )BYTE; V = N; W = LAST( N$STR ); N$STR( W ) = '$'; N$STR( W := W - 1 ) = '0' + ( V MOD 10 ); DO WHILE( ( V := V / 10 ) > 0 ); N$STR( W := W - 1 ) = '0' + ( V MOD 10 ); END; S$POS = 0; DO W = W TO LAST( N$STR ); S$STR( S$POS ) = N$STR( W ); S$POS = S$POS + 1; END; END TO$STRING; STR$LENGTH: PROCEDURE( S )ADDRESS; / RETURNS THE LENGTH OF S / DECLARE S ADDRESS; DECLARE LEN ADDRESS, S$PTR ADDRESS, S$CH BASED S$PTR BYTE; S$PTR = S; LEN = 0; DO WHILE S$CH <> '$'; LEN = LEN + 1; S$PTR = S$PTR + 1; END; RETURN LEN; END STR$LENGTH; DECLARE LIST1 DATA( 1, 2, 3, 4, 5, 6, 7, 8, 9 ) / THREE LISTS / , LIST2 DATA( 10, 11, 12, 13, 14, 15, 16, 17, 18 ) / OF BYTE / , LIST3 DATA( 19, 20, 21, 22, 23, 24, 25, 26, 27 ) / VALUES / ; DECLARE RESULT ( 11 )ADDRESS; / WILL HOLD THE CONCATENATED STRINGS / DECLARE TEXT$BUFFER ( 256 )BYTE; / WILL HOLD THE TEXT OF THE STRINGS / DECLARE TEXT$PTR ADDRESS; TEXT$PTR = .TEXT$BUFFER; DECLARE I BYTE; DO I = 0 TO LAST( LIST1 ); RESULT( I ) = TEXT$PTR; CALL TO$STRING( LIST1( I ), TEXT$PTR ); TEXT$PTR = TEXT$PTR + STR$LENGTH( TEXT$PTR ); CALL TO$STRING( LIST2( I ), TEXT$PTR ); TEXT$PTR = TEXT$PTR + STR$LENGTH( TEXT$PTR ); CALL TO$STRING( LIST3( I ), TEXT$PTR ); TEXT$PTR = TEXT$PTR + STR$LENGTH( TEXT$PTR ) + 1; / KEEP THE FINAL $ / END; CALL PR$CHAR( '(' ); DO I = 0 TO LAST( LIST1 ); CALL PR$CHAR( ' ' ); CALL PR$STRING( RESULT( I ) ); END; CALL PR$STRING( .' )$' ); CALL PR$NL; EOF </syntaxhighlight> {{out}} <pre> ( 11019 21120 31221 41322 51423 61524 71625 81726 91827 ) </pre> =={{header\|Python}}== <~~lang~~syntaxhighlight lang="python">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] Line 367 ⟶ 794: ''.join(str(n) for n in z) for z in zip(list1, list2, list3) ])</~~lang~~syntaxhighlight> which is also expressible as a map: <syntaxhighlight lang="python">print(list(map( lambda x, y, z: f'{x}{y}{z}', [1, 2, 3, 4, 5, 6, 7, 8, 9], [10, 11, 12, 13, 14, 15, 16, 17, 18], [19, 20, 21, 22, 23, 24, 25, 26, 27] )))</syntaxhighlight> {{out}} <pre>['11019', '21120', '31221', '41322', '51423', '61524', '71625', '81726', '91827']</pre> =={{header\|~~Raku~~Quackery}}== ~~Not really seeing why we need to show the result twice but that's what the requirement is... ¯\_(ツ)_/¯ (I find myself making that gesture often in response to Calmosofts tasks.)~~ <syntaxhighlight lang="Quackery"> [ [] swap witheach [ number$ nested join ] ] is [number$] ( [ --> [ ) [ swap witheach [ over i^ peek join swap i^ poke ] ] is zip ( [ [ --> [ ) ' [ 1 2 3 4 5 6 7 8 9 ] ' [ 10 11 12 13 14 15 16 17 18 ] ' [ 19 20 21 22 23 24 25 26 27 ] 3 times [ rot [number$] ] zip zip witheach [ echo$ sp ]</syntaxhighlight> ~~<lang perl6>say [[Z~] [1,2,3,4,5,6,7,8,9], [10,11,12,13,14,15,16,17,18], [19,20,21,22,23,24,25,26,27]] xx 2;</lang>~~ {{out}} ~~<pre>([11019 21120 31221 41322 51423 61524 71625 81726 91827] [11019 21120 31221 41322 51423 61524 71625 81726 91827])</pre>~~ <pre>11019 21120 31221 41322 51423 61524 71625 81726 91827</pre> =={{header\|Raku}}== Various manipulations. <syntaxhighlight lang="raku" line>my @lists = 1..9, 10..18, 19..27; put [Z~] @lists; # the task put [Z~] @lists».flip; # each component reversed put [RZ~] @lists; # in reversed order put ([Z~] @lists)».flip; # reversed components in reverse order</syntaxhighlight> {{out}} <pre>11019 21120 31221 41322 51423 61524 71625 81726 91827 10191 21102 32112 43122 54132 65142 76152 87162 98172 19101 20112 21123 22134 23145 24156 25167 26178 27189 91011 02112 12213 22314 32415 42516 52617 62718 72819</pre> =={{header\|Ring}}== <~~lang~~syntaxhighlight lang="ring"> load "stdlib.ring" list1 = [1,2,3,4,5,6,7,8,9] Line 405 ⟶ 868: txt = txt + "]" see txt </syntaxhighlight> ~~</lang>~~ {{out}} <pre> list = [11019,21120,31221,41322,51423,61524,71625,81726,91827][11019,21120,31221,41322,51423,61524,71625,81726,91827] </pre> =={{header\|RPL}}== Using the basic instruction set: ≪ 3 →LIST → lists ≪ { } 1 lists 1 GET SIZE '''FOR''' j "" 1 3 '''FOR''' k lists k GET j GET →STR + '''NEXT''' STR→ + '''NEXT''' ≫ ≫ '<span style="color:blue">TASK</span>' STO Using the extended instruction set introduced in 2003: {{works with\|HP\|49}} ≪ 3 ≪ →STR + + STR→ ≫ DOLIST ≫ '<span style="color:blue">TASK</span>' STO '''Input:''' { 1 2 3 4 5 6 7 8 9 } { 10 11 12 13 14 15 16 17 18 } { 19 20 21 22 23 24 25 26 27 } <span style="color:blue">TASK</span> {{out}} <pre> 1: { 11019 21120 31221 41322 51423 61524 71625 81726 91827 } </pre> =={{header\|Ruby}}== <~~lang~~syntaxhighlight lang="ruby">list1 = (1..9) .to_a list2 = (10..18).to_a list3 = (19..27).to_a p list = [list1, list2, list3].transpose.map{\|trio\| trio.join.to_i }</~~lang~~syntaxhighlight> {{out}} <pre>[11019, 21120, 31221, 41322, 51423, 61524, 71625, 81726, 91827] Line 422 ⟶ 902: =={{header\|Sidef}}== <~~lang~~syntaxhighlight lang="ruby">var lists = [ [1,2,3,4,5,6,7,8,9], [10,11,12,13,14,15,16,17,18], Line 428 ⟶ 908: ] say lists.zip.map_2d {\|a\| a.join.to_i }</~~lang~~syntaxhighlight> {{out}} Line 435 ⟶ 915: </pre> =={{header\|V (Vlang)}}== {{trans\|go}} <syntaxhighlight lang="v (vlang)">fn main() { list1 := [1, 2, 3, 4, 5, 6, 7, 8, 9]! list2 := [10, 11, 12, 13, 14, 15, 16, 17, 18]! Line 446 ⟶ 926: } println(list) }</~~lang~~syntaxhighlight> {{out}} <pre>[11019, 21120, 31221, 41322, 51423, 61524, 71625, 81726, 91827]</pre> =={{header\|Wren}}== <~~lang~~syntaxhighlight ~~ecmascript~~lang="wren">var list1 = (1..9).toList var list2 = (10..18).toList var list3 = (19..27).toList var list = (0..8).map { \|i\| 1e4list1[i] + 100list2[i] + list3[i] }.toList System.print(list)</~~lang~~syntaxhighlight> {{out}} Line 463 ⟶ 943: =={{header\|XPL0}}== <~~lang~~syntaxhighlight ~~XPL0~~lang="xpl0">intI;forI:=1to9do[IntOut(0,I10000+(I+9)100+I+18);ChOut(0,^ )]</~~lang~~syntaxhighlight> {{out}} <pre>