プチコンまとめWiki (初代/mkII)

投稿プログラム : STAP細胞できるかな?

2014年6月9日投稿 / 投稿者 : スルメ / タグ : 投稿プログラム mkII専用 時事ネタ ちょっといじって見てるだけ

概要

アルファベット26文字をランダムに4文字引き出し、それが「STAP」であれば終了します。 ね?くだんないでしょ?

小ネタ

小ネタってこねこに似てるよね R=0を1〜3にすると、最初の1〜3文字が固定されます。

そういえば・・・

2014/06/12
  • なんか主な論文が取り下げとかいってたね
  • 実験に使われたマウスは生まれて来ないマウスだって?

スクリーンショット・動画

QR コード

プチコンmkII 向けの QR コードです。

プログラムリスト

  1. CLEAR
  2. DIM A$(26)
  3. FOR I=0 TO 25
  4.  A$(I)=CHR$(65+I)
  5. NEXT
  6. R=0
  7. @LP
  8. IF R==0 THEN A$=A$(RND(26))+A$(RND(26))+A$(RND(26))+A$(RND(26))
  9. IF R==1 THEN A$=”S”+A$(RND(26))+A$(RND(26))+A$(RND(26))
  10. IF R==2 THEN A$=”ST”+A$(RND(26))+A$(RND(26))
  11. IF R==3 THEN A$=”STA”+A$(RND(26))
  12. K1=K1+1
  13. IF !K2 THEN K$=STR$(K1)
  14. IF K2 THEN K$=STR$(K2)+RIGHT$(”00000”+STR$(K1),5)
  15. IF K1>99999 THEN K1=K1−100000:K2=K2+1
  16. IF BUTTON(1) AND 1024 THEN SK=!SK:WAIT 1
  17. IF !SK THEN ?A$”サイホ゛ウ!(”K$”カイメ)”
  18. IF A$==”STAP” THEN ?:?K$”カイメテ゛ヨウセイカクニン”:?:?”ヨカッタ★”:END
  19. GOTO @LP

投票

選択肢 投票
何故こうなった 2  

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • 名無しさん : 26^4でだいたい46万分の1だね。 (2014/06/09 (月) 19:52:42)
  • ベルック : 俺も最近同じ内容のプログラム作ったわww (2014/06/10 (火) 19:53:39)
  • Citringo : 時事ネタw (2014/06/10 (火) 21:10:09)
  • 名無しさん : QRがないのだが (2014/06/20 (金) 20:48:30)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.042 秒 | このページの最終更新 : 2015/11/02 (月) 15:00:09 (1471d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30