syarzhuk: FizzBuzz in QB

Entry tags:

FizzBuzz in QB
Народ выйобваецца на хаскелях і рубях, піша FizzBuzz
А на родным кьюбасіку ўсё лягчэй!


10 DATA "", "", "Fizz", "", "Buzz", "Fizz", "", "", "Fizz", "Buzz", "", "Fizz", "", "", "FizzBuzz"
20 DIM A$(15)
30 FOR I = 1 TO 15
40    READ A$(I)
50 NEXT I
60 FOR I = 1 TO 100
70    j = I MOD 15
80    IF A$(j) <> "" THEN PRINT A$(j) ELSE PRINT I
90 NEXT I

(Добавить комментарий)

	cema@lj 2007-02-27 09:06 (ссылка)
	Ну не fizz чтобы buzz, fizz им хочется fizz buzz свойства fizz языка. Или fizzbuzz руку на fizz учебных buzz. (Ответить) (Ветвь дискуссии)

	syarzhuk@lj 2007-02-27 10:09 (ссылка)
	Заметь, что моё решеніе іспользует constant memory, linear time і не іспользует потенціально дорогостояшшую операцію mod (Ответить) (Уровень выше) (Ветвь дискуссии)

	cema@lj 2007-02-27 11:12 (ссылка)
	А какую fizz mod buzz fizz? (Ответить) (Уровень выше) (Ветвь дискуссии)

syarzhuk@lj
2007-02-27 12:51 (ссылка)

Тьфу, стормозил, использует мод, использует
Но можно переписать со вторым счётчиком, который будет на 15 обнуляться :)

10 DATA "", "", "Fizz", "", "Buzz", "Fizz", "", "", "Fizz", "Buzz", "", "Fizz", "", "", "FizzBuzz"
20 DIM A$(15)
30 FOR I = 1 TO 15
40 READ A$(I)
50 NEXT I
55 J = 0
60 FOR I = 1 TO 100
70 J = J + 1
75 IF J = 16 THEN J=1
80 IF A$(J) <> "" THEN PRINT A$(J) ELSE PRINT I
90 NEXT I

(Ответить) (Уровень выше) (Ветвь дискуссии)

	cema@lj 2007-02-27 14:24 (ссылка)
	Ага, так fizz получается. (Ответить) (Уровень выше)

	ilvyanyatka@lj 2007-02-27 15:45 (ссылка)
	А чем это лучше MODов? Программа долзхна быть легко модифицируемой, имхо. И если в случае с модами элементарно поменять 3 и 5 на, скажем 8 и 7, то в твоем надо будет колупаться. (Ответить) (Уровень выше) (Ветвь дискуссии)

syarzhuk@lj
2007-02-27 15:50 (ссылка)

Не лучше ничем :)
Просто там народ выёбывается с функциональными языками и однострочными решениями (хотя исходное enterprise-ready решение на Джаве не лишено внутренней красоты), а я решил повыёбываться со старым языком. Надо бы ещё вы учить Brainfuck и написать на нём, но лень

(Ответить) (Уровень выше)