コラッツの問題その3 - (define -ayalog '())

コラッツの問題その3 - (define -ayalog '())

まだやってたのかって感じだけど、たぶんこれが最速。 まず、こういうものを定義します。 macro collatz...概要を表示 まだやってたのかって感じだけど、たぶんこれが最速。 まず、こういうものを定義します。 macro collatz_calc { case { _ ($from:lit, $to:lit) } => { var from = unwrapSyntax(#{$from}), to = unwrapSyntax(#{$to}), max = 0, val, result; function collatz(n){ var m = n, count = 0; while(m !== 1){ count++; m = (m & 1) ? (m<<1)+m+1 : m >> 1; } return count; } for(var i=from; i<=to; i++){ val = collatz(i); if(val > max){ max = val; result = i; } } letst