DelFusa Blog 総本山

プログラミングの話題とかです。

NEW | PAGE-SELECT | NEXT

≫ EDIT

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

| スポンサー広告 | --:-- | comments(-) | trackbacks(-) | TOP↑

≫ EDIT

ちょっとだけ


   ∧,,∧   
  ミ,,゚Д゚彡
   ミつ旦(ミ~~
 @ミ   ミ  
   ∪''∪


ばんは。

今日も忙しいので、ちょっとだけ....
※といいつつ長くなってしまいました。
 3回、4回にわけて分割更新とか器用な事のできない
 不器用な着ぐるみなのでご容赦ください。



トトニーさんが、mod15問題にひっかかってくれました。
まあ、本筋とは違うんだけど少しだけ奥が深いFizzBuzzでしたね。

俺も瞬間的にmod15にはまってしまった口なのでご一緒です。

それにしても、誰もmod15問題について考えてもみないのが不思議ですよ。
多言語でかけるかどうか、とか、else抜きの変形FizzBuzzとかは、
さすがにいいんでないかなと.....

漏れのはこんなコード。これで、BizzでもFuzzでも仕様変更どんとこい!
※3の倍数ならFizz、5の倍数ならBuzz
んでもって、7の倍数ならBizzで、11の倍数ならBuzzを出力してね。
って問題なら、こうせざるおえなくなってくるでしょうね。

 for I := 1 to 100 do
 begin
  Output := False;
  if (I mod 3)=0 then
  begin
   Write('Fizz');
   Output := True;
  end;
  if (I mod 5)=0 then
  begin
   Write('Buzz');
   Output := True;
  end;

  if Output = False then
  begin
   Write(I);
  end;
  Writeln('');

 end;
 Readln;

ま。でもコードの美しさとかがあるとかないとかは、
この程度の問題では関係ないと言えば関係ないですよ。
totonicaにーさんの言うとおり
仕上げられるのが何よりです、というのはその通りですな。


こちらでも派生していただいたみたいですね。

2009-08-16 - 徒然なるままに@kita
http://d.hatena.ne.jp/kita20xx/20090816

こちらは元ネタなのかな。

FizzBuzz問題 | Okumura's Blog
http://oku.edu.mie-u.ac.jp/~okumura/blog/node/1531


さて、だれかDelphiで投稿しておいてくださいね。

変形Fizz-Buzz問題 どう書く?org
http://ja.doukaku.org/77/flatten/


その他の話題。
   ∧,,∧   
  ミ,,゚Д゚彡   
   ミ つ旦)~~
 @ミ   ミ  
   ∪''∪
まあ、びっくら。

「Induc」はDelphiで開発されたプログラムのソースコードに感染する。Sophosはここ数日で3000本以上の感染ファイルを検出したという。
http://www.itmedia.co.jp/enterprise/articles/0908/20/news029.html
Delphiプログラムを狙うマルウェアの感染拡大 - ITmedia エンタープライズ

Delphiプログラムを狙うマルウェアの感染拡大(ITmedia エンタープライズ) - Yahoo!ニュース
http://headlines.yahoo.co.jp/hl?a=20090820-00000031-zdn_ep-sci

Delphiで作られたソフトが意外に多いというアピールですか、これは?(w

うちの、
C:\Program Files\CodeGear\RAD Studio\5.0\source\Win32\rtl\sys\SysConst.pas

は、大丈夫でした。※いまだにD2007・・・
メーリングリストによると、D7以前に感染するようですね。


さらにその他の話題。
|,,∧   
|Д゚彡  >>DEKO氏
|⊂ミ
| ミ    漏れは3台も買いませんよと。
|''U

大した事はできなかったんですけどね・・・
もうほんと、非常に・・・


Delphiッこ倶楽部東京出張所 さんへ
|,,∧   
|Д゚彡  思わずプロパティエディタの
|⊂ミ   作り方を久しぶりに
| ミ    思い出す必要があるかと迷いましたが
|''U
     それは確かに恥ずかしいですね。。。
     いやいや、嘘よ。大丈夫ですよ。
スポンサーサイト

| 未分類 | 02:04 | comments:1 | trackbacks(-) | TOP↑

COMMENT

私ならこう書きますねぇ。

uses
SysUtils;

var
i: integer;
result: String;
begin
for i := 1 to 100 do begin
result := EmptyStr;
if (0 = (i mod 3)) then result := result + 'Fizz';
if (0 = (i mod 5)) then result := result + 'Buzz';
if (EmptyStr = result) then result := IntToStr(i);
Writeln(result);
end;
Readln;
end.

| じ~る | 2009/09/02 10:49 | URL | ≫ EDIT















非公開コメント

PREV | PAGE-SELECT | NEXT

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。