• Haskell

everySecond :: [a] -> [a]
everySecond [] = []
everySecond (_:[]) = []
everySecond (_:x:xs) = x : everySecond xs
everySecond' :: [a] -> [a]
everySecond' = everySecond . (undefined :)

mapM_ print (zip (everySecond list) (everySecond' list))

• Haskell

pair :: [a] -> [(a, a)]
pair [] = []
pair (x:[]) = error "List had odd length"
pair (x:y:xs) = (x, y) : pair xs

mapM_ print (pair list)

• C

for (unsigned i = 0; i < sizeof(list) / sizeof(list[0]); i += 2)
	printf("%d, %d\n", list[i], list[i + 1]);

• Clojure

(doseq [xs (partition 2 list)]
  (apply println xs))

• C#

foreach (var chunk in list.Chunk(2))
{
    Console.WriteLine(string.Join(' ', chunk));
}

• C#

for(int i = 0; i < list.Count; i += 2) {
  Console.WriteLine(string.Format("{0}, {1}", list[i], list[i + 1]));
}

• D

list.chunks(2).each!writeln;

• Dart

for(int i = 0; i < list.length; i += 2) {
  print("${list[i]}, ${list[i + 1]}");
}

• Fortran

write (*,'(2I8,:," ")') list

• Go

for i := 0; i+1 < len(list); i += 2 {
	fmt.Println(list[i], list[i+1])
}

• JS

for (let index = 0; index < list.length; index = index + 2) {
  console.log(list[index], list[index + 1])
}

• Java

for(int i = 0; i < list.length; i += 2) {
  System.out.println(list[i] + ", " + list[i + 1]);
}

• Java

range(0, list.size())
    .filter(i -> i % 2 == 0)
    .mapToObj(i -> list.get(i) + ", " + list.get(i + 1))
    .forEach(out::println);

• PHP

foreach(array_chunk($list, 2) as $x) {
    echo $x[0], ' ', $x[1], PHP_EOL;
}

• Pascal

i := Low(L);
while (i < High(L)) do
begin
  writeln(L[i],', ', L[i+1]);
  Inc(i,2);
end;

• Perl

foreach (pairs @list) {
   print "@$_\n";
}

• Python

for x in batched(a, 2): print(x)

• Python

for x in range(0, len(list), 2):
    print(list[x], list[x + 1])

• Python

def pairwise(iterable):
    "s -> (s0,s1), (s1,s2), (s2, s3), ..."
    a, b = tee(iterable)
    next(b, None)
    return zip(a, b)

for a, b in pairwise(list):
    print(a, b)

• Python

for x in zip(list[::2], list[1::2]):
    print(x)

• Python

x = iter(list)
print(*zip_longest(x, x))

• Ruby

list.each_slice(2){|slice| p slice}

• Rust

for pair in list.chunks(2) {
    println!("({}, {})", pair[0], pair[1]);
}

• Scala

for (pair <- list.grouped(2))
  println(s"(${pair(0)}, ${pair(1)})")

• Scheme

(let print-pairs ((l list))
  (if (null? l)
      '()
      (begin
        (display (car l))
        (display " ")
        (display (cadr l))
        (newline)
        (print-pairs (cddr l)))))

• Smalltalk

list pairsDo: [:a :b |
  Transcript showln: 'a: ' , a , ' b: ' , b].

• VB

Dim ItemList As New List(Of String)(New String() {"one", "one", "two", "two", "three", "three"})
For x = 0 To ItemList.Count - 1 Step 2
    Console.WriteLine(ItemList(x) & vbTab & ItemList(x + 1))
Next