Задача уровня "Пусть она хоть запустится".

Грёбаный бот не принял письмо из-за названия(Надо было регистр букв павтарить в точности). Идиот.

Задача  -  http://www.facebook.com/careers/puzzles.php?puzzle_id=7

Ну что ж. Если эти фаги не захотели принимать решение, я буду постить решения сам себе.

Сейчас пишу пост и паралельно ищу ерланг коммунитис.

Собственно, код.

-module(hoppity).

-export([filework/0]).

f(X, Z) when ( X > Z) -> 

   io:format("end~n");

f(X, Z) ->

 Y = X + 1,

 if  

   (X rem 15 == 0) ->

           io:format("Hop~n"), f( Y , Z );

   (X rem 3 == 0) ->

           io:format("Hoppity~n"), f( Y , Z );

   (X rem 5 == 0) ->

           io:format("Hophop~n"), f( Y , Z );

   true -> f( Y , Z )

 end.

filework() ->

 {ok, S} = file:open("in.txt", read),

 X = io:get_line(S, ''),

 Y = list_to_integer( X ),

 f(1, Y),

 file:close(S).