Esthetic numbers: Difference between revisions
m
→JavaScript :: Functional
Line 3,172:
"use strict";
//
// estheticNumbersInBase :: Int -> [Int]
const estheticNumbersInBase = b =>
// An infinite sequence of numbers which
// are esthetic in the given base.
▲ ) : []
);
▲ return Tuple(num)(
▲ queue.slice(1).concat(
▲ newDigits.flatMap(
▲ d => [Tuple((num * b) + d)(d)]
▲ )
▲ )
▲ );
▲ };
▲ return tail(fmapGen(x => x[0])(
▲ iterate(f)(
Tuple()(
enumFromTo(1)(b - 1).flatMap(
Line 3,206 ⟶ 3,204:
)
));
// ---------------------- TESTS ----------------------
| |||