Get index of list dart

items.asMap[].forEach[[i, value] { print['index=$i, value=$value']; }];

for [var i = 0; i < items.length; i++] { print['index=$i, value=${items[i]}']; }

with Ada.Text_IO; use Ada.Text_IO;

for I in Items'Range loop X := Items [I]; Put_Line [Integer'Image [I] & " " & Integer'Image [X]]; end loop;

for [size_t i = 0; i < n; i++] { printf["Item %d = %s\n", i, toString[items[i]]]; }

[* output_elem is a printer for elements of [items] *] items |> List.iteri [fun i x -> printf "%d: %a" i output_elem x ]

[doseq [[i x] [map-indexed vector items]] [println i ":" x]]

#include

for [std::size_t ix = 0; ix < items.size[]; ++ix] { std::cout $x] { echo "i=$i, x=$x"; echo '
'; }

var I:Integer; Items: array of String; [..] for I := 0 to high[Items] do WriteLn['Item ', I, ' = ', Items[I]];

uses Classes, SysUtils;

var I:Integer; Items: array of TObject; [...] for I := 0 to high[Items] do if assigned[Items[I]] then WriteLn[Format['Item %d = %s', [I, Items[I].ToString]]];

use 5.012; # each @array

# For an array while [my [$idx, $val] = each @array] { print "array[$idx] = $val\n"; } # For a hash while [my [$key, $val] = each %hash] { print "hash{$key} = $val\n"; }

for i, x in enumerate[items]: print i, x

items.each_with_index do |x, i| puts "Item #{i} = #{x}" end

items.each_index{|i| puts "Item %d = %s" % [i, items[i]]}

for [i, x] in items.iter[].enumerate[] { println!["Item {} = {}", i, x]; }

items.iter[].enumerate[].for_each[|[i, x]| { println!["Item {} = {}", i, x]; }]

val items = List["a", "b", "c"] items.zipWithIndex.foreach{ case [item, index] => println[s"$index => $item"] }

[define [display-list items] [define [display-list items i] [if [not [null? items]] [begin [display [string-append [number->string i] ": " [number->string [first items]] "\n"]] [display-list [rest items] [+ i 1]]] 'done]] [display-list items 0]]

items withIndexDo: [:item :index | Transcript showln: 'item: ' , item asString , ' index: ' , index asString].

Imports System

For i As Integer = 0 To items.Length - 1 Dim x = items[i] Console.WriteLine[$"Item {i} = {x}"] Next

Imports System

For i As Integer = 0 To items.Count - 1 Dim x = items[i] Console.WriteLine[$"Item {i} = {x}"] Next