The Six Most Common Species Of Code

[dotcom]

Хорошо подмечено:


Оригинал: http://www.willa.me/2013/11/the-six-mos ... -code.html

[rzen]

зачётная тема, но можно было выдоить побольше

[Medium-rare]

Можно ещё выделить типы кода:

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

И у каждого типа кода свой характер. :-p

[rorp]

Код, написанный модным перцем:

Code: Select all

  def fibonacci(n: BigInt): BigInt = {
  	@tailrec
  	def fib(i: BigInt, a: BigInt, b: BigInt): BigInt = {
  		if (i < 0)
  			a
  		else
  			fib(i - 1, b, a + b)
  	}
  	
  	fib(n, 0, 1)
  }

[Сабина]

Super !

[Andriy777]

Поклонниками Александреску.

template <unsigned N>
struct Fib
{
static const unsigned Value = Fib<N-1>::Value + Fib<N-2>::Value;
};

template <>
struct Fib<2>
{
static const unsigned Value = 1;
};

template <>
struct Fib<1>
{
static const unsigned Value = 1;
};


printf("%u\n", Fib<10>::Value);

[dotcom]

Код, написанный модным перцем:

А хипстер бы посмотрел на это, сказал бы, что Скала слишком сложна, и написал бы

import mpmath
print fib(n)

[crypto5]

Код, написанный модным перцем:

Code: Select all

  def fibonacci(n: BigInt): BigInt = {
  	@tailrec
  	def fib(i: BigInt, a: BigInt, b: BigInt): BigInt = {
  		if (i < 0)
  			a
  		else
  			fib(i - 1, b, a + b)
  	}
  	
  	fib(n, 0, 1)
  }

Модные перцы пишут вот так:

Code: Select all

def fib: Stream[Int] = 0 #:: 1 #:: fib.zip(fib.tail).map{case (a,b) => a + b}

Я не модный перец если что

[Komissar]

если это было трудно написать, то должно быть трудно прочитать (с)

[Мальчик-Одуванчик]

Казалось-бы: банальнейший случай "обрубания хвоста" (tail call optimization) в императивных языках.
К сожалению, так и не раскрытый (за исключением варианта, предложенного crypto5) в приведенных выше решениях.
И кстати, поучительный пример того, как богатейшую и насыщенную искрометными вариациями тему сисек, можно бездарно свести к серым и будничным (в стиле Александреску) пубернатным прыщам.

[Andriy777]

Если Вы еще не поняли, то стиль Александреску вообще не нуждался ни в каких tail оптимизациях. Он просто распечатал константу вычисленную во время компиляции. Вычислять не рекурсией во время компиляции, вроде как, на C++ еще не придумали.

[Sergunka]

Я обычно на интервью пишу так походу

Code: Select all

int fib (int n) {
     return (n < 3)  ? 1 : fib (n-1)  + fib (n-2);
}

[avitya]

ну вопрос на засыпку, сколько рекурсивных операций требуется для вычисления таким методом для числа N?

[Мальчик-Одуванчик]

Если Вы еще не поняли, то стиль Александреску вообще не нуждался ни в каких tail оптимизациях. Он просто распечатал константу вычисленную во время компиляции. Вычислять не рекурсией во время компиляции, вроде как, на C++ еще не придумали.

От рекурсии в этом примере все равно не удалось избавиться, а лишь перенести ее на время компиляции. Вдобавок наверняка придется вручную регулировать её глубину для вычисления больших значений.

[АццкоМото]

Я обычно на интервью пишу так походу

Code: Select all

int fib (int n) {
     return (n < 3)  ? 1 : fib (n-1)  + fib (n-2);
}

fib(-8)==1?

[crypto5]

Просто интересно, а варианты с циклом принимать перестали? ))

[АццкоМото]

Просто интересно, а варианты с циклом принимать перестали? ))

Они некошерны. Моск программиста устроен так, что на простых задачах перед незнакомым человеком ему просто необходимо показать, что он знает, что такое рекурсия.
Плюс ко всему, рекурсивное решение короче в плане количества символов, а решение с циклом, будучи намного фефективнее, выглядит "неэлегантно"

[dotcom]

Просто интересно, а варианты с циклом принимать перестали? ))

Ну вот. Просто и ясно. Скалисты должны завидовать.

Code: Select all

sub fib {  local($count,$kittens,$puppies)=(1,0,1); while($_[0] != $count++) {  ($kittens,$puppies)=($puppies, $kittens+$puppies); }  $puppies; 

P.S. Нет, строчку разворачивать нельзя.

Хотя нет. Нашел лучше:

Code: Select all

$_ = "fiiiiib";
print "$_\n";

print "$_\n" while s/fi?b/i/g || s/fii(i*)b/f$1bfi$1b/g;

Отсюда: http://nick.zoic.org/languages/fibonacc ... erversity/

[Boriskin]

Просто интересно, а варианты с циклом принимать перестали? ))

Это ж "динамическое программирование", такое нонче толи не учат, толи не понимают...

[crypto5]

Просто интересно, а варианты с циклом принимать перестали? ))

Ну вот. Просто и ясно. Скалисты должны завидовать.

Code: Select all

sub fib {  local($count,$kittens,$puppies)=(1,0,1); while($_[0] != $count++) {  ($kittens,$puppies)=($puppies, $kittens+$puppies); }  $puppies; 

P.S. Нет, строчку разворачивать нельзя.

Хотя нет. Нашел лучше:

Code: Select all

$_ = "fiiiiib";
print "$_\n";

print "$_\n" while s/fi?b/i/g || s/fii(i*)b/f$1bfi$1b/g;

Отсюда: http://nick.zoic.org/languages/fibonacc ... erversity/

Меня всегда восхищал язык программирования J:

Code: Select all

f2a=: 3 : '{. +/\@|.^:y 0 1x'

http://www.jsoftware.com/jwiki/Essays/F ... #Iteration
Это цикл кстати ))

[dotcom]

Меня всегда восхищал язык программирования J:

Тоже красиво. Надо будет запомнить такое, чтобы сломать мозг потенциальному интервьюеру. Я подозреваю, что еще круче будет что-то написать на древнем APL с его специальными символами. Но даже страшно гуглить, как оно выглядит в жизни.

[dimp]

ну вопрос на засыпку, сколько рекурсивных операций требуется для вычисления таким методом для числа N?

Это не на засыпку. На засыпку - сколько рекурсивных операций потребуется, если в самом первом варианте (CS101) - вызвать fibonacci(0)? Чисто теороетически, stack overflow пренебречь, int считать 32 бита.

[dimp]

Кстати, характерно, что ни один вариант не использует unsigned int

[АццкоМото]

Кстати, характерно, что ни один вариант не использует unsigned int

+1
и ошибки есть чуть ли не в каждом

[avitya]

да и вообще этот код говно.