devclub.eu quiz

lafy — 06.06.2010 На devclub.eu куча решений к quiz-у, который предложил Андрей Солнцев.

Задание: Напечатать на экране следующее:
1
2-1
1-2-3
4-3-2-1
1-2-3-4-5
6-5-4-3-2-1
(Естественно, вместо 6 может быть любое число).


Большинство решений вообщем-то похожи, разница лишь в синтаксисе (и функциях, которые доступны в языке). Все решения стремятся к "one-line solution" ну и благодаря своей динамичности и хорошей библиотеке пока большинством признано решение на Groovy (Сергей Кирьянов):

for ( i in 1..10 ) println( ( i%2 ? 1..i : i..1 ).join('-') );

С моей же точки зрения, если взять за основу, что мы выводим текст на консоль и N не может быть слишком большим, то совершенно гениальным решением является код от Ильи Хямяляйнена (который он кстати сам считает WTF-кодом):

System.out.print("1");
System.out.print("2-1");
System.out.print("1-2-3");
System.out.print("4-3-2-1");
System.out.print("1-2-3-4-5");
System.out.print("6-5-4-3-2-1");

Впрочем, на джаве это действительно выглядит ужастно, хоть и читаемо лучше всех решений :) К счастью, у нас есть Clojure, который умеет генерить такого рода штуковины.

Итак, задача сведется к тому, чтобы выводить на экран ряды из цифр, перевернутные через раз. Цифры печатаются через знак "-". Т.е. код может выглядеть так:

(do 
    (println (str-join "-" (range 1 2))) 
    (println (str-join "-" (reverse-range 1 3)))
    (println (str-join "-" (range 1 4)))
    (println (str-join "-" (reverse-range 1 5))) 
    (println (str-join "-" (range 1 6))) 
    (println (str-join "-" (reverse-range 1 7))))

Сделаем это через макросы:

(ns foo
  (:use clojure.contrib.str-utils))
  
(defn reverse-range 
    [start end]
    (reverse (range start end)))

(defmacro ranger
[size]
(let [func (cycle [`range `reverse-range])] 
    (cons 'do 
        (for [step (range 2 (+ 2 size))] 
            `(println (str-join "-" (~(nth func step) 1 ~step)))))))

Выглядит страшнее, чем код на груви, но читабельность, как ни странно, сохранена - любой программист сможет всегда вызывать macroexpand и понять, как работает тот или иной макрос:

foo> (macroexpand
      '(ranger 3))
(do (clojure.core/println (clojure.contrib.str-utils/str-join "-" (clojure.core/range 1 2))) 
    (clojure.core/println (clojure.contrib.str-utils/str-join "-" (foo/reverse-range 1 3))) 
    (clojure.core/println (clojure.contrib.str-utils/str-join "-" (clojure.core/range 1 4))))

Ну и, собственно, демка (все работает:) ):

foo> (ranger 6)
1
2-1
1-2-3
4-3-2-1
1-2-3-4-5
6-5-4-3-2-1

Оставить комментарий

Популярные посты:

• Ранее
• Архив