Loops/Break: Difference between revisions

 

=={{header|Ada}}==

with Ada.Numerics.Discrete_Random;

 

procedure Test_Loop_Break is

package Random_Values is new Ada.Numerics.Discrete_Random (Value_Type);

use Random_Values;

Put_Line (Value_Type'Image (B));

end loop;

=={{header|AutoHotkey}}==

{

Random, var, 0, 19

output = %output%`n%var%

}

 

=={{header|BASIC}}==

{{works with|QuickBasic|4.5}}

a = int(rnd * 20)

print a

b = int(rnd * 20)

print b

 

=={{header|C}}==

 

 

=={{header|C sharp|C#}}==

{

{

}

 

=={{header|Chef}}==

"Liquify" is now depreciated in favor of "Liquefy", but my interpreter/compiler ([http://search.cpan.org/~smueller/Acme-Chef/ Acme::Chef]) works only with "Liquify" so that's how I'm leaving it. At least it'll work no matter which version you use.

<div style='width:full;overflow:scroll'>

 

Makes a whole lot of sauce for two people.

Pour contents of the 1st mixing bowl into the 1st baking dish.

 

</div>

 

=={{header|Clojure}}==

(println a)

(when-not (= 10 a)

(println b)

 

=={{header|Common Lisp}}==

 

 

 

 

void main() {

}

 

=={{header|E}}==

def a := entropy.nextInt(20)

print(a)

}

println(" ", entropy.nextInt(20))

 

=={{header|Forth}}==

 

: main

10 = if leave then

i random .

 

=={{header|Fortran}}==

{{works with|Fortran|90 and later}}

implicit none

 

end do

 

 

=={{header|Haskell}}==

import System.Random

 

unless (r==k) $ do

print =<< randomRIO (0,n)

Use:

 

=={{header|J}}==

end.

 

=={{header|Java}}==

 

Random rand = new Random();

int b = rand.nextInt(20);

System.out.println(b);

 

=={{header|JavaScript}}==

var a = Math.floor(Math.random() * 20);

print(a);

a = Math.floor(Math.random() * 20);

print(a);

The <code>print()</code> function is available in the [[Rhino]] JavaScript shell.

 

=={{header|Lisaac}}==

 

+ name := TEST_LOOP_BREAK;

'\n'.print;

}

 

=={{header|M4}}==

define(`setRand',

`define(`randSeed',ifelse(eval($1<10000),1,`eval(20000-$1)',`$1'))')dnl

loopbreak')')dnl

dnl

 

<pre>

a=17

a=10

</pre>

 

=={{header|Modula-3}}==

 

IMPORT IO, Fmt, Random;

END;

END;

 

=={{header|MOO}}==

a = random(20) - 1;

player:tell(a);

b = random(20) - 1;

player:tell(b);

 

=={{header|OCaml}}==

- : unit = ()

 

13

10

 

=={{header|Octave}}==

a = floor(unifrnd(0,20, 1));

disp(a)

b = floor(unifrnd(0,20, 1));

disp(b)

 

=={{header|Perl}}==

my $a = int(rand(20));

print "$a\n";

my $b = int(rand(20));

print "$b\n";

 

 

=={{header|PHP}}==

$a = rand(0,19);

echo "$a\n";

$b = rand(0,19);

echo "$b\n";

 

=={{header|Pike}}==

while(1){

int a = random(20);

write(b + "\n");

}

 

=={{header|PowerShell}}==

for () {

$n = $r.Next(20)

}

Write-Host $r.Next(20)

 

=={{header|Python}}==

 

while True:

if a == 10:

break

 

=={{header|R}}==

{{works with|R|2.8.1}}

repeat

{

result2 <- sample0to19()

cat(result1, result2, "\n")

 

=={{header|Ruby}}==

 

=={{header|Scala}}==

 

 

 

 

 

 

}

}

 

=={{header|TI-89 BASIC}}==

 

Loop

rand(20)-1 → x

EndIf

Output 64, 50, rand(20)-1 © paint text to the right on same line

 

}