aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Add tasks for all the new languages

Browse source
This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Random-number-generator--device-/EchoLisp/random-number-generator--device-.echolisp Normal file
View file

@ -0,0 +1,10 @@
(random-seed "simon")
(random (expt 2 32)) → 2275215386
(random-seed "simon")
(random (expt 2 32)) → 2275215386 ;; the same
(random-seed (current-time-milliseconds ))
(random (expt 2 32)) → 4061857345
(random-seed (current-time-milliseconds ))
(random (expt 2 32)) → 1322611152

10
Task/Random-number-generator--device-/FreeBASIC/random-number-generator--device-.freebasic Normal file
View file

@ -0,0 +1,10 @@
' FB 1.05.0 Win64
Randomize , 5
'generate 10 cryptographic random integers in the range 1 To 100
For i As Integer = 1 To 10
Print Int(Rnd * 100) + 1
Next
Sleep

1
Task/Random-number-generator--device-/Lasso/random-number-generator--device-.lasso Normal file
View file

@ -0,0 +1 @@
file(`/dev/urandom`)->readSomeBytes(4)->export32bits

5
Task/Random-number-generator--device-/Nim/random-number-generator--device-.nim Normal file
View file

@ -0,0 +1,5 @@
var f = open("/dev/urandom")
var r: int32
discard f.readBuffer(addr r, 4)
close(f)
echo r

4
Task/Random-number-generator--device-/Ring/random-number-generator--device-.ring Normal file
View file

@ -0,0 +1,4 @@
nr = 10
for i = 1 to nr
see random(i) + nl
next

11
Task/Random-number-generator--device-/Sidef/random-number-generator--device-.sidef Normal file
View file

@ -0,0 +1,11 @@
func urandom() {
const device = %f'/dev/urandom';
device.open('<:raw', \var fh, \var err) ->
|| die "Can't open `#{device}': #{err}";
fh.sysread(\var noise, 4);
'L'.unpack(noise);
}
say urandom(); # sample: 3517432564