Programming-Idioms

This language bar is your friend. Select your favorite languages!

Idiom #78 "do while" loop

Execute a block once, then execute it again as long as boolean condition c is true.

repeat
  Something;
  SomethingElse;
until not c;
repeat
  Something;
  SomethingElse;
until
  c;
do {
	someThing();
	someOtherThing();
} while(c);
IDENTIFICATION DIVISION.
PROGRAM-ID. "do while" loop.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 boolean-c    PIC x.
   88 c-true    PIC x VALUE 't'.
   88 c-false   PIC x VALUE 'f'.
PROCEDURE DIVISION.
    PERFORM WITH TEST AFTER UNTIL c-false
       PERFORM somthing
    END-PERFORM   
STOP RUN.
do {
  someThing();
  someOtherThing();
} while(c);
do
{
    stuff();
} while(c);
do
{
    something;
    somethingElse;
}
while (c);
do {
  someThing();
  someOtherThing();
} while(c);
do_while(Block, C) ->
  case C(Block()) of
    true -> do_while(Block, C);
    false -> ok
  end.
do
  call do_something
  if (.not. c) exit
end do
for{
   someThing()
   someOtherThing()
   if !c {
     break
   }
}
for done := false; !done; {
	someThing()
	someOtherThing()
	done = !c()
}
doowhile c b = do a <- b; if c a
                          then doowhile c b
                          else return a

doowhile (=="") getLine
do {
   something();
} while (c);
do {
	someThing();
	someOtherThing();
} while(c);
(loop do (something)
      while c)
repeat
	someThing()
	someOtherThing()
until not c
do {
    echo '.';
} while ($c);
do {
    doSomeStuff();
} while(c);
while True:
    do_something()
    if not c:
        break
begin
  # code
end while c
loop {
    doStuff();
    if !c { break; }
}
do {
  someThing()
  someOtherThing()
} while (c)
Sub someThing() 
Do 
   [someThing()  1]
   [someThing()  2]
   ...
   [someThing()  n]
   [Exit Do]
   [someThing()  1]
   [someThing()  2]
   ...
   [someThing()  n]
Loop While condition
End Sub 

Do you know the best way to do this in your language ?
New implementation...

Idiom created by

deleplace