81,73,73,84,65という数字の順番が大好きです。81,73,73,84,65という並びがあったら1、なかったら0を出力するプログラムを作成してください。
1
2
3
4
5
6
7
8
9
10
0
91
22
31
81
73
73
84
65
23
10
1
追記しました
91
22
31
81
7
3
73
84
65
23
10
0
暇人なのでトライしようかな！。但し、机上です。
cat - | ruby battle.rb
ctrl+zで終了
または、
#!/bin/sh
cat <<EOF | ruby battle.rb
31
81
73
73
84
65
23
EOF
wc battle.rb
で、最もファイルサイズが最小な方の勝ちで宜しいでしょうか？
尚、私はコードを
｀｀｀
p 1 見せるコード
｀｀｀
<!--
見せないコード
--> 進捗30% 5/31公開予定
として非表示で最初は掲載します。
忘れそうなのでコード公開します。
机上は諦めて、携帯にTermux をインストールし,完成しました。
y=[81,73
x=$stdin.readlines
p 条件 ? 1 : 0
p 条件?1:0 これも発見！(4バイト節約）
p STDIN.readlines 試行錯誤で発見！
p$stdin.readlines 字数は変わらない
p$<.readlines wxotuさんを参考
y=/81\n73\n73\n84\n65/
x=$stdin.read
p x=~y?1:0
p$stdin.read=~/81\n73\n73\n84\n65/?1:0
1 1 39 battle.rb 私の記録です。
\nを改行で１文字節約するwxotuさんに脱帽です。$stdinも調べたのですが$<は見落としてました。rubyは深いと実感してます。
p$<.read=~/81
73
73
84
65/?1:0
5 5 31 battle.rb wxotuさんにオマージュとして３１バイトでした。
皆さんチャレンジしてください。
p$<.read.gsub(/\n/,'')=~/8173738465/?1:0
7,3と分かれた場合のコードです。
p$<.read['81
73
73
84
65']?1:0
@HalHaradaさん、@woxtuさんご参加ありがとうございました！
今回は@woxtuさんのコードが最初に一番短かったです！入力された文字列に指定の文字列が含まれているかの判定を$<.read['指定文字列']でしていたのが早かったポイントですね！
@HalHaradaさんも=~を使用して短くしていてすごいと思いました！
今回の問題で僕は81,73,73,84,65という数字の順番が大好きです。という出題をしたのは81,73,73,84,65という数字をASCIIで文字列に置き換えるとQIITAとなり、これに気付いて気持ちよく解いてくれないかなという意図でした！
また次回開催いたしましたら是非ご参加してください！