Jun 03, 2019 17:40
Хотел написать философскую телегу про языки и нотации, но запутался. Вместо этого вот вам примерчик на perl6 (придумал не я, источник потерял):
.say if $_ %% [+] .comb for 1..50;
Всё понятно, правда? Из, эээ, не совсем очевидного здесь (справа налево) постфиксные управляющие структуры (было в пятом), неявная переменная цикла (было в пятом), неочевидное название метода, неявный аргумент встроенных методов, неявное преобразование числа в строку строки в число (было в пятом), специальный синтаксис для reduce, и отдельный оператор для проверки делимости.
На последнем я хочу остановиться отдельно: когда вы в последний раз использовали оператор взятия остатка не для того, чтобы сравнить результат с нулём и узнать, делится или нет? Вот Ларри выделил это в отдельный use case и ввёл %%, который проверяет на делимость и выдаёт True или False. А всё в целом это печатает список чисел, делящихся на сумму своих цифр (для зануд: в десятичном представлении).
... Трудно быть багом ...
tekniko