Logo

Programming-Idioms

New implementation

Be concise.

Be useful.

All contributions dictatorially edited by webmasters to match personal tastes.

Please do not paste any copyright violating resource.

Please try to avoid dependencies to third-party libraries and frameworks.

Other implementations
loop
   stuff();
   if not c then
      exit;
   end if;
end loop;
do {
	someThing();
	someOtherThing();
} while(c);
(loop []
  (do something)
  (when c
    (recur)))
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 done := false; !done; {
	someThing()
	someOtherThing()
	done = !c()
}
for{
   someThing()
   someOtherThing()
   if !c {
     break
   }
}
doowhile c b = do a <- b; if c a
                          then doowhile c b
                          else return a

doowhile (=="") getLine
gg
do {
   something();
} while (c);
do {
	someThing();
	someOtherThing();
} while(c);
(loop do (something)
      while c)
repeat
	someThing()
	someOtherThing()
until not c
do ... while(c);
do {
    echo '.';
} while ($c);
repeat
  Something;
  SomethingElse;
until not c;
repeat
  Something;
  SomethingElse;
until
  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)
Do 
    SomeThing()
    SomeOtherThing()
Loop While c