Logo

Programming-Idioms

  • Fortran

Idiom #2 Print Hello 10 times

Loop to execute some code a constant number of times

Ten lines of Hello 
program main
  implicit none
  integer :: i
  do i=1,10
    write (*,'(A)') "Hello"
  end do
end program main

with Ada.Text_IO;
use Ada.Text_IO;
for I in 1 .. 10 loop
  Put_Line ("Hello");
end loop;
New implementation...
< > ⌨
programming-idioms.org 
program main
  implicit none
  integer :: i
  do i=1,10
    write (*,'(A)') "Hello"
  end do
end program main

for I in 1 .. 10 loop
  Put_Line ("Hello");
end loop;
for (int i = 0; i < 10; i++) {
    printf("Hello\n");
}

let rec n_hellos
    (n : int)
  : unit =
  if n = 0 then
    ()
  else
    (print_endline "Hello";
    n_hellos (n-1))

n_hello_worlds 10
(dotimes [_ 10]
  (println "Hello"))
IDENTIFICATION DIVISION.
PROGRAM-ID. hello 10 times.
PROCEDURE DIVISION.
PERFORM 10 TIMES
   DISPLAY "Hello"
END-PERFORM
STOP RUN.
for (int i = 0; i < 10; ++i)
  cout << "Hello\n";
Console.WriteLine( string.Concat(Enumerable.Repeat("Hello\n", 10)) );
Console.WriteLine(string.Join(Environment.NewLine, Enumerable.Repeat("Hello", 10)));
for (int i = 0; i < 10; i++)
{
    Console.WriteLine("Hello");
}
iota(0,10).each!(a => "Hello".writeln);
foreach(i; 0..10)
  writeln("Hello");
print("Hello\n" * 10);

for (var i = 0; i < 10; i++)
  print("Hello");
1..10 |> Enum.each(fn _ -> IO.puts "Hello" end)
lists:foreach(
  fun(_) ->
    io:format("Hello~n")
  end, lists:seq(1, 10)).
fmt.Println(strings.Repeat("Hello\n", 10))
for i := 0; i < 10; i++ {
	fmt.Println("Hello")
}

for range 10 {
	fmt.Println("Hello")
}

10.times {
    println 'Hello'
}​
replicateM_ 10 $ putStrLn "Hello"
let count = 0;
while (count < 10) {
  count++; 
  console.log('Hello');
};
[...Array(10)].forEach(() => console.log('Hello'))
console.log( 'Hello\n'.repeat(10) )
for (let i = 0; i < 10; i++) {
  console.log("Hello");
}
for(int i=0;i<10;i++)
  System.out.println("Hello");
generate(() -> "Hello%n")
    .limit(10)
    .forEach(out::printf);
range(0, 10).forEach(x -> out.println("Hello"));
System.out.print("Hello\n".repeat(10));
int i = 0;
do out.println("Hello");
while (i++ < 10);
for (int i = 0; i++ < 10; out.println("Hello"));
int i = 0;
while (i++ < 10) out.println("Hello");
(0..9).forEach {
    println("Hello")
}

for(x in 1..10) {
     println("Hello")
}
repeat(10) {
    println("Hello")
}
(loop repeat 10 do (write-line "Hello"))

for i=1, 10 do
	print('Hello')
end
print(("Hello\n"):rep(10))
local i = 0
repeat
	i = i + 1
	print("Hello")
until i == 10
print(string.rep("Hello\n", 10))
for (NSInteger i=0;i<10;i++){
NSLog(@"Hello");
}
for ($i = 0; $i < 10; $i++) {
    echo 'Hello' . PHP_EOL;
}
foreach(range(1, 10) as $i)
  echo 'Hello'. PHP_EOL;

var
  i: integer;
begin
  for i:=1 to 10 do
    WriteLn('Hello');
end;
print "Hello\n" x 10;
print "Hello\n" for 1 .. 10;
say "Hello" for 1 .. 10;
:- initialization(main).
main :- loop(10).

loop(0).
loop(N) :- N>0, write('Hello') , nl, N1 = N - 1, loop(N1).
f = lambda: print('Hello')
for x in range(10): f()
def f(): print('Hello')
for x in range(10): f()
print("Hello\n"*10)
for _ in range(10):
    print("Hello")
for x in repeat('Hello', 10): print(x)
i = 0
while i < 10:
    print('Hello')
    i += 1
puts "Hello\n" * 10
10.times { puts 'Hello' }
10.times do
  puts "Hello"
end
for _ in 0..10 { println!("Hello"); }
print!("{}", "Hello\n".repeat(10));
(0 until 10).foreach( _ => println("Hello"))
println("Hello\n"*10)
(define (hellos i)
        (if (> i 0)    
            (begin
                (display "Hello")
                (newline)
                (hellos (- i 1)))))
(hellos 10)
(do ((i 0 (+ i 1)))
    ((= i 10))
  (display "Hello")
  (newline))
(for-each (lambda (x) (display "Hello\n")) (iota 10))

10 timesRepeat: [Transcript showln: 'Hello'].
For x = 1 To 10
    Console.WriteLine("Hello")
Next x