---
title: "Решил задачу"
description: "Задача уровня \"Пусть она хоть запустится\". Грёбаный бот не принял письмо из-за названия(Надо было ре..."
author: "akost"
published: "2010-01-30T00:48:07+00:00"
modified: "2010-01-30T00:48:07+00:00"
locale: "ru"
canonical_url: "https://yvision.kz/post/reshil-zadachu-28897"
markdown_url: "https://yvision.kz/post/reshil-zadachu-28897/markdown"
site_name: "Yvision.kz"
---

# Решил задачу

> Задача уровня "Пусть она хоть запустится". Грёбаный бот не принял письмо из-за названия(Надо было ре...

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

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

Задача - 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).
```

---

Source: [https://yvision.kz/post/reshil-zadachu-28897](https://yvision.kz/post/reshil-zadachu-28897)