Loops/Do-while: Difference between revisions
added common lisp and ruby |
added php |
||
Line 217: | Line 217: | ||
$val++; |
$val++; |
||
print "$val\n"; |
print "$val\n"; |
||
} while ($val % |
} while ($val % 6 != 0);</perl> |
||
=={{header|PHP}}== |
|||
<php>$val = 0; |
|||
do { |
|||
$val++; |
|||
print "$val\n"; |
|||
} while ($val % 6 != 0);</php> |
|||
=={{header|Pop11}}== |
=={{header|Pop11}}== |
Revision as of 02:54, 29 November 2008
You are encouraged to solve this task according to the task description, using any language you may know.
Start with a value at 0. Loop while value mod 6 is not equal to 0. Each time through the loop, add 1 to the value then print it. The loop must execute at least once.
Ada
<ada> Value : Integer := 0;
loop
Value := Value + 1; Put (Value); exit when Value mod 6 = 0;
end loop; </ada> Here is an alternative version: <ada> for Value in 0..Integer'Last loop
Put (Value); exit when Value mod 6 = 0;
end loop; </ada>
BASIC
<qbasic>a = 0 do
a = a + 1 print a
loop while a mod 6 <> 0</qbasic>
Befunge
0>1+:.v |%6: < @
C
<c>int val = 0; do{
val++; printf("%d",val);
}while(val % 6 != 0);</c>
C++
<cpp>int val = 0; do{
val++; cout << val << endl;
}while(val % 6 != 0);</cpp>
ColdFusion
<cfscript> value = 0; do { value += 1; writeOutput( value ); } while( value % 6 != 0 ); </cfscript>
Common Lisp
<lisp>(setq val 0) (loop do
(incf val) (print val) while (/= 0 (mod val 6)))</lisp>
D
<d>int val = 0; do{
val++; writefln(val);
}while(val % 6 != 0);</d>
Forth
: do-until 0 begin 1+ dup . dup 6 mod 0= until drop ;
Fortran
INTEGER :: i = 0 DO i = i + 1 WRITE(*, *) i IF (MOD(i, 6) == 0) EXIT END DO
J
J is array-oriented, so there is very little need for loops. For example, one could satisfy this task this way:
,. ([^:(0=6|])>:)^:a: 0
J does support loops for those times they can't be avoided (just like many languages support gotos for those time they can't be avoided).
3 : 0 ] 0 NB. The 'st' in 'whilst' stands for 'skip test' whilst. 0 ~: 6 | y do. y 1!:2 ]2 y =. y+1 end. i.0 0 )
Though it's rare to see J code like this.
Java
<java>int val = 0; do{
val++; System.out.println(val);
}while(val % 6 != 0);</java>
JavaScript
<javascript>var val = 0; do {
print(++val);
} while (val % 6);</javascript>
Logo
make "val 0 do.while [make "val :val + 1 print :val] [notequal? 0 modulo :val 6] do.until [make "val :val + 1 print :val] [equal? 0 modulo :val 6]
to my.loop :n make "n :n + 1 print :n if notequal? 0 modulo :n 6 [my.loop :n] end my.loop 0
MAXScript
a = 0 do ( print a a += 1 ) while mod a 6 != 0
OCaml
OCaml doesn't have a do-while loop, so we can just make a local loop: <ocaml>let rec loop i =
let i = succ i in Printf.printf "%d\n" i; if i mod 6 <> 0 then loop i in loop 0</ocaml>
or implementing a generic do-while iterator with higher order function:
<ocaml>let do_while f p =
let rec loop() = f(); if p() then loop() in loop()
(** val do_while : (unit -> 'a) -> (unit -> bool) -> unit *) </ocaml>
<ocaml>let v = ref 0 in do_while (fun () -> incr v; Printf.printf "%d\n" !v)
(fun () -> !v mod 6 <> 0)</ocaml>
The example above is the an imperative form, below is its functional counterpart: <ocaml>let do_while f p ~init =
let rec loop v = let v = f v in if p v then loop v in loop init
do_while (fun v ->
let v = succ v in Printf.printf "%d\n" v; (v)) (fun v -> v mod 6 <> 0) ~init:0</ocaml>
Or in a very poor OCaml style, we can use an exception to exit a while loop: <ocaml>let v = ref 0 exception Exit_loop try while true do
incr v; Printf.printf "%d\n" !v; if not(!v mod 6 <> 0) then raise Exit_loop;
done with Exit_loop -> ()</ocaml>
Pascal
<pascal> program countto6(output);
var
i: integer;
begin
i := 0; repeat i := i + 1; writeln(i) until i mod 6 = 0
end. </pascal>
Perl
<perl>$val = 0; do {
$val++; print "$val\n";
} while ($val % 6 != 0);</perl>
PHP
<php>$val = 0; do {
$val++; print "$val\n";
} while ($val % 6 != 0);</php>
Pop11
lvars val = 0; while true do val + 1 -> val; printf(val, '%p\n'); quitif(val rem 6 = 0); endwhile;
Python
<python>val = 0 while true:
val +=1 print val if val % 6 == 0: break</python>
or repeat the body of the loop before a standard while. <python>val = 1 print val while val % 6 != 0:
val += 1 print val
</python>
Ruby
val = 0 begin
val += 1 puts val
end while val % 6 != 0