Data commit

Task/Hamming-numbers/R/hamming-numbers-1.r

@@ -0,0 +1,14 @@
+hamming=function(hamms,limit) {
+  tmp=hamms
+  for(h in c(2,3,5)) {
+    tmp=c(tmp,h*hamms)
+  }
+  tmp=unique(tmp[tmp<=limit])
+  if(length(tmp)>length(hamms)) {
+    hamms=hamming(tmp,limit)
+  }
+  hamms
+}
+h <- sort(hamming(1,limit=2^31-1))
+print(h[1:20])
+print(h[length(h)])

Task/Hamming-numbers/R/hamming-numbers-2.r

@@ -0,0 +1,8 @@
+hamming <- function(n) {
+  a <- numeric(n)
+  a[1] <- 1
+  for (i in 2:n) {
+    a[i] <- nextn(a[i-1]+1)
+  }
+  a
+}