lambdaway :: hamming

3 | list | login |load

| |

_h1 hamming number | [[1|?view=hamming_numbers]] | [[2|?view=hamming_numbers2]] | [[3|?view=hamming_numbers3]] | 4

_ul [[pascal|https://rosettacode.org/wiki/Hamming_numbers#Pascal]]

{prewrap
{nexth 16}

'{def H {removedup {S.map nexth {S.serie 0 1000}}}}
'{S.slice 0 19 {H}}
'{S.length {H}}

{S.last {S.map {{lambda {:n :i} {A.set! 0
                                 {nexth {A.get 0 :n}}
                                 :n}
         } {A.new 1}}
        {S.serie 0 100}}}
}

{pre
procedure Check;
var
  i,n: NativeUint;
begin
  n := 1;
  for i := 1 to 20 do
  begin
    n := NextHammNumb(n);
    write(n,' ');
  end;
  writeln;
  writeln;
  n := 1;
  for i := 1 to 1690 do
    n := NextHammNumb(n);
  writeln('No ',i:4,' | ',n,' = 2^',Pot[0],' 3^',Pot[1],' 5^',Pot[2]);
end;
}
 
{script

var idiv = function(a,b) {
  return Math.round(a/b)
};

LAMBDATALK.DICT['nexth'] = function() {
  var args = arguments[0].trim();
  return nextham( Number(args) )
};

LAMBDATALK.DICT['removedup'] = function() {  // {removedup a b c ...}
  var args = arguments[0].trim().split(" ");
  var out = [args[0]];
  for (var i=1; i < args.length; i++)
    if (args[i] !== args[i-1]) out.push( args[i] )
  return out.join(" ")
};

}