Дзюндзя ([info]syarzhuk) wrote,
@ 2007-02-27 06:26:00
Previous Entry  Add to memories!  Tell a Friend!  Next Entry
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

(Post a new comment)


[info]cema
2007-02-27 12:06 pm UTC (link)
Ну не fizz чтобы buzz, fizz им хочется fizz buzz свойства fizz языка. Или fizzbuzz руку на fizz учебных buzz.

(Reply to this) (Thread)

[info]syarzhuk
2007-02-27 01:09 pm UTC (link)
Заметь, что моё решеніе іспользует constant memory, linear time і не іспользует потенціально дорогостояшшую операцію mod

(Reply to this) (Parent)(Thread)

[info]cema
2007-02-27 02:12 pm UTC (link)
А какую fizz mod buzz fizz?

(Reply to this) (Parent)(Thread)

[info]syarzhuk
2007-02-27 03:51 pm UTC (link)
Тьфу, стормозил, использует мод, использует
Но можно переписать со вторым счётчиком, который будет на 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

(Reply to this) (Parent)(Thread)

[info]cema
2007-02-27 05:24 pm UTC (link)
Ага, так fizz получается.

(Reply to this) (Parent)

[info]ilvyanyatka
2007-02-27 06:45 pm UTC (link)
А чем это лучше MODов? Программа долзхна быть легко модифицируемой, имхо. И если в случае с модами элементарно поменять 3 и 5 на, скажем 8 и 7, то в твоем надо будет колупаться.

(Reply to this) (Parent)(Thread)

[info]syarzhuk
2007-02-27 06:50 pm UTC (link)
Не лучше ничем :)
Просто там народ выёбывается с функциональными языками и однострочными решениями (хотя исходное enterprise-ready решение на Джаве не лишено внутренней красоты), а я решил повыёбываться со старым языком. Надо бы ещё вы учить Brainfuck и написать на нём, но лень

(Reply to this) (Parent)

Create an Account
Forgot your login or password?
Login w/ OpenID
English • Español • Deutsch • Русский…