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

10,920 bytes added , 3 months ago

Added C3

Lerno

38

edits

Revision as of 11:07, 26 August 2022 (view source) Thundergnat (talk \| contribs) m (→‎{{header\|Raku}}: Updated for changed task requirements. Add some other similar manipulations.) ← Older edit		Latest revision as of 12:32, 28 February 2024 (view source) Lerno (talk \| contribs) (Added C3)
(22 intermediate revisions by 16 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}}== <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] Line 23: =={{header\|Ada}}== <syntaxhighlight lang=~~Ada~~"ada">with Ada.Text_Io; with Ada.Strings.Fixed; Line 61: =={{header\|ALGOL 68}}== <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 84: =={{header\|APL}}== {{works with\|Dyalog APL}} <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 Line 90: append list1 list2 list3</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}}== <syntaxhighlight lang=~~AutoHotkey~~"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 107 ⟶ 120: =={{header\|AWK}}== <syntaxhighlight lang=~~AWK~~"awk"> # syntax: GAWK -f APPEND_NUMBERS_AT_SAME_POSITION_IN_STRINGS.AWK BEGIN { Line 129 ⟶ 142: 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}}== <syntaxhighlight lang="c">#include<stdio.h> #include<stdlib.h> Line 141 ⟶ 230: }</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]) Line 169 ⟶ 277: {{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#}}== <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 \|_->()} Line 183 ⟶ 332: =={{header\|Factor}}== {{works with\|Factor\|0.99 2021-06-02}} <syntaxhighlight lang="factor">USING: kernel math.parser math.ranges present prettyprint sequences ; Line 193 ⟶ 342: =={{header\|FreeBASIC}}== <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 205 ⟶ 354: next i</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}}== <syntaxhighlight lang="go">package main import "fmt" Line 226 ⟶ 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''' <syntaxhighlight lang="jq">def list1 : [ range(1;10) ]; def list2 : [ range(10; 19)]; def list3 : [ range(19; 28) ]; Line 243 ⟶ 466: =={{header\|Julia}}== <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] Line 251 ⟶ 474: =={{header\|Lambdatalk}}== <syntaxhighlight lang=~~Scheme~~"scheme"> Using a function returning an array Line 283 ⟶ 506: -> 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}}== <syntaxhighlight lang=~~Mathematica~~"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}; Line 294 ⟶ 535: {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). <syntaxhighlight lang="pascal">program appendNumbersAtSamePositionInStrings(output); type Line 392 ⟶ 678: =={{header\|Perl}}== <syntaxhighlight lang="perl">use strict; use warnings; Line 415 ⟶ 701: =={{header\|Phix}}== <!--<syntaxhighlight lang=~~Phix~~"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> <!--</syntaxhighlight>--> Line 421 ⟶ 707: <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}}== <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 435 ⟶ 798: 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], Line 443 ⟶ 806: {{out}} <pre>['11019', '21120', '31221', '41322', '51423', '61524', '71625', '81726', '91827']</pre> =={{header\|Quackery}}== <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> {{out}} <pre>11019 21120 31221 41322 51423 61524 71625 81726 91827</pre> =={{header\|Raku}}== Various manipulations. <syntaxhighlight lang=~~perl6~~"raku" line>my @lists = 1..9, 10..18, 19..27; put [Z~] @lists; # the task put [Z~] @lists».flip; # each component reversed Line 458 ⟶ 842: =={{header\|Ring}}== <syntaxhighlight lang="ring"> load "stdlib.ring" list1 = [1,2,3,4,5,6,7,8,9] Line 488 ⟶ 872: <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}}== <syntaxhighlight lang="ruby">list1 = (1..9) .to_a list2 = (10..18).to_a list3 = (19..27).to_a Line 501 ⟶ 902: =={{header\|Sidef}}== <syntaxhighlight lang="ruby">var lists = [ [1,2,3,4,5,6,7,8,9], [10,11,12,13,14,15,16,17,18], Line 514 ⟶ 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 530 ⟶ 931: =={{header\|Wren}}== <syntaxhighlight lang=~~ecmascript~~"wren">var list1 = (1..9).toList var list2 = (10..18).toList var list3 = (19..27).toList Line 542 ⟶ 943: =={{header\|XPL0}}== <syntaxhighlight lang=~~XPL0~~"xpl0">intI;forI:=1to9do[IntOut(0,I10000+(I+9)*100+I+18);ChOut(0,^ )]</syntaxhighlight> {{out}} <pre>