View source for Append numbers at same position in strings

{{Draft task}}

;Task:
<br>Let given three list:
<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 numbers at same position in strings.
<br>The result should be:
<br>list = [11019,21120,31221,41322,51423,61524,71625,81726,91827]

=={{header|11l}}==
<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>

{{out}}
<pre>
[11019, 21120, 31221, 41322, 51423, 61524, 71625, 81726, 91827]
</pre>

=={{header|Ada}}==
<lang Ada>with Ada.Text_Io;
with Ada.Strings.Fixed;

procedure Append_Numbers is

   use Ada.Text_Io, Ada.Strings;

   type List_Type is array (Positive range <>) of Natural;

   procedure Put (List : List_Type) is
   begin
      Put ("[");
      for E of List loop
         Put (Natural'Image (E));
      end loop;
      Put ("]");
   end Put;

   List_1 : constant List_Type := ( 1,  2,  3,  4,  5,  6,  7,  8,  9);
   List_2 : constant List_Type := (10, 11, 12, 13, 14, 15, 16, 17, 18);
   List_3 : constant List_Type := (19, 20, 21, 22, 23, 24, 25, 26, 27);
   List   : List_Type (List_1'Range);
begin
   for A in List'Range loop
      List (A) := Natural'Value
        (Fixed.Trim (Natural'Image (List_1 (A)), Left) &
         Fixed.Trim (Natural'Image (List_2 (A)), Left) &
         Fixed.Trim (Natural'Image (List_3 (A)), Left));
   end loop;

   Put (List);  New_Line;
end Append_Numbers;</lang>
{{out}}
<pre>
[ 11019 21120 31221 41322 51423 61524 71625 81726 91827]
</pre>

=={{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|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]
list4 := []

for i, v in list1
    list4.Push(v . list2[i] . list3[i])
for i, v in list4
    result .= v ", "
MsgBox % "[" trim(result, ", ") "]"</lang>
{{out}}
<pre>[11019, 21120, 31221, 41322, 51423, 61524, 71625, 81726, 91827]</pre>
=={{header|AWK}}==
<lang AWK>
# syntax: GAWK -f APPEND_NUMBERS_AT_SAME_POSITION_IN_STRINGS.AWK
BEGIN {
    n1 = split("1,2,3,4,5,6,7,8,9",list1,",")
    n2 = split("10,11,12,13,14,15,16,17,18",list2,",")
    n3 = split("19,20,21,22,23,24,25,26,27",list3,",")
    if (n1 != n2 || n1 != n3) {
      print("error: arrays must be same length")
      exit(1)
    }
    for (i=1; i<=n1; i++) {
      list[i] = list1[i] list2[i] list3[i]
      printf("%s ",list[i])
    }
    printf("\n")
    exit(0)
}
</lang>
{{out}}
<pre>
11019 21120 31221 41322 51423 61524 71625 81726 91827
</pre>

=={{header|C}}==
<lang c>#include<stdio.h>
#include<stdlib.h>

int main(void) {
    int list[3][9], i;
    for(i=0;i<27;i++) list[i/9][i%9]=1+i;
    for(i=0;i<9;i++) printf( "%d%d%d  ", list[0][i], list[1][i], list[2][i] );
    return 0;
}</lang>
{{out}}<pre>11019  21120  31221  41322  51423  61524  71625  81726  91827</pre>

=={{header|F_Sharp|F#}}==
<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 "" 
</lang>
{{out}}
<pre>
11019 21120 31221 41322 51423 61524 71625 81726 91827 
</pre>
=={{header|Factor}}==
{{works with|Factor|0.99 2021-06-02}}
<lang factor>USING: kernel math.parser math.ranges present prettyprint
sequences ;

27 [1,b] 9 cut 9 cut [ [ present ] tri@ 3append dec> ] 3map .</lang>
{{out}}
<pre>
{ 11019 21120 31221 41322 51423 61524 71625 81726 91827 }
</pre>

=={{header|FreeBASIC}}==
<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}
dim as integer catlist(1 to 9)
dim as string temp

for i as uinteger = 1 to 9
    temp = str(list1(i)) + str(list2(i)) + str(list3(i))
    catlist(i) = val(temp)
    print catlist(i);" ";
next i</lang>
{{out}}<pre>11019  21120  31221  41322  51423  61524  71625  81726  91827</pre>

=={{header|Go}}==
<lang go>package main

import "fmt"

func main() {
    list1 := [9]int{1, 2, 3, 4, 5, 6, 7, 8, 9}
    list2 := [9]int{10, 11, 12, 13, 14, 15, 16, 17, 18}
    list3 := [9]int{19, 20, 21, 22, 23, 24, 25, 26, 27}
    var list [9]int
    for i := 0; i < 9; i++ {
        list[i] = list1[i]*1e4 + list2[i]*1e2 + list3[i]
    }
    fmt.Println(list)
}</lang>

{{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 jq>def list1 : [ range(1;10) ];
def list2 : [ range(10; 19)];
def list3 : [ range(19; 28) ];

[list1, list2, list3]
| transpose
| map( map(tostring) | add | tonumber)</lang>
{{out}}
<pre>
[11019,21120,31221,41322,51423,61524,71625,81726,91827]
</pre>

=={{header|Julia}}==
<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"]
</lang>
=={{header|Mathematica}} / {{header|Wolfram Language}}== 
<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>

{{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&nbsp;1 (specifically “conformant array parameters” are being used).
<lang pascal>program appendNumbersAtSamePositionInStrings(output);

type
	wholeNumber = 0..maxInt;

var
	i: integer;
	{ Indices were chosen to ease up initialization in main block. }
	list0: array[1..9] of wholeNumber;
	list1: array[10..18] of wholeNumber;
	list2: array[19..27] of wholeNumber;

{ Returns the number of digits necessary to express as decimal. }
function digitCount(i: wholeNumber): wholeNumber;
begin
	{ Instead of an `if` branch you can simply write: }
	i := i + ord(i = 0);
	{ Remember: Argument to `ln` must be positive. }
	digitCount := succ(trunc(ln(i) / ln(10)))
end;

{ Appends two list members in place. }
procedure append(
		{ DI: Destination Index; SI: Source Index. }
		var destination: array[diMin..diMax: integer] of wholeNumber;
		source: array[siMin..siMax: integer] of wholeNumber
	);
var
	i, n: integer;
begin
	{ Determine maximum index range. }
	i := diMax - diMin;
	if (siMax - siMin) < i then
	begin
		i := siMax - siMin
	end;
	
	{ NB: In Pascal `for`-loop-limits are evaluation exactly once only. }
	for i := 0 to i do
	begin
		{ In Extended Pascal (ISO 10206) you could actually simply write: }
		{ … := destination[diMin + i] * 10 pow digitCount(source[siMin + i]) }
		for n := 1 to digitCount(source[siMin + i]) do
		begin
			destination[diMin + i] := destination[diMin + i] * 10
		end;
		destination[diMin + i] := destination[diMin + i] + source[siMin + i]
	end
end;

{ Calls `append` twice. }
procedure appendTwo(
		var destination: array[diMin..diMax: integer] of wholeNumber;
		source0: array[si0Min..si0Max: integer] of wholeNumber;
		source1: array[si1Min..si1Max: integer] of wholeNumber
	);
begin
	append(destination, source0);
	append(destination, source1)
end;

{ === MAIN ============================================================= }
begin
	for i := 1 to 9 do
	begin
		list0[i] := i
	end;
	for i := 10 to 18 do
	begin
		list1[i] := i
	end;
	for i := 19 to 27 do
	begin
		list2[i] := i
	end;
	
	appendTwo(list0, list1, list2);
	
	for i := 1 to 9 do
	begin
		writeLn(list0[i])
	end
end.</lang>
{{out}}
       11019
       21120
       31221
       41322
       51423
       61524
       71625
       81726
       91827

=={{header|Perl}}==
<lang perl>use strict;
use warnings;

my @a = < 1  2  3  4  5  6  7  8  9>;
my @b = <10 11 12 13 14 15 16 17 18>;
my @c = <19 20 21 22 23 24 25 26 27>;
my @d = <1  2  2  2  2  2  2  2  2 >;
my @e = < 9  0  1  2  3  4  5  6  7>;
my @f = (\@a, \@b, \@d, \@e);

# for just the three given lists
print $a[$_] . $b[$_] . $c[$_] . ' ' for 0..$#a; print "\n";

# for arbitrary number of lists
for my $i (0 .. $#{$f[0]}) {
    map {print $f[$_][$i] } 0 .. $#f and print ' '
}
print "\n";</lang>
{{out}}
<pre>11019 21120 31221 41322 51423 61524 71625 81726 91827
11019 21120 31221 41322 51423 61524 71625 81726 91827</pre>

=={{header|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>-->
{{out}}
<pre>
{11019,21120,31221,41322,51423,61524,71625,81726,91827}{11019,21120,31221,41322,51423,61524,71625,81726,91827}
</pre>

=={{header|Python}}==
<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]

print([
    ''.join(str(n) for n in z) for z
    in zip(list1, list2, list3)
])</lang>
{{out}}
<pre>['11019', '21120', '31221', '41322', '51423', '61524', '71625', '81726', '91827']</pre>

=={{header|Raku}}==
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.)

<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>

=={{header|Ring}}==
<lang ring>
load "stdlib.ring"
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]
list = []

for n = 1 to len(list1)
    str1 = string(list1[n])
    str2 = string(list2[n])
    str3 = string(list3[n])
    str = str1 + str2 + str3
    add(list,str)
next

showArray(list)

func showArray(array)
     txt = ""
     see "["
     for n = 1 to len(array)
         txt = txt + array[n] + ","
     next
     txt = left(txt,len(txt)-1)
     txt = txt + "]"
     see txt
</lang>
{{out}}
<pre>
list = [11019,21120,31221,41322,51423,61524,71625,81726,91827][11019,21120,31221,41322,51423,61524,71625,81726,91827]
</pre>

=={{header|Ruby}}==
<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>
{{out}}
<pre>[11019, 21120, 31221, 41322, 51423, 61524, 71625, 81726, 91827]
</pre>

=={{header|Sidef}}==
<lang ruby>var 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],
]

say lists.zip.map_2d {|*a| a.join.to_i }</lang>

{{out}}
<pre>
[11019, 21120, 31221, 41322, 51423, 61524, 71625, 81726, 91827]
</pre>

=={{header|Vlang}}==
{{trans|go}}
<lang vlang>fn main() {
    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]!
    mut list := [9]int{}
    for i in 0..9 {
        list[i] = list1[i]*int(1e4) + list2[i]*int(1e2) + list3[i]
    }
    println(list)
}</lang>
{{out}}
<pre>[11019, 21120, 31221, 41322, 51423, 61524, 71625, 81726, 91827]</pre>

=={{header|Wren}}==
<lang ecmascript>var list1 = (1..9).toList
var list2 = (10..18).toList
var list3 = (19..27).toList
var list  = (0..8).map { |i| 1e4*list1[i] + 100*list2[i] + list3[i] }.toList
System.print(list)</lang>

{{out}}
<pre>
[11019, 21120, 31221, 41322, 51423, 61524, 71625, 81726, 91827]
</pre>

=={{header|XPL0}}==
<lang XPL0>intI;forI:=1to9do[IntOut(0,I*10000+(I+9)*100+I+18);ChOut(0,^ )]</lang>
{{out}}
<pre>
11019 21120 31221 41322 51423 61524 71625 81726 91827 
</pre>