ドリームジャンボコロッケを求めて (`・ω・´)

つぶやき程度のうんたらかんたらが綴られています
ブログ主への連絡を必要とする場合は掲示板までお願いします















16:51 02月10日 [水]
冷蔵庫の一段目の扉を開けて(ry
122 名前: グリモワール(魔法の森)[] 投稿日:2010/02/04(木) 01:22:29.52 ID:AliceMgtr0
冷蔵庫の一段目の扉を開けて卵があればオムレツを作って食べる


これをプログラミングで表現するとどうなるのかしら?

129 名前: チョーク(人里)[] 投稿日:2010/02/04(木) 01:26:40.65 ID:Keine/Haktak
>>122

if( 冷蔵庫.扉[0].contains("卵") )
 Omuletu OML = new Omulets();


132 名前: ツァーリ・ボンバ(河川)[sage] 投稿日:2010/02/04(木) 01:29:23.35 ID:NitriKappa
>>122
eat(cook(omelet)) if grep 'egg', @$refrigerator->[0];


136 名前: 式神(やくもけ)[sage] 投稿日:2010/02/04(木) 01:31:34.46 ID:LanFoxbat
>>122
#define REIZOUKO_TOBIRA_KAZU 2
int egg[REIZOUKO_TOBIRA_KAZU];
egg[1] = 1;
for(int i = 1; i <= REIZOUKO_TOBIRA_KAZU; i++) {
 if(i == 1 && egg[i]) {
  omuretutukuruyo();
 }
}

176 名前: ダイソン(紅魔館)[] 投稿日:2010/02/04(木) 01:51:14.93 ID:S/VRemiria
>>122
if reizouko[0].count("卵"):eat(makeomuretu())

195 名前: 結界少女(やくもけ)[sage] 投稿日:2010/02/04(木) 02:41:15.32 ID:Yukarin0
>>122
000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. OMURETU.
000030 ENVIRONMENT DIVISION.
000040 INPUT-OUTPUT SECTION.
000050 FILE-CONTROL.
000060 SELECT FILE1 ASSIGN TO "REIZOUKO" STATUS FS.
000070 DATA DIVISION.
000080 FILE SECTION.
000090 FD FILE1.
000100 01 REIZOUKO.
000110  03 R-TANA OCCURS 2.
000120    05 RT-TABEMONO OCCURS 10 PIC X(10).
000130 WORKING-STORAGE SECTION.
000140 01 FS PIC 9(02).
000150 01 R-IDX PIC 9(02) VALUE 1.
000160 01 RT-IDX PIC 9(02).
000170 01 RTT-WRK PIC X(10).
000180 PROCEDURE DIVISION.
000190 OPEN INPUT FILE1
000200 PERFORM UNTIL FS NOT = "00"
000210  READ FILE1
000220    INITIALIZE R-IDX
000230    PERFORM VARYING RT-IDX FROM 1 BY 1 UNTIL RT-IDX > 10
000240      MOVE RT-TABEMONO(R-IDX RT-IDX) TO RTT-WRK
000250      IF RTT-WRK = "卵"
000260        THEN DISPLAY "オムレツつくるよー"
000270      END-IF
000280    END-PERFORM
000290  END-READ
000300 END-PERFORM
000310 CLOSE FILE1
000320 STOP RUN.

196 名前: 式神(やくもけ)[sage] 投稿日:2010/02/04(木) 02:43:55.14 ID:LanFoxbat
長い、長すぎる
コメント投稿の受付は終了しました。
携帯向けRSSATOMGoogleSitemap管理ページ