米国国防省の標準高等言語エイダ（Ａｄａ）を語れ！

米国国防省の標準高等 ..

243:デフォルトの名無しさん
03/03/09 10:35
つまみエイダ豆

爆笑間違い無しなのでage

244:デフォルトの名無しさん
03/03/09 10:43
>>243
もうかれこれ10時間以上笑い続けてます。

245:デフォルトの名無しさん
03/03/28 20:12
>>243
もうかれこれ二週間以上笑い続けてます。

…で、たまにはage

246:デフォルトの名無しさん
03/03/30 08:47
うんだ、Ada はええだ。
恩を Ada で返すだ。

247:デフォルトの名無しさん
03/04/14 20:47
ええ、２秒くらいは笑えましたよ

248:あっちの621
03/04/14 22:25
プログラミングの為の数学と算数
URLﾘﾝｸ(pc2.2ch.net)
＞[607]デフォルトの名無しさん04/02 11:12
＞Ｎ＋Ｎ＝ＮＮ

[607]の意図はよくわからないんだが
1+1=11
2+2=22
みたいなものがあるか、という問題と解釈し
10進数以外ならあるやも、と作ったプログラム。
2進、3進、4進．．．16進までやってみたけどないね。

with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;

procedure nn is
begin
for i in 2..16 loop
　　for j in 1..i-1 loop
　　　put(j, 6, i); -- jをi進数で表記
　　　put(" + ");
　　　put(j, 6, i);
　　　put(" = ");
　　　put(j + j, 6 ,i); -- j+jをi進数で表記
　　　new_line;
　　end loop;
end loop;
end nn;

249:山崎渉
03/04/17 15:25
（＾＾）

250:デフォルトの名無しさん
03/04/17 20:11

251:山崎渉
03/04/20 04:32
　　 ∧＿∧
　　（　　＾＾）＜ぬるぽ（＾＾）

252:デフォルトの名無しさん
03/04/26 09:46
めざせ深層水

253:デフォルトの名無しさん
03/04/28 04:41
残り12スレッド、潜れ潜れ

254:デフォルトの名無しさん
03/04/29 17:56
あと10

255:デフォルトの名無しさん
03/05/02 00:10
あと6

256:デフォルトの名無しさん
03/05/02 22:57
PC8001版持ってる人は？

257:デフォルトの名無しさん
03/05/15 22:19
ho

258:デフォルトの名無しさん
03/05/23 08:59
syu

259:デフォルトの名無しさん
03/05/25 01:22
URLﾘﾝｸ(www12.brinkster.com)
A#存在記念age

260:デフォルトの名無しさん
03/05/26 00:38
独立型プログラミング支援ユニットADAです。
￣￣￣￣￣￣￣￣￣￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　　　　＿＿＿＿＿＿＿
　　　　　　　　　　　／＼ ⌒ヽ≡≡≡≡＼
　　　　　　　　　／　((　　 A D A ;;;;;∵. ... ＼
　　　　　　　　／◇＼／￣￣￣￣￣＼／◇.＼
　　　　　　／　　＼＼____|| | | ||____／／　　　＼
　　　　　／　 //／￣／￣￣V￣￣＼￣＼// 　 .＼
　　　　　￣￣￣　　＼ ≡||□||≡　／

261:デフォルトの名無しさん
03/05/26 20:14
A#拡張構文

・「変数名 . 関数名」形式の「メソッド」呼びだしがサポートされてる(pragma Extensions_Allowed(On);時のみ)
・with 型名 is access; で参照型インポート
・with 型名 is tagged; で値型インポート
・pragma MSIL_Constructorで普通の関数をコンストラクタ扱いに
・Adaの文字列に+演算子を適用すると.NETの文字列に、逆もあり

他になんか無いかな？

262:デフォルトの名無しさん
03/05/26 20:18
A#の使い方

ダウンロードして展開して
・binにPATHを通す
・ADA_INCLUDE_PATHを...\lib\mgnat\adainclude; ...\include
・ADA_OBJECTS_PATHを...\lib\mgnat\adalib; ...\include
・register_mgnat.batを走らせる
・古いものが混じってるのでinclude中の*.aliの上書き禁止属性を解除しておく

263:261-262
03/05/26 20:24
とりあえずWindows.Formsとか使えるっぽいので、
Ada@WindowsでGUIやる場合の選択肢がGtk以外にもうひとつできたことになります。
起動遅いけどなァー。
(PentiumⅢで.NET動かすってのが間違いかも知れないが…)

ひとりでやってると寂しいので誰か一緒にやりましょうよぉ

264:山崎渉
03/05/28 12:46
　　　　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾）＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎―◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉

265:デフォルトの名無しさん
03/05/28 21:10
あげてやる

266:動画直リン
03/05/28 21:13
URLﾘﾝｸ(homepage.mac.com)

267:デフォルトの名無しさん
03/05/28 21:13
【PC版】Ever17-the out of infinity【大失敗作】　　　　
ｽﾚﾘﾝｸ(erog板)
【PC版】Ever17-the out of infinity【大失敗作】
ｽﾚﾘﾝｸ(erog板)
【PC版】Ever17-the out of infinity【大失敗作】
ｽﾚﾘﾝｸ(erog板)
【PC版】Ever17-the out of infinity【大失敗作】　　
ｽﾚﾘﾝｸ(erog板)
【PC版】Ever17-the out of infinity【大失敗作】
ｽﾚﾘﾝｸ(erog板)
【PC版】Ever17-the out of infinity【大失敗作】
ｽﾚﾘﾝｸ(erog板)

268:デフォルトの名無しさん
03/05/31 04:13
あげてやるあげてやるぅ

269:デフォルトの名無しさん
03/06/01 03:54
mingwの最新版スナップショットにはAdaが含まれて無いですよ。なんでかなー？

270:デフォルトの名無しさん
03/06/06 05:02
ho

271:デフォルトの名無しさん
03/06/08 12:12
話は変わるけど，国防総省の総って何．

272:デフォルトの名無しさん
03/06/08 16:59
陸軍　海軍　空軍

273:ごるごるもあ ◆753Z/RLFiY
03/06/22 08:49
　　　　　　　　　､　
　　　　　　　　　) |　
　　　　　　　　 ( ﾉノ　
　　　　　　　, --" - ､　
ｽﾁｬ　　　　/ 〃.,､　　ヽ　
　 ∧､　　　l ﾉﾉハヽ､　 i　
／⌒ヽ＼　i | l'┃　┃〈ﾘ　　我々の要求は、沖縄県に対する皇民政策の廃止だ
|( ● )|　i＼从|l､ _ヮ／从　　明日米軍基地を爆破する。
＼＿ノ　^i |ハ　∀　＼　
　|＿|,-''iつl/　　†/￣￣￣￣/
　　[__|_|／〉 .＿_/　魔　法　/＿＿
　　　[ニニ〉＼/＿＿＿＿/　URLﾘﾝｸ(darkelf.dip.jp)

我々はこれ以上の共産主義化をすることはできない。
よって、我々の民主主義奪還を行うために政府に対し次の通り要求する。
１.沖縄県に対する皇民政策の廃止
２.思いやり予算の撤廃
３.軍事基地の撤去交渉を米国と進める。
４.復興予算案の盛り込み
５.沖縄の議席数を現在の４倍以上に増やす。

274:ごるごるもあ ◆753Z/RLFiY
03/06/22 18:23
　　　　　　　　　､　
　　　　　　　　　) |　
　　　　　　　　 ( ﾉノ　
　　　　　　　, --" - ､　
ｽﾁｬ　　　　/ 〃.,､　　ヽ　
　 ∧､　　　l ﾉﾉハヽ､　 i　
／⌒ヽ＼　i | l'┃　┃〈ﾘ　　我々の要求は、沖縄県に対する皇民政策の処分だ
|( ● )|　i＼从|l､ _ヮ／从　　明日米軍基地を爆破する。
＼＿ノ　^i |ハ　∀　＼　
　|＿|,-''iつl/　　†/￣￣￣￣/
　　[__|_|／〉 .＿_/　魔　法　/＿＿
　　　[ニニ〉＼/＿＿＿＿/　URLﾘﾝｸ(darkelf.dip.jp)

我々はこれ以上の共産主義化をすることはできない。
よって、我々の民主主義奪還を行うために政府に対し次の通り要求する。
１.沖縄県に対する皇民政策の処分
２.思いやり予算の撤廃
３.軍事基地の撤去交渉を米国と進める。
４.復興予算案の盛り込み
５.沖縄の議席数を現在の４倍以上に増やす。

275:デフォルトの名無しさん
03/07/02 06:29
ho

276:デフォルトの名無しさん
03/07/15 19:41
上へ参ります

277:デフォルトの名無しさん
03/07/16 16:12
エイダバベッジの階差機関か？

278:デフォルトの名無しさん
03/07/26 23:56
定期保守

279:山崎渉
03/08/02 02:39
（＾＾）

280:デフォルトの名無しさん
03/08/12 17:58
（＾＾）

281:山崎渉
03/08/15 17:18
　　　 (⌒V⌒)
　　　│ ＾＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

282:デフォルトの名無しさん
03/08/15 21:10
hoi

283:デフォルトの名無しさん
03/08/15 22:26
PascalもPL/SQLもAdaから派生したと聞いたが。
ＰＣ最強言語とデータベース最強プロシジャの親が両方ともＡｄａ
であると思ってたが。
DelphiもOracleも萌え萌え

284:デフォルトの名無しさん
03/08/15 23:09
>>283
最強のクソ言語と、最強のクソデータベースのプロシージャの
間違いじゃネーノ？ｗ

285:デフォルトの名無しさん
03/08/16 00:13
×クソ言語
○クソ会社のツール
ではだめかね？
あと、
○クソ会社の最強データベース（製品はよいよ）

286:デフォルトの名無しさん
03/08/16 16:02
逆だろ？PascalからAda。

287:デフォルトの名無しさん
03/08/17 03:46
クローンオブエイダの話でないね
あんまり関係ないけど

288:デフォルトの名無しさん
03/08/17 23:07
すまん、Ａｄａがあとだった
ALGOL58 1958年
↓
Pascal 1970年
↓
Ada 1980年

289:デフォルトの名無しさん
03/09/04 03:18
hooo

290:デフォルトの名無しさん
03/09/18 21:06
shuuu

291:デフォルトの名無しさん
03/10/06 17:18
このスレ、おやじギャグ多すぎません？
もしかしてホントにオヤジが多（ｒ

292:デフォルトの名無しさん
03/10/21 02:07
地道に保守

293:デフォルトの名無しさん
03/11/04 04:26
新参者ですが、Ada勉強してみようかな。

294:デフォルトの名無しさん
03/11/23 12:37
sage

295:デフォルトの名無しさん
03/12/14 18:44
700

296:デフォルトの名無しさん
04/01/13 08:32
616

297:デフォルトの名無しさん
04/02/06 16:01
このスレが賑わう日は来るのかなあ…

298:デフォルトの名無しさん
04/02/15 12:53
adaってなんかPascalに似てるな

299:デフォルトの名無しさん
04/02/16 12:36
Delphiユーザは知らず知らずのうちにAdaの恩恵を受けていると思う。

300:バイオハザード２
04/02/21 10:08
レオン「エイダー！！」

301:デフォルトの名無しさん
04/02/29 07:12

　　 / 　　　＼ノｋ　　　,r 　ｔ、 f ノ　ヽﾉ　　　　　／丶'　　ヽ　￣
　　 { 　　 . ⌒ヽ'⌒ヽ _7ﾄ,ﾆtK　|`ﾍ　　ﾉ　　　　　 / ヽ　　　 /　/:
　　ヽ､　　　　　〉ヽ〉二〈ﾉ│　｀ヽ;;ノ＾　　　　　 /　/へヘ/　/:
　　　　 `ー-､;;;;;;;;ノ　 ´￣｀　〉　　　　　　　　　＼_＼ヾミ　 /|:
　　　　　　ﾊ二二ﾆﾆﾆ=─ヘ、　　　　　　　　　ヽ　､vWwｧ_
　　　　 V ヽ　ﾄ　　　　　　＼　　　　　　　　　y'{ j,__;＿;ノ
　　 . . ﾝ　ミﾐ巛　ﾉノヽヽ　　　＼_ 　　　　　　　　　　ヽ!!_,'´" ,,　f
　　　ノ／ﾉ/　 `ヽﾄ､＼＼─t、ミ　　　}　　　　　　　　　_ｨ´ __　i　 ___　〔
　　　.,_||` ;;;×　　×ヾ　 '| |_ ￣／　　ヽ|　　　　　　　y　　　_ ,|　　　　`　、
　　　|ヽ|　　.　▲　　|り|　　｜　　　ノ　　　　　　ノ　　　　　_;-ー'--tｰ' 　　｀'＼
チョ、　　! ` 　'"-Д-　/ / 　ヽﾆﾆイ　　　　　　 ,ｰ' ヽ　 _;　― 　　　　`ヽ、　　ヾ,
タンマ　　＼　　　　　／　　　 | 　 | 　　　　　　　｛／　　 r ´ 　　　　　　｝　　　|
　　ミ' )ー─「　｀レ￣　　￣^ 〈　 ´ `ｰ--r､　　｛ _　　 _ ¨ 　　　　　　　 /|’　　 /|
　　⌒'￣￣└─┤　 i＿_8　 |　　＼:n〉0jﾉノ　 {　　_y' 　　　　　　　　 |/　　　/
　　　　　_　 _,. -- _ゝ_／ノ⌒/　　ﾉ┴､一　ﾐミ７_ｰr'ーj 　　　　　　　　 {　　ｿ
_,, -‐　´　　　　　Ｌ__j-´ 　　ゝ､__＿_ﾉ＿二_巛７ﾉ============ 　　　　 { 　-; |
　　　　　　　　　　　　　　　　　　　　　　　ミﾐl_/ l_　　　　　　　　　　　　　　'ｰ-;､｀j

302:デフォルトの名無しさん
04/03/03 20:54
仕事でAdaを使ってる人いる？

303:デフォルトの名無しさん
04/03/04 23:07
Anubis zoeで出てた奴？

304:デフォルトの名無しさん
04/03/06 00:57
>>303
何それ？

305:デフォルトの名無しさん
04/03/09 21:12
GWindowsを使ってWindowを表示してみました。(Win2000)
GWindows url: URLﾘﾝｸ(www.adapower.com)

--
-- wintest.adb
--

with GWindows.Windows.Main;
with GWindows.Application;

procedure WinTest is
use GWindows.Windows.Main;
Top: GWindows.Windows.Main.Main_Window_Type;

begin
Create (Top, "Hello World");
Size (Top, 300, 100);
visible (Top);
Gwindows.Application.Message_Loop;
end;

306:デフォルトの名無しさん
04/03/09 21:35
>>305
おーっ(拍手

なんかすごそうだ。もっと使ってみた感想とか聞きたいかも

307:デフォルトの名無しさん
04/03/09 22:52
>>306
まず使えるようになるまでが大変でした。
MinGWのgnatだとうまく動かなかったので、
fURLﾘﾝｸ(cs.nyu.edu)
から、改めてダウンロードしてインストール。
で、環境変数を設定。（gnatはc:\gnatにインストールしたとする）
PATHにc:\gnat\binを追加。
ADA_INCLUDE_PATH=c:\gnat\lib\gcc-lib\pentium-mingw32msv\2.8.1\adainclude
ADA_OBJECTS_PATH=c:\gnat\lib\gcc-lib\pentium-mingw32msv\2.8.1\adalib
C_INCLUDE_PATH=c:\gnat\pentium-mingw32msv\include
LIBRARY_PATH=c:\gnat\lib\gcc-lib\pentium-mingw32msv\2.8.1

ここで、サンプルをコンパイルしようとすると、
なぜか、collect2が見つからないとかしかられるので、
c:\gnat\binにあるld.exeをcollect2.exeという名前でコピー。
（これに気づくまで、かなり悩みました。。。）

つぎに、gnatcom（URLﾘﾝｸ(www.adapower.com)）をインストール。
make install

そして最後にGWindowsをインストール。
make UNICODE=1 install

ってな感じで、疲れました。。。（インストールするまでに三日ぐらい悩んだ）
まだ、サンプルをコンパイルする程度なので、詳しい感想はのちほど。

308:305
04/03/10 22:48
マウスクリックイベントを取得してみました。
--
-- mousetest.adb
-- compile: gnatmake mousetest.adb
--
with GWindows.Message_Boxes;
with GWindows.Windows; use GWindows.Windows;
with GWindows.Windows.Main; use GWindows.Windows.Main;
with GWindows.Base;
with GWindows.Types;
with GWindows.Application;
procedure MouseTest is
Top: GWindows.Windows.Main.Main_Window_Type;

procedure OnMouseClick
(Window: in out GWindows.Base.Base_Window_Type'Class;
X : in Integer;
Y : in Integer;
Keys : in GWindows.Windows.Mouse_Key_States)
is
New_Point : GWindows.Types.Point_Type := (X, Y);
begin
GWindows.Message_Boxes.Message_Box ("on mouse click", "Clicked!");
end;

begin
Create (Top, "Hello World");
Size (Top, 300, 100);
On_Left_Mouse_Button_Down_Handler (Top, OnMouseClick'Unrestricted_Access);
visible (Top);
Gwindows.Application.Message_Loop;
end;

309:デフォルトの名無しさん
04/03/12 01:20
Delphiより、いいところってある？

310:305
04/03/13 22:30
>>309
Delphiと比べて考えたことはなかったですが、
並行プログラミングが言語の文法に組み込まれている
あたりが個人的には気になっています。

311:デフォルトの名無しさん
04/03/19 09:31
ゲーム製作技術板より転載

AdaSDL
　URLﾘﾝｸ(adasdl.sourceforge.net)
NeHe new base code with Ada
　URLﾘﾝｸ(www.abyss2.demon.co.uk)

312:デフォルトの名無しさん
04/03/30 18:40
今でも使ってるのかな？

313:デフォルトの名無しさん
04/03/30 20:49
>>312
今でも使っているし、多分１００年後も使っているだろう。

軍隊という所はそういう所です。

314:デフォルトの名無しさん
04/03/30 23:12
Delphiのそっくりじゃん！
妹？

315:デフォルトの名無しさん
04/03/30 23:43
>>314
C++とDが違う程度には違う

316:デフォルトの名無しさん
04/03/31 01:42
10歳違いの妹？

317:デフォルトの名無しさん
04/03/31 05:52
頑固でかたくなにゆずらない親父 ada
若くてすぐにつっぱしる Delphi

318:デフォルトの名無しさん
04/04/02 21:44
日本語の参考サイトがあんまりないね…

319:デフォルトの名無しさん
04/04/10 12:18
>>318
確かにあまりみかけないな

320:デフォルトの名無しさん
04/04/11 16:54
ちょっと使ってみようっと。

321:デフォルトの名無しさん
04/04/15 23:38
レス数が少ないけど、あまり使われてないのか

322:デフォルトの名無しさん
04/04/24 18:40
>>321
多分そうだろうな。

323:デフォルトの名無しさん
04/04/24 21:16
Adaの構文がCよりだったらなぁ…。で、Ada使ってるﾔｼのOSって何？
漏れはﾃﾞﾋﾞｱｿだけど。

324:デフォルトの名無しさん
04/04/24 21:26
点呼2！…って解釈でいいのかな？

Windows2000
上の方でA#いじってた奴です

325:デフォルトの名無しさん
04/04/24 21:38
>>324
Linuxだと、Adaの独自のﾏﾆｭｱﾙがあったり、cursesっていう端末制御ﾗｲﾌﾞﾗﾘが使えたりで、
他にもGNATとか色々ありますよ。Linuxは低燃費だからいらなくなったPCで試してみると面白いよ。

326:デフォルトの名無しさん
04/04/25 20:01
>>325
「いらなくなったPC」欲しいなあ…
WindowsでもgnatはありますしAPIは呼べますよん

…まさか、ふたりしかこのスレに残って無いなんてことは…！？

327:デフォルトの名無しさん
04/04/25 20:11
え？　点呼とってたんですか？
じゃ、３。

Win2000 & gnat & gwindows

328:デフォルトの名無しさん
04/04/25 23:42
4
redhat

329:323,325
04/04/26 00:34
WindowsにもGNATとかあるんだ。ｽﾏｿ。ところで「ﾌﾟﾛｸﾞﾗﾐﾝｸﾞの壷　III技術編」なる本に
Adaについて少し語ってある。数頁にわたって他の言語と比較してた。
ちなみに著者はﾌﾟﾛｰｶﾞさんでつ。他には「ﾊｯｶｰｽﾞ大事典」にもあった。話は変わるけどさ
(また重複してたらｽﾏｿ)Linuxには開発者(ﾕｰｻﾞではなく)向けのﾊﾟｯｹｰｼﾞが別にあって
開発者達が内部構造を解説した文書とかあって、そういうのが全ての処理系に
あるからﾕｰｻﾞには開発者ﾚﾍﾞﾙの自由もあるんだよね。よく「Have Fun！」とか書いてある。
で、ﾃﾞｭｱﾙﾌﾞｰﾄしてLinux使ってるWindowserはいる？

330:323,325
04/04/26 00:34
WindowsにもGNATとかあるんだ。ｽﾏｿ。ところで「ﾌﾟﾛｸﾞﾗﾐﾝｸﾞの壷　III技術編」なる本に
Adaについて少し語ってある。数頁にわたって他の言語と比較してた。
ちなみに著者はﾌﾟﾛｰｶﾞさんでつ。他には「ﾊｯｶｰｽﾞ大事典」にもあった。話は変わるけどさ
(また重複してたらｽﾏｿ)Linuxには開発者(ﾕｰｻﾞではなく)向けのﾊﾟｯｹｰｼﾞが別にあって
開発者達が内部構造を解説した文書とかあって、そういうのが全ての処理系に
あるからﾕｰｻﾞには開発者ﾚﾍﾞﾙの自由もあるんだよね。よく「Have Fun！」とか書いてある。
で、ﾃﾞｭｱﾙﾌﾞｰﾄしてLinux使ってるWindowserはいる？

331:デフォルトの名無しさん
04/04/26 00:36
sage忘れを阻止しようとした末の二重ｶｷｺ。ｽﾚ汚してｽﾏｿ(´･ω･｀)

332:デフォルトの名無しさん
04/04/26 19:13
>>329
デュアルブートじゃないけど、
Win2000で、Virtual PCにLinux入れて遊んでる。

333:デフォルトの名無しさん
04/04/27 13:30
記述量がめちゃくちゃ多いだろ？

334:デフォルトの名無しさん
04/04/27 19:07
うん。

335:デフォルトの名無しさん
04/04/30 15:39
>>333
もう少し少なくなればいいのにね。

336:デフォルトの名無しさん
04/05/10 18:16
Ada は、Panic に成らないような、エラー処理がふんだんにできると
聞きましたが、そうなんでしょうか｡

337:デフォルトの名無しさん
04/05/10 22:51
>>336
むかしのイメージだねえ。

338:デフォルトの名無しさん
04/05/10 23:01
>>336

冷戦前はね、といってみる…。

339:デフォルトの名無しさん
04/05/14 04:32
商業ﾍﾞｰｽのAdaはものすごく枯れてるらしいねぇ。そして、このｽﾚは別の意味で
枯れてきてるような気がw。「2ch流らくらくAda学習術」みたいな、Ada版K&Rでも作って
みたいなぁ。ちなみに、Adaで有名なTutorialみたいな物はあるのでしょうか＞詳しい人

340:デフォルトの名無しさん
04/05/14 09:18
>>336
いまや、C++, Java, C#にも例外処理はあるし、
オブジェクト指向だから協力。

341:デフォルトの名無しさん
04/05/14 09:18
>>339
昔のbitの別冊。

342:デフォルトの名無しさん
04/05/20 21:48
今現在で、他の言語と比べたAdaの利点ってなんだろう？

343:デフォルトの名無しさん
04/05/22 01:01
ランデブーという圧倒的利点が・・・ｗ

ボーランドがコンパイラを出してれば、Adaもメジャーになれてたかもな

344:デフォルトの名無しさん
04/05/22 16:03
Ada0Yになると、また色々面白いことができそうなんだが、
正直Ada95時点では、強力過ぎて迷惑な型チェックとランデブー等組み込みの同期メカニズムぐらいしか無いな

いや、マルチスレッドプログラムで、構文故にケアレスミスを弾いてくれるのはありがたい筈なんだけど

345:デフォルトの名無しさん
04/05/23 00:05
Ada0Yが登場するのはいつなんだ？

346:デフォルトの名無しさん
04/05/23 00:40
独立型戦闘支援ユニットADA

347:デフォルトの名無しさん
04/05/23 06:05
このまま消えるのは、惜しい逸材なんだが
PL/Iと同じ運命をたどるのだろうな
Adaの先進的だった機能は
C++にほとんどキャッチアップされてしまったから
存在意義もあまりないし

348:デフォルトの名無しさん
04/05/23 06:23
米軍のいろんな所で使われているんじゃないの？

349:デフォルトの名無しさん
04/05/23 06:35
Ada0Yを知った時はびっくりしたが、Fortranですら改定され続けてるんだ。
それに、先進的な言語を作ろうとしたのではなくて、
必要な機能を備えた言語を作ろうとしてできたわけだから。
しかも組み込み向けだし。
日本での需要が無かろうが余計な心配だろ。

350:デフォルトの名無しさん
04/06/12 16:43
この言語すたれちゃったのか？

351:デフォルトの名無しさん
04/06/12 20:09
gccのメーリングリストとか見てると、続々とAda0Yの先取り実装がなされてて
このところ次のバージョンが楽しみではある。

とりあえずクロージャとinterfaceさえ追加されれば他の言語に追いつける。
そうすれば元から持ってたスレッドや低レベル操作で優位に立てる…んじゃないかなー、と

352:デフォルトの名無しさん
04/06/13 09:31
adaどんな環境で書いてる？
emacs？

愛用のxyzzyにada-modeなくて悲しい・・・

353:デフォルトの名無しさん
04/06/16 22:04
>>352
XEmacsです。

354:デフォルトの名無しさん
04/06/16 22:44
vi

355:デフォルトの名無しさん
04/06/17 00:09
xyzzyで自作ada-mode

356:デフォルトの名無しさん
04/06/17 08:06
>>355
晒して下さい。おながいします
ハァハァ

357:デフォルトの名無しさん
04/06/18 22:26
漏れは趣味プログラミングで使ってるけど、仕事で使ってる人いる？

358:デフォルトの名無しさん
04/06/18 22:58
いたら怖い
F22を自衛隊が採用しても
F22のメンテするのはメリケンでしょ？

359:デフォルトの名無しさん
04/06/18 23:11
メンテは日本人がやるでしょ。
ただブラックボックスを開けようとすると爆発するけど。

360:デフォルトの名無しさん
04/06/19 15:17
IBMとかAONIXがPC向けにコンパイラ売ってるよ
ってことはPC向けの仕事があるからじゃないか？＞向こうでは

潜水艦にNTなんて馬鹿な真似用じゃ無いことは祈っておくが

361:デフォルトの名無しさん
04/06/20 01:52
GTK　Ada
URLﾘﾝｸ(libre.act-europe.fr)

362:デフォルトの名無しさん
04/06/20 23:29
>>356
ruby.lのキーワード変えたくらいの
しょぼいものなので、晒すほどのできではないです。
emacsのやつを移植使おうとしたけどでかくてやめた。

363:デフォルトの名無しさん
04/06/21 07:46
おお、ruby.lを見ればなんとかインデントくらいは実装できそうだ
thanx！

364:デフォルトの名無しさん
04/06/21 21:55
Ada0Yはいつ頃出るんだろう…？

365:デフォルトの名無しさん
04/06/26 22:53
>>364
0Yだけに、2009年までには出るのでは？

366:デフォルトの名無しさん
04/06/27 01:45
>>364
英語でぐぐったところ、どうやら"Ada05"になりそう。来年。

367:デフォルトの名無しさん
04/07/03 15:51
>>366
来年ですか、ありがとう。

368:デフォルトの名無しさん
04/07/03 16:25
>>367
規格が来年ってだけで、GNAT(gcc)に限れば先行実装されてきてるYO！
とりあえず今のところlimited withと、他のOOPLライクなメソッド呼び出し構文ぐらいは動く。
-gnatXをつけてコンパイルだ。

369:デフォルトの名無しさん
04/07/06 07:48
だれか、俺にrandezvousを教えてくれ。

メッセージを送信すると受信側のタスクが受信して処理し終わるまでブロッキング。
受信側のタスクはメッセージが送られてくるまでブロッキングされる。

というニュアンスでいいの？
正確なところをフォロープリーズ。

370:デフォルトの名無しさん
04/07/09 12:34
私も教えてほしい…
一般に使われてるMutex/クリティカルセクションと、
Adaのランデブー/protected型の違いによる
コーディングスタイルというかマルチスレッド用デザパタというか
そういうのの差違を説明したところないですかー？

371:デフォルトの名無しさん
04/07/10 00:20
ランデブーって MPI みたいなやつ？

URLﾘﾝｸ(www-unix.mcs.anl.gov)

372:デフォルトの名無しさん
04/07/16 21:16
早く規格ができないかな。

373:デフォルトの名無しさん
04/07/22 22:17
面白そうだから今度使ってみようかな

374:デフォルトの名無しさん
04/07/24 12:46
win版開発環境はあるのか？

375:デフォルトの名無しさん
04/07/24 14:24
>>374
コマンドラインだけでよければgccの対応言語のひとつ。
開発環境が欲しければgnat.comとかIBMとかaonixが売っているらしい

376:デフォルトの名無しさん
04/08/07 19:21
この言語を使うことによるメリットは何だろう？

377:デフォルトの名無しさん
04/08/08 02:52
そりゃもう、徹底的なコンパイル時チェックによって、コンパイルエラーと戦いながら
バグの混じる余地の無いソースを書き上げる快感ですよ

378:デフォルトの名無しさん
04/08/09 14:05
あだスレまだあったのか

379:デフォルトの名無しさん
04/08/12 17:54
こりゃえいだ

380:デフォルトの名無しさん
04/08/14 01:24
>>379
工エｴェｪ(´д｀)ｪェｴエ工

381:デフォルトの名無しさん
04/08/14 01:37
gcc3.5はいつになるのかな…

382:デフォルトの名無しさん
04/08/14 02:10
>>375
gcc って直接ネイティブコード吐くの?
それとも C を経由?

383:デフォルトの名無しさん
04/08/14 02:36
>>382
gcc -c aaa.adbとかでコンパイルするから、Cは経由してないはず。
もっとも、gccの中間表現は経由してるだろうけど、これはgccでコンパイルできる言語ならどれも同じ

384:デフォルトの名無しさん
04/08/14 23:24
この言語を使うと、他の言語を使った時よりもセキュリティが堅固なシステムを作れるのか？

385:デフォルトの名無しさん
04/08/15 05:19
>>384
いんや、実行時はCと変わんないよ。コンパイル時チェックが厳しいだけ
まあ、デバッグコンパイルしたのを運用すれば範囲外の数値なんかは検出してくれるが…

386:デフォルトの名無しさん
04/08/29 01:33
盛り上がってまいりました！

387:デフォルトの名無しさん
04/08/31 01:31
>>386
工エｴェｪ（´д｀）ｪェｴエ工

388:デフォルトの名無しさん
04/08/31 01:51
>>387
(・∀・)ｲﾀﾞ!!

389:デフォルトの名無しさん
04/09/09 07:26
>>374
>>375
名前がまぎらわしいけど、フリーのIDEあるよ。
GPS: The GNAT Programming System
URLﾘﾝｸ(libre.act-europe.fr)

あと、前からあるのはAdaGIDEとか。
URLﾘﾝｸ(www.usafa.af.mil)

390:デフォルトの名無しさん
04/09/09 20:49
GPS…酷い名前だ。

391:デフォルトの名無しさん
04/09/11 01:34:42
>>390
誤解されそうだな。

392:デフォルトの名無しさん
04/09/11 23:01:09
>>390
名前が一緒っていいのか？

393:デフォルトの名無しさん
04/09/14 23:46:12
>>384
まあ、C/C++でいうバッファオーバフローはないね。
URLﾘﾝｸ(www.linux.or.jp)

394:デフォルトの名無しさん
04/09/15 03:02:16
>> 371
MPIとは違うな。
rendezvousは、1ノード上のマルチスレッド間通信。

MPIみたいな多ノード間の通信の言語仕様は、Annex E "Distributed Systems"。
URLﾘﾝｸ(www.adaic.org)

395:デフォルトの名無しさん
04/09/17 21:36:58
このスレの住人には常識かもしれんけど

URLﾘﾝｸ(e-words.jp)

>　当時の最新のプログラミング理論やソフトウェア方法論をまるごと取り入れようとした野心的な言語仕様で、厳密なデータ型の定義や、ソフトウェアのモジュール(部品)化、並行処理に関する仕様が特徴的である。

>　しかし、あまりに多くの仕様を取り込もうとしたことが過度の肥大化を招き、当時の貧弱なハードウェアで開発を行なうのは困難になってしまった。

>　このため、1980年代中盤から後半にかけて、より「軽い」仕様を持ったC言語に取って代わられた。

これ文の特にこの部分
>当時の貧弱なハードウェアで開発を行なうのは困難になってしまった。

これ読んでふと思た。
パソコンでもメモリが1G、CPUクロック3Gが常識な今、まだアセンブラに近いようなC言語使ってて良いの？
ポインタなんてのはCPUの構造を熟知してアセンブラがある程度わかって初めて正確に理解できるようなもんでしょ。

きっとAdaの時代がくるに違いありません。ひょっとしたら進化したPascalなのかもしれないけど？
識者の検証を頂けたら幸いです。

396:デフォルトの名無しさん
04/09/17 22:50:33
Adaって、C並にガリガリの組込用言語だと思ってるんだけど。
Cの場合実装依存として投げてしまってる部分を、
全部ガッチガッチに文法にしてコンパイルエラー出せるようにしてあるから
仕様がでっかくなってるだけで。

397:デフォルトの名無しさん
04/09/17 23:30:37
>>393にも関連するけどAdaでOSを作ろうとかいう話があったね。
（海外Webサイト）

398:デフォルトの名無しさん
04/09/19 22:36:56
コンパイルエラーちゃんと出してくれる方がプログラマにはやさしいと思うが？

399:デフォルトの名無しさん
04/09/19 22:46:28
>Adaって、C並にガリガリの組込用言語だと思ってるんだけど。
Adaを論理回路設計に特化させたのがVHDLだし。
つまりVHDLでCPUも造れてしまうわけで。

400:デフォルトの名無しさん
04/09/28 18:37:57
　

401:デフォルトの名無しさん
04/09/29 16:58:55
なかなか次のgcc出ないなあ…Ada05早く使いたいYO！

402:デフォルトの名無しさん
04/09/30 23:00:18
>>402
05だけに、2005年まで出ないのでは？

403:デフォルトの名無しさん
04/09/30 23:03:54
ではこのスレも来年まで保守か…長寿スレだな(いまでも充分

404:デフォルトの名無しさん
04/10/01 03:19:05
型の種類が多すぎて覚えられない。

あと、変数を大文字から始めるという慣習のために、小指がいたくなる。

405:デフォルトの名無しさん
04/10/01 16:53:56
こんなイイ言語がCより前からあったなんて…．

406:デフォルトの名無しさん
04/10/01 20:14:30
>>404
そんな貴方に親指シフト

マジレスすると、大文字小文字無視(だから"_"で区切ってる)なので、全部小文字で打て

407:デフォルトの名無しさん
04/10/10 01:04:37

408:デフォルトの名無しさん
04/10/13 04:57:50
>> 405
Plauger（ANSI C委員会）さんも昔
“Beyond 100,000 lines of code, you should probably be coding in Ada.”
と言ってた。

409:デフォルトの名無しさん
04/10/13 22:06:39
なに？コンテナライブラリが作って？

410:デフォルトの名無しさん
04/10/14 01:06:20
URLﾘﾝｸ(www.ada-auth.org)
誰かこいつを要約してくれ

411:デフォルトの名無しさん
04/10/14 05:30:38
ISOで制定されたAda95に対する修正案のドラフト版？

412:デフォルトの名無しさん
04/10/14 05:39:50
列挙型としてboolean,character,Wide_Characterが予め定義されている。
　↓（修正）
それにWide_Wide_Characterも追加しる！

とかそんなのがいっぱい書いてあるみたいだけど…

413:デフォルトの名無しさん
04/10/14 09:54:56
overridingの明示が、overriding procedure …って書くようになってるなあ
pragma overriding …はどうなるんだろう

あと面白そうなのが拡張return文
C++なんかではreturnで(コピー)コンストラクタが走った後もうそのオブジェクトには触れないが
関数を抜ける前に細工ができるようになってる

414:デフォルトの名無しさん
04/10/16 00:53:27
Ada05がメジャーになる日は果たしてくるのだろうか？

415:デフォルトの名無しさん
04/10/16 01:06:24
来ないでしょ。

416:デフォルトの名無しさん
04/10/16 02:08:07
ていうか日本語で入門記事キボンヌ
マジわからん
Delphiやっててもさっぱりなんだが

417:デフォルトの名無しさん
04/10/16 11:17:01
>>416
Hello World程度ならこのスレの上の方にあるだろ
それ以上は逐次質問してくれい

…このスレ三人ぐらいはいそうなので俺もわからなくても誰か答えてくれるさ

418:デフォルトの名無しさん
04/10/16 13:46:40
じゃあ質問して見るか。
並列処理の制御ってどうやるの？
task,task body...をいくつか書いておけばそれらは同時に処理されるんだけど
勝手に処理が始まる。こちらで任意に処理を開始したり停止したりできない。
英語のサイトも見てacceptも試して見たがさっぱりだ。
誰かわかる？
...ああいま昔のレス見てたらlovelaceっていうAdaチュートリアルにも並列処理の事載ってるみたいだな。
そこを見るの忘れてた。当たって見るか。

419:デフォルトの名無しさん
04/10/16 14:59:42
ゲーム作りはＣ＋＋やＪＡＶＡが主流だし、日本ではこの言語がどんな所で
使われてるのかさっぱり分からん。
日本語の参考書も見たことないし…
大学か趣味プログラミングが主流なのかな？

420:デフォルトの名無しさん
04/10/16 15:02:41
アメリカでも使ってるヤツ少ないんじゃないか？

421:デフォルトの名無しさん
04/10/16 15:23:27
今書いてみたヘボサンプルを貼ってみるテスト。
with Ada.Text_IO;
procedure Test is
　task type A_Task is
　　entry Setup(Message: in String);
　　entry Join;
　end A_Task;
　task body A_Task is
　begin
　　Ada.Text_IO.Put_Line("* start!");
　　accept Setup(Message: in String) do
　　　Ada.Text_IO.Put("* "); Ada.Text_IO.Put(Message); Ada.Text_IO.Put_Line("!");
　　end Setup;
　　loop
　　　select accept Join do Ada.Text_IO.Put_Line("* exit!"); end Join; abort A_Task;
　　　else Ada.Text_IO.Put("#"); delay 0.1;
　　　end select;
　　end loop;
　end A_Task;
　type A_Access is access A_Task;
　A: A_Access;
begin
　Ada.Text_IO.Put_Line("go!"); A := new A_Task; A.Setup("setup");
　delay 1.0; A.Join; Ada.Text_IO.Put_Line("end!");
end Test;

422:デフォルトの名無しさん
04/10/16 15:28:36
Win32で言えば、entryがCreateEventで、acceptがWaitForSingleObjectで、
selectがWaitForMultipleObjectsで、delayがSleepで、abortがExitThread…かな。
なおacceptの後にdoを続けた場合、そのブロックが終わるまで呼び出し元は待ってるようだ。
それとtask typeって形で型にしておけば、newするまで実行されない。

423:デフォルトの名無しさん
04/10/16 16:29:31
with Ada.Text_IO;
procedure Test2 is
begin
　select
　　delay 1.0;
　then abort
　　loop
　　　Ada.Text_IO.Put("*");
　　　delay 0.1;
　　end loop;
　end select;
end Test2;
条件を満たしたらthen abort以下の処理を強制中断するとか…こんな機能あっても使うのか？
RM読んでたら、並列処理関係はほんとのほんとに無駄に機能豊富。

424:418
04/10/16 19:47:23
>>421-422
ありがたい。助かるよ。
が、>>421のプログラムをそのままコンパして実行って見たが
やっぱりtask body A_Task 内のaccept　setup（）の所で止まる...
いやぁ、上で「acceptも試して見たがさっぱりだ」と書いたが同じだよ。
acceptに入った時点でプログラムが止まるんだ。無いと普通に動くんだけどねぇ。
しかもacceptの有無にかかわらず呼び出し元も止まるし。
コンパるときに何かオプション必要だっけ？
とりあえず今やらんとしていることは>>421を参考にできそうだ。ありがとう。

425:デフォルトの名無しさん
04/10/16 23:08:40
>>424
んー…別にオプションも要らないけど…
環境は？こっちはMinGWの3.4.2@Windows2000

426:418
04/10/16 23:28:54
>>425
GNAT3.15p+gcc2.8.1@MandrakeLinux10.0也。
gcc3.4.2でやりたいんだけどね。うまくいかなくて。
まずはしっかりと環境を整えるべきだったか。
先にgcc3.4.2使えるようにするか...。

427:デフォルトの名無しさん
04/10/16 23:31:28
　

428:デフォルトの名無しさん
04/10/19 07:56:04
>>423
select-then abortはそれなりに便利だよ。

時間をかければかけるほど精度の高い解が得られる近似計算があって、
ただし時間制約(100msecとか、イベントが入ってくるまで)が来たら、
その時点までに得られた近似解を採用しなければならない、なんて
「タイムアウト」は、リアルタイムシステムには割とよくある
問題領域だと思うけど。

「タイムアウト」がどんなOSでもソース・コンパチで書けるって、
かなり樂。

429:デフォルトの名無しさん
04/10/20 15:21:33
>>428
ほうほう

430:デフォルトの名無しさん
04/10/26 22:16:15
>>396
確かに。

例えばメモリマップドのハードウエアをアクセスするなら、
ＣやＣ++よりもAdaのほうが確実で樂だしね。
ユーザ定義の固定小数点も使えるからA/DやD/Aなんかも直感的。

431:デフォルトの名無しさん
04/10/27 04:29:46
GNATのprotected型、multi-read-exclusive-writeになってない気がする…
気のせいだろうか？単なるクリティカルセクションのような…

432:デフォルトの名無しさん
04/10/27 10:35:41
>>274
ﾀｲｰﾌｫ

433:デフォルトの名無しさん
04/10/27 14:34:29
>>430
まじで？
俺GBAで使ってみたいんだけど、誰かやってみるやつはいないか？

434:デフォルトの名無しさん
04/10/27 19:56:21
>>433
ARM向けクロスコンパイラ、ですか。

435:デフォルトの名無しさん
04/10/28 13:26:14
YES!YES!YES!

436:デフォルトの名無しさん
04/10/28 18:52:38
よくわからないデスケド、この辺？
URLﾘﾝｸ(www.mingw.org)
…逆かも

437:デフォルトの名無しさん
04/10/30 10:36:04
ＡＧＥ

438:デフォルトの名無しさん
04/10/30 16:19:33
CLONE OF ADA sage !

439:433
04/11/02 16:43:11
とりあえず、コンパイルできたら報告するよ

440:デフォルトの名無しさん
04/11/02 17:30:23
>>439
がんがれ！

441:デフォルトの名無しさん
04/11/03 06:34:18
>>439
GOGO

442:433
04/11/03 16:48:20
コンパイルできたヽ( ´ー｀)ノ
手順まとめてみた
URLﾘﾝｸ(tinyurl.com)

この辺が参考になりますた

URLﾘﾝｸ(milky.way-nifty.com)
URLﾘﾝｸ(gba.imou.to)

ただ、adaでコンパイルはまだ試してないorz

443:418
04/11/07 13:52:44
ようやくgcc3.4.2のgnat*がインストールできた...
初心者よ、
URLﾘﾝｸ(gcc.gnu.org)を見る前に
INSTALL/build.htmlを見よう。
...インストールなんかで詰まるのは俺ぐらいか...

ちなみにgcc3.4.2だと>>421のプログラムも正常に動作。
GNAT3.15じゃなくgccを使おう。
...GNAT3.15でいいやと思うのは俺ぐらいか...

長かったor2

444:デフォルトの名無しさん
04/11/07 18:14:41
>>443
乙！

445:デフォルトの名無しさん
04/11/07 19:20:35
もつかれ

446:デフォルトの名無しさん
04/11/13 17:53:52
Adaは宇宙開発にも使われてるのかな？

447:デフォルトの名無しさん
04/11/16 16:43:51
ada

448:デフォルトの名無しさん
04/11/16 17:18:08
PL/Iと同じ轍を踏んだ言語

449:デフォルトの名無しさん
04/11/17 00:07:40
>>446
FedSat - Ada Inside
URLﾘﾝｸ(groups.google.co.jp)
International Space Station
URLﾘﾝｸ(www.boeing.com)

450:デフォルトの名無しさん
04/11/17 12:14:47
>The language on the On Board Computer? Ada-95. Of course.
>
>The compiler? Gnat 3.13p

>"In space, no-one can press CTRL-ALT-DEL"
>
>But with Ada, you don't have to.

カコイイ。

451:446
04/11/17 23:59:54
>>449
ありが㌧。
やっぱり使われてたんだ！

452:デフォルトの名無しさん
04/11/18 22:48:43
こりゃえいだって既出ですか、そうですか

453:デフォルトの名無しさん
04/11/19 23:16:35
ぷ

454:デフォルトの名無しさん
04/11/19 23:55:43
>>449
おお

455:デフォルトの名無しさん
04/11/20 00:18:10
Beagle 2:
URLﾘﾝｸ(www.xgc.com)
The Beagle 2 Mars lander, using ERC32 Ada, successfully separated
from Mars Express and started its descent to the red planet.

456:デフォルトの名無しさん
04/11/20 00:27:35
Atlas V:
URLﾘﾝｸ(www.ddci.com)
Lockheed Martin Space Systems depends on TADS to develop modern,
object-oriented real-time flight control software for the new
Atlas V launch vehicle.

The maiden voyage of Lockheed Martin’s first Atlas V rocket
lifted off from Space Launch Complex 41 at Cape Canaveral on
August 12, 2002, freed from its earthly bonds by flight control
software created with DDC-I’s Tartan Ada Development System
(TADS).

457:デフォルトの名無しさん
04/11/20 00:42:28
こいつもAdaという噂。
URLﾘﾝｸ(www.nasda.go.jp)
まあ１段目はロッキードだけど。

他のところはどうなんだろう？

458:デフォルトの名無しさん
04/11/20 20:40:27
アメリカではいろいろ使われてるんだな

459:デフォルトの名無しさん
04/11/21 17:42:33
>>458
参考書もいっぱい出てるし、そうだろうな。

460:デフォルトの名無しさん
04/11/22 09:28:24

461:デフォルトの名無しさん
04/11/23 14:27:52
>>1
m９（^Д^）ﾌﾟｷﾞｬｰ

462:デフォルトの名無しさん
04/11/23 20:12:11
URLﾘﾝｸ(burks.brighton.ac.uk)

すごい言われようだな(w

463:デフォルトの名無しさん
04/11/24 14:51:06
>>462
まあAda以外の言語にもすごいこといってるし

464:デフォルトの名無しさん
04/11/26 15:09:12
盛り上がってきたな！

465:デフォルトの名無しさん
04/11/26 18:02:13
ADAはたぶん埋もれる言語の一つだと思う。

466:デフォルトの名無しさん
04/11/26 22:27:30
>>465
このスレがそのことを暗示しているような…

467:デフォルトの名無しさん
04/11/30 18:21:01
　

468:はるな
04/11/30 19:30:11
作り方分かりますか？
コンピュータが 0から 9までの数を 4つ, 順序付きで重複なく選ぶとする. プレイヤ(人間)は, この数列を当てるのだが, はずれた場合に提示されるヒントは次の通り.

正解の n番目の数を n番目に解答していれば, Hit と呼ぶ. Hit の個数がヒントとして提示される.
正解の n番目の数を m番目(n≠m)に解答していれば, Blow と呼ぶ. Blow の個数がヒントとして提示される.

469:作ってみたその1
04/12/01 00:02:43
with Ada.Numerics.Discrete_Random,Ada.Text_Io,Ada.Integer_Text_Io,Ada.Calendar;
use Ada.Text_Io,Ada.Integer_Text_Io,Ada.Calendar;
procedure game Is
package R Is New Ada.Numerics.Discrete_Random(natural); use R;
type Four_Array is array(1..4)of Integer;
function Generate Return Integer is
seed:Generator;
begin
Reset(seed,Integer(Seconds(Clock)*100));
return Random(Seed) mod 10;
end Generate;
function Search(Target:Four_array;Seed:In Integer) Return integer Is
begin
for I in 1..4 loop
if Target(I) = Seed then
return i;
end if;
end loop;
return 0;
end Search;
procedure Initialize(computer:In out Four_array) is
begin
for I in 1..4 loop
computer(I):=-1;
end loop;
end initialize;

470:作ってみたその2/3
04/12/01 00:08:55
procedure Decide(computer:in out Four_array) Is
int:Integer;
begin
Initialize(Computer);
for I in 1..4 Loop
loop Int:=Generate;exit when Search(computer,Int) = 0; end loop;
Computer(I):=Int;delay 0.01;
end loop;
end Decide;
procedure Read(Player:in out Four_array) is
int,Index:Integer:=1;Char:character;
begin
while Index <= 4 Loop
Get_Immediate(char);
case Char is
when '0'..'9' =>
Int:=Character'Pos(char)-16#30#;
if Search(Player,int) /= 0 then
New_Line;Put_Line("その値はもう使えません");
for I in 1..Index-1 loop
Put(Character'Val(Player(i)+16#30#));
end loop;
else Put(char);Player(index):=int;Index:=Index+1; end if;
when others =>
New_Line;Put_Line("0から9までの数値を入れてください");
for I in 1..Index-1 Loop
Put(Character'Val(Player(I)+16#30#));
end loop;
end case;
end loop;
end Read;

471:作ってみたその3/3
04/12/01 00:09:44
function Compare(computer,Player:in Four_array) return Boolean is
Hit_Count:Integer:=0;
Blow_Count:Integer:=0;
Search_Result:integer;
begin
for I In 1..4 Loop
Search_Result:=Search(Computer,Player(i));
if Search_Result = I Then
Hit_Count:=Hit_Count+1;
elsif Search_result /= 0 then
Blow_Count:=Blow_Count+1;
end if;
end loop;
New_Line;
Put_Line("Hit : "&Integer'Image(Hit_count));
Put_Line("Blow : "&Integer'Image(Blow_count));
if Hit_Count = 4 then
return True;
end if;
return False;
end Compare;
computer,player:Four_Array;
begin
Decide(computer);
loop
Initialize(player);
Read(Player);
exit when Compare(computer,Player);
end loop;
end game;

472:作ってみた人
04/12/01 00:11:01
ここって改行いくつまで...?
まぁもっとうまいひとが書けばもっと短くなるだろうが。

473:デフォルトの名無しさん
04/12/05 00:06:46
？

474:デフォルトの名無しさん
04/12/05 01:10:19
>>24
> あの設計者は、懲役3年執行猶予2年くらいには相当するね。
執行猶予のほうが短いなんて…

475:デフォルトの名無しさん
04/12/05 01:11:05
>>29
ぬるぽ

次ページ