【問題】配列{"ドド","スコ"}からランダムに要素を標準出力し続け、『その並びが「ドドスコスコスコ」を3回繰り返したもの』に一致したときに「ラブ注入♡」と標準出力して終了するプログラムを作成せよ(配点:5点)
Thread
Conversation
![](data:image/svg+xml,<svg xmlns="http://www.w3.org/2000/svg" width="48" height="48"><rect fill-opacity="0"/></svg>)
Replying to
JavaScript, TypeScript, Java, C, C++, Python, Ruby, Windowsバッチ, PowerShell, Closure, Julia, Lua, Rust, シェルスクリプト,Google App Script, AppleScript, Appleショートカット, PHP, R, Perlなどなど…
すげぇ！
1
24
172
C#！解答早いですね
1
27
Show replies
![](data:image/svg+xml,<svg xmlns="http://www.w3.org/2000/svg" width="240" height="135"><rect fill-opacity="0"/></svg>)
![Image](data:image/svg+xml,<svg xmlns="http://www.w3.org/2000/svg" width="357" height="360"><rect fill-opacity="0"/></svg>)
![Image](data:image/svg+xml,<svg xmlns="http://www.w3.org/2000/svg" width="355" height="360"><rect fill-opacity="0"/></svg>)
ショートカットってのが渋いっ！
14
![Image](data:image/svg+xml,<svg xmlns="http://www.w3.org/2000/svg" width="679" height="559"><rect fill-opacity="0"/></svg>)
Show replies
Show replies
Replying to
ワンライナーっぽく…！
＄array = @("ドド", "スコ"); while($true){$ddsk = ""; if($(1..4 | ForEach-Object -Process {$ddsk += ＄array[[System.Math]::Round((Get-Random -Minimum 0 -Maximum 2))]} -End {$ddsk}) -ne "ドドスコスコスコ"){$ddsk; continue}else{$ddsk; "ラブ注入"; break}}
1
8
80
Show replies
![Image](data:image/svg+xml,<svg xmlns="http://www.w3.org/2000/svg" width="680" height="528"><rect fill-opacity="0"/></svg>)
シェルスクリプトを勉強中の者なんですが、c="$i${c:0:11}"の部分がどういう意味なのか分かりません(検索のやり方もわからず…)。ここ見ればいいよ！的なサイトを教えてくれたらうれしいです
1
1
Show replies
私より一行少ない...すごい！
3
Replying to
list,log = [['ドド', 'スコ'], Array.new(12)]
loop do
puts current=list.sample;log.shift;log << current;
if log.join('') == "ドドスコスコスコドドスコスコスコドドスコスコスコ"
puts 'ラブ注入
';break
end
end
';break
end
end5
17
Replying to
こうかな
loop.lazy.map{["ドド","スコ"].sample}.map{|v| print v; v}.each_cons(12).select{|v|v.join == "ドドスコスコスコ"*3}.first
puts "ラブ注入"
"1
3
10
Replying to
これ以上短くなりませぬ (170 byte)。
The following media includes potentially sensitive content. Change settings
View
2
30
319
Show replies
![Image](data:image/svg+xml,<svg xmlns="http://www.w3.org/2000/svg" width="650" height="680"><rect fill-opacity="0"/></svg>)
Show replies
Replying to
Appleショートカットで作成。本当に終了するのかどうかは確認できてないですが・・・。ubun2m.com/dodosuko.short
The media could not be played.
Reload
27
171
Replying to
TypeScript で書きました！よろしくお願いします。
![](data:image/svg+xml,<svg xmlns="http://www.w3.org/2000/svg" width="680" height="340"><rect fill-opacity="0"/></svg>)
2
6
Replying to
gforth: 配列に入れると140文字に入らないと思って、そこは端折ったが、英語判定されてるので余裕で入るかもしれない
require random.fs
: ds
0 begin
2 random if ." ドド " 1 else ." スコ " 0 then
swap 2* or 4095 and
dup 2184 = until drop
." ラブ注入♡" ;
ds
1
5
15
入った。s"の対話セマンティクス(c"には無い)と2進数構文はgforthローカル。
require random.fs
create arr s" ドド " 2, s" スコ " 2, does> swap cells 2* + 2@ ;
: ds
0 begin
2 random dup arr type
swap 2* or %111111111111 and
dup %011101110111 = until drop
." ラブ注入♡" ;
ds
1
5
New to Twitter?
Sign up now to get your own personalized timeline!
![](data:image/svg+xml,<svg xmlns="http://www.w3.org/2000/svg" width="120" height="81"><rect fill-opacity="0"/></svg>)
![](data:image/svg+xml,<svg xmlns="http://www.w3.org/2000/svg" width="24" height="24"><rect fill-opacity="0"/></svg>)
![](data:image/svg+xml,<svg xmlns="http://www.w3.org/2000/svg" width="240" height="125"><rect fill-opacity="0"/></svg>)
![](data:image/svg+xml,<svg xmlns="http://www.w3.org/2000/svg" width="240" height="129"><rect fill-opacity="0"/></svg>)