Простенькая задачка программистам

А ещё говорят что perl непонятный. Однострочниками обзываются. Вот это я понимаю однострочник!

«Потратил минут 20. Но морфизм есть!» (С)

Задача: написать функцию для расчёта n-го числа Фибоначчи в одно выражение и без явного использования рекурсии. Желательно также уместить в одну строку. Мною получена применительно к Scala, но вы пишите на любом языке. Да, и ещё, это должен быть расчёт числа с использованием двух предыдущих, формулу для вычисления n-го числа сразу использовать нельзя.

pcmatlab: http://upload.wikimedia.org/math/a/6/0/a6083f85f39b468210f5715a8e30d572.png (взято из википедии)

n=10;
a=[1,1;1,0];
b=a^n;
b(1,2)

a=[1,1;1,0];
a^n

Таким, что автор именно этого хотел, насколько я понял.

Нет. ТС хотел посмотреть в каких языках есть соответствующие конструкции, чтобы решить задачу функционально. Например, варианты на хаскеле и мой — соответствуют условию.

Это не задачка, это маразм. Задачка должна говорить что нужно, а не как нужно.

ну и что? Я не использовал инструкции сверх 8086. Просто взял другую разрядность.

Ты не поверишь, но задача может быть сформулирована таким образом, что в то, что нужно войдёт то, как нужно.

Напоминает троллейбус из хлеба.

Постоянно забываю, в питоне же есть примитивный паттерн-матчинг:

fib = lambda n:reduce(lambda (a, b), _:(b, a + b), xrange(n), (0, 1))[0]

Вот еще вариант

fib =: {.@(2&x:)@((+%)/)@(0,$&1x)

Уже не такой короткий, но все так же элегантный.

> Нет. ТС хотел посмотреть в каких языках есть соответствующие конструкции

Нет, ТС просто хотел посмотреть на уродцев, которые родятся в указанных ограничениях.

На будущее: ставьте в таких темах тег [специальная олимпиада].

ох ты, приз зрительских симпатий!

> Задача: написать функцию для расчёта n-го числа Фибоначчи

на ЛОРе знают много языков, придуманных именно для этой задачи

F#:

let fib n = [0..n-1] |> List.fold (fun (prev, st) _ -> st,st+prev) (0, 1) |> fst

> List.map fib [0 .. 13];;

val it : int list = [0; 1; 1; 2; 3; 5; 8; 13; 21; 34; 55; 89; 144; 233]

Кстати, а где твой?

Это камбак с мощного наброса про ноду? Граждане толпами ломанулись считать фибоначей.

в одну строчку не получилось :(

$ echo 100 | dc -e '1ddse?2-si[dsa+larled1+seli>c]dscxp'
354224848179261915075

Правда, из-за использованного алгоритма, даёт неверный результат если попросить показать число фибоначчи до третьего. Наверняка, можно сильно улучшить, но мне пока лень.

Мой вот:

def fib(n: Int) = ((1 to n) :\ (0, 1)) {(_: Int, fibval: (Int, Int)) => (fibval._2, fibval._1 + fibval._2)}._1

А кто-то еще на эрланг ругался, хе-хе.

> fib =: i. +/ .! i.@-

В вокабьюляре не нашел оператора .!, да и вообще, все операторы на точку или двоеточие кончаются, а не начинаются.

Это я пробел забыл (который необязателен). Внутреннее произведение же.

А какой ты J юзаешь?

https://github.com/openj/core
этот, дебиановский, официальный jgplsrc или официальный бинарник (проприетарный)?

jgplsrc, до этого официальный бинарник.

> Да, школота не может выполнить задание и с гордостью заявляет об этом на ЛОРе.

Да, Люк! Ты такой проницательный! Прямо - ах!