Пянтичное: опять фибоначчи

[avitya]

Не зря я яву не люблю. Какой на редкость уродский код получается...

[crypto5]

Не зря я яву не люблю. Какой на редкость уродский код получается...

А какой код классный?

[Интеррапт]

Не зря я яву не люблю. Какой на редкость уродский код получается...

А какой код классный?

Присоеденяюсь к вопросу. Хочу посмотреть на изящный код.

[Zorkus]

Ну вот, например, парсинг обратной польской записи в изящном коде :

Code: Select all

calc :: String -> [Float]
calc = foldl f [] . words
  where 
    f (x:y:zs) "+" = (y + x):zs
    f (x:y:zs) "-" = (y - x):zs
    f (x:y:zs) "*" = (y * x):zs
    f (x:y:zs) "/" = (y / x):zs
    f xs y         = read y : xs

[crypto5]

Code: Select all

  Long calc(Stack<String> stack) {
	  String c = stack.pop();
	  switch(c) {
	  	case "+": return calc(stack) + calc(stack);
	  	case "-": return calc(stack) - calc(stack);
	  	case "*": return calc(stack) * calc(stack);
	  	case "/": return calc(stack) / calc(stack);
	  }
	  return Long.valueOf(c);
  }

[Интеррапт]

Ну вот, например, парсинг обратной польской записи в изящном коде

Редко смотрю на код парсеров, потому что всякие парсеры я, как правило, все-равно на ANTLR пишу и в ANTLR записи оно все-равно намного удобней и изящней . А какой оно мне при этом код нагенерит (уверен, что уродский) - мне без разницы

[Интеррапт]

Code: Select all

  Long calc(Stack<String> stack) {
	  String c = stack.pop();
	  switch(c) {
	  	case "+": return calc(stack) + calc(stack);
	  	case "-": return calc(stack) - calc(stack);
	  	case "*": return calc(stack) * calc(stack);
	  	case "/": return calc(stack) / calc(stack);
	  }
	  return Long.valueOf(c);
  }

Или Питон При этом можно обойтись без всяких case и добавлять операторы прямо в ops, без изменения основного кода

Code: Select all

import string, operator
ops = {'+': operator.add, '-': operator.sub, '*': operator.mul, '/': operator.div}
while True:
  try:
    st = []
                 # читаем из потока
    for tk in string.split(raw_input()):
      if tk in ops:
        y, x = st.pop(), st.pop()
        z = ops[tk](x,y)
      else:
        z = float(tk)
      st.append(z)
    assert len(st) <= 1
    if len(st)==1: print(st.pop())
  except EOFError:  break
  except:  print('Error')

[crypto5]

Code: Select all

from operator import *
ops = {’+’: add, ’-’: sub, ’*’: mul, ’/’: div}
def eval(l):
  if l[0].isdigit(): return [int(l[0])] + l[1:]
  l1 = eval(l[1:])
  l2 = eval(l1[1:])
  return [ops[l[0]](l1[0], l2[0])] + l2[1:]

[Интеррапт]

Code: Select all

from operator import *
ops = {’+’: add, ’-’: sub, ’*’: mul, ’/’: div}
def eval(l):
  if l[0].isdigit(): return [int(l[0])] + l[1:]
  l1 = eval(l[1:])
  l2 = eval(l1[1:])
  return [ops[l[0]](l1[0], l2[0])] + l2[1:]

Только здесь http://ideone.com/plain/HBXAZ кавычки правильно расставлены, а в отквотированном посте одинарная кавычка (’+’ и т.п.), когда я попытался сделать copy&paste - ругается при компиляции

Это Привет шалит или твой редактор?

[crypto5]

Code: Select all

from operator import *
 
ops = {'+': add, '-': sub, '*': mul, '/': div}
 
def eval(l):
  c = l.pop()
  if(c.isdigit()): return int(c)
  return ops[c](eval(l), eval(l))
  
s = ['2', '2', '2', '+', '+']
print eval(s)

Вот так "изящнее" всего наверное

[crypto5]

Это Привет шалит или твой редактор?

Какой то веб редактор найденный на скорую руку в гугле

[Сабина]

Исключительно в плане пятничного развлечения
Всегда лажал на Привете задачу про вычисление чисел Фибоначчи.
.....
Неплохая, как оказалось, задача. Ни разу такого не видел и верить в такое не хотел. Всем пятницы, посоны! И, конечно же, девч0нки

Кстати не могла пройти мимо на ФБ. Сразу вспомнилась эта тема, да и пятница на дворе

[avitya]

это просто прогрессия...

[Интеррапт]

это просто прогрессия...

Да, довольно безграмотная SMSка.

[АццкоМото]

Исключительно в плане пятничного развлечения
Всегда лажал на Привете задачу про вычисление чисел Фибоначчи.
.....
Неплохая, как оказалось, задача. Ни разу такого не видел и верить в такое не хотел. Всем пятницы, посоны! И, конечно же, девч0нки

Кстати не могла пройти мимо на ФБ. Сразу вспомнилась эта тема, да и пятница на дворе

Да, это "пять", слов нет

[Сабина]

Да, это "пять", слов нет

Мне тоже было смешно, а некоторые сразу бросились ошибки исправлять, а тут в них и есть весь прикол

[Amto2011]

Исключительно в плане пятничного развлечения
Всегда лажал на Привете задачу про вычисление чисел Фибоначчи.
.....
Неплохая, как оказалось, задача. Ни разу такого не видел и верить в такое не хотел. Всем пятницы, посоны! И, конечно же, девч0нки

Кстати не могла пройти мимо на ФБ. Сразу вспомнилась эта тема, да и пятница на дворе

А что такое "фибоначчи"?

[sergant]

Если в лоб то:

Code: Select all

unsigned long fib( int n ) {
	unsigned long p0 = 0;
	unsigned long p1 = 1;

	if ( n < 1 || n > MAX ) {
		return 0;	// or die
	} else if ( n == 1 ) {
		return p0;
	} else if ( n == 2 ) {
		return p1;
	}

	unsigned long s;
	while ( n-- > 2 ) {
		s = p0 + p1;
		p0 = p1;
		p1 = s;
	}

	return s;
}

[rorp]

Если в лоб

А если по лбу, то:

Code: Select all

fibs = 0 : 1 : zipWith (+) fibs (tail fibs)

[sergant]

Если в лоб

А если по лбу, то:

Code: Select all

fibs = 0 : 1 : zipWith (+) fibs (tail fibs)

5+
А fibs(n) там нет?

[sergant]

Лучший программный продукт это программист (желательно хороший) под рукой... (c) мой

[mynameiszb]

Лучший программный продукт это программист (желательно хороший) под рукой... (c) мой

Лучший программист - этот тот программист, кто написал этот код. Потому как собирать 4 либы, написанные разными людьми, в одно целое и без создателей - ...