Иван Андреевич (diente_de_lion) wrote,
Иван Андреевич
diente_de_lion

Perl Golf

Люблю Perl. Уже хотя бы за то, что на нем можно играть в гольф. Ведь что такое гольф? Это когда надо закатить мяч в лунку минимальным количеством ударов. Соответсвенно играя в Perl Golf нужно решить задачу минимальным количеством символов. У кого программа короче, тот и победил.

Вот чем я сегодня целый день занимался (не считая трех часов поездки в Бауманку)? Решал вот эту задачку, которая мне утром в ленте попалась. Мозг очень хорошо разминает.

Задача: найти максимально длинное кольцо, которое можно составить из списка предложенных вам костяшек или вывести 0, если их нельзя закольцевать.
Входные данные: Строка из пар чисел от 0 до 6, разделенных пробелом. Каждая пара — одна костяшка.
Пример: 01 11 12 22 31 32
Данные подаются на STDIN: cat data | golf.pl
Пример ответа: 11 12 22 23 31


Мое решение заняло 154 символа. Кто меньше? Язык, я так понимаю, авторы поста готовы принять любой, я вот только, пожалуй, не знаю ни одного столь же лаконичного как Perl среди императивных языков. Может быть Хаскель какой-нибудь?
Tags: перл, программирование
Subscribe
  • Post a new comment

    Error

    Anonymous comments are disabled in this journal

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

  • 0 comments