Попался мне недавно на глаза вот этот разворот из детской книжки «Энциклопедия профессора Фортрана» 1991-го года

Написал небольшую програмку на Perl для подсчёта количества счастливых билетов в последовательности от 000000 до 999999