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

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

24
Task/Hamming-numbers/Sidef/hamming-numbers.sidef
View file

@ -1,21 +1,21 @@
func ham_gen {
var s = [[1], [1], [1]];
var m = [2, 3, 5];
var s = [[1], [1], [1]]
var m = [2, 3, 5]
 
func {
var n = [s[0][0], s[1][0], s[2][0]].min;
for i in (0..2) {
s[i].shift if (s[i][0] == n);
s[i].append(n * m[i]);
}
var n = [s[0][0], s[1][0], s[2][0]].min
{ |i|
s[i].shift if (s[i][0] == n)
s[i].append(n * m[i])
} << ^3
return n
}
}
var h = ham_gen();
var h = ham_gen()
var i = 20;
say i.of { h() }.join(' ');
say i.of { h() }.join(' ')
range(i+1, 1691-1).each { h() }
say h();
{ h() } << (i+1 ..^ 1691)
say h()