プログラミングのお題スレ Part22

**デフォルトの名無しさん** · 2023/08/03(木) 13:52:13.20

プログラミングのお題スレです。

【出題と回答例】
1 名前：デフォルトの名無しさん
　お題：お題本文

2 名前：デフォルトの名無しさん
　>>1 使用言語
　回答本文
　結果がある場合はそれも

【ソースコードが長くなったら】 (オンラインでコードを実行できる)
https://ideone.com/
http://codepad.org/
http://compileonline.com/
http://rextester.com/runcode
https://runnable.com/
https://code.hackerearth.com/
http://melpon.org/wandbox
https://paiza.io/

宿題は宿題スレがあるのでそちらへ。

※前スレ
プログラミングのお題スレ Part21
https://mevius.5ch.net/test/read.cgi/tech/1668333636/

警備員[Lv.20] · 2024/06/02(日) 05:19:02.45

>>349
Kotlin
https://paiza.io/projects/lk2q4-Ciny3H2NptrkAbcw

**デフォルトの名無しさん** · 2024/06/03(月) 13:25:02.42

>>348
Windows のPowershell 上で、Ruby の1-liner を使う

末尾の改行を削除して、: で分割して、
文字列を数値型に変換してから、全ての要素を掛ける。
%Q で、ダブルクォーテーションをエスケープする。つまり、split(":")

echo '01:2:09' | ruby -ne 'puts $_.chomp.split(%Q[:]).map(&:to_i).inject(:*)'

18

**デフォルトの名無しさん** · 2024/06/03(月) 15:28:01.42

>ruby -ne 'p eval($_.gsub(":","*"))'
1:2:9
18

**デフォルトの名無しさん** · 2024/06/07(金) 06:27:47.87

お題：引数sとnを取りシーザー暗号化を行う関数を作れ
sは平文、nはずらす文字数（負数可）、返り値は暗号化後の文字列
同様の関数で「Hello, World!」を暗号化し復号化せよ

**デフォルトの名無しさん** · 2024/06/07(金) 09:04:03.36

#! ruby

class String
def to_c(n)
if %r|^n|=~n
n=(n.sub(%r|^n|,"").to_i+26)%26
lb=("A".."Z").to_a.join
sb=("a".."z").to_a.join
la=lb[n..25]+lb[0..n-1]
sa=sb[n..25]+sb[0..n-1]
return self.tr(lb,la).tr(sb,sa)
else
return self
end
end
end

p "Hello,World!".to_c("n3") #=>"Khoor,Zruog!"
p "Hello,World!".to_c("n-5") #=>"Czggj,Rjmgy!"
p "Hello,World!".to_c("s") #=>"Hello,World!"
p "Khoor,Zruog!".to_c("n-3") #=>"Hello,World!"
p "Czggj,Rjmgy!".to_c("n5") #=>"Hello,World!"

**デフォルトの名無しさん** · 2024/06/07(金) 09:04:13.66

#! ruby

class String
def to_c(n)
if %r|^n|=~n
n=(n.sub(%r|^n|,"").to_i+26)%26
lb=("A".."Z").to_a.join
sb=("a".."z").to_a.join
la=lb[n..25]+lb[0..n-1]
sa=sb[n..25]+sb[0..n-1]
return self.tr(lb,la).tr(sb,sa)
else
return self
end
end
end

p "Hello,World!".to_c("n3") #=>"Khoor,Zruog!"
p "Hello,World!".to_c("n-5") #=>"Czggj,Rjmgy!"
p "Hello,World!".to_c("s") #=>"Hello,World!"
p "Khoor,Zruog!".to_c("n-3") #=>"Hello,World!"
p "Czggj,Rjmgy!".to_c("n5") #=>"Hello,World!"

**デフォルトの名無しさん** · 2024/06/07(金) 21:13:26.78

>>356
R
https://ideone.com/Qj6B3w

**デフォルトの名無しさん** · 2024/06/07(金) 23:24:01.54

Haskell
範囲外の数値は平文字をそのまま返すこととした。

import Data.Char

cearsar n |(-26) <= n && n <= 26 = map (f n)
where
f x = chr.(+x).ord
cearsar _ = cearsar 0

sample:
ghci> cearsar 50 "Hello, World!"
"Hello, World!"
ghci> cearsar 3 "Hello, World!"
"Khoor/#Zruog$"
ghci> cearsar (-3) "Khoor/#Zruog$"
"Hello, World!"

**デフォルトの名無しさん** · 2024/06/07(金) 23:28:58.71

TA = [ * ?\x20 .. ?\x7E ]
TS = TA.join
def caesar( s, n ) s.tr( TS, TA.rotate( n ).join ) end

s = "Hello, World!"
p caesar( s, 0 ) #=> "Hello, World!"
p caesar( s, 1 ) #=> "Ifmmp-!Xpsme\""
p caesar( s, -1 ) #=> "Gdkkn+~Vnqkc "
p caesar( s, 20240607 ) #=> "Jgnnq.\"Yqtnf#"
p caesar( caesar( s, 20240607 ), -20240607 ) #=> "Hello, World!"
p caesar( 'HAL9000', 1 ) #=> "IBM:111"

9 · 2024/06/11(火) 14:41:10.23

>>348 Perl5

($x = '04:05:06') =~ s/:/*/g;
print eval $x;

9 · 2024/06/13(木) 14:34:57.00

>>349
> 「バイトが1だったら次の4バイトを読み込んで整数として出力し、」
正直、意味がわからんかった

例で見ると
1 1 0 0 0 → 1
1 128 0 0 0 → 128
ということだが

1に続く4バイトを加算して出力するって意味だったのかいな

**デフォルトの名無しさん** · 2024/06/13(木) 14:48:43.48

>>363
整数が4バイト型という脳内補完だった

**デフォルトの名無しさん** · 2024/06/13(木) 14:54:19.57

>>363
出題者がエンディアンを知らなくて説明もなくリトル環境を前提にしてしまっている
エンディアンを知っている人たちは出題には書かれてないけど例よりリトル前提だと読み取ってこたえている

**デフォルトの名無しさん** · 2024/06/13(木) 14:59:03.73

>>365
リトルエンディアンはビットが逆って事じゃ無いぞ

10 00なら
00 10だぞ

**デフォルトの名無しさん** · 2024/06/13(木) 15:00:51.22

>>366
例>>363を見てないのか？

9 · 2024/06/13(木) 17:03:39.85

>>365
ああそういうことか「4バイトを読み込んで整数」と書いてあるのはそういう意味だったのか
ならわかるかも。
オレは4バイト一個一個が整数だと捉えて、それを「4バイトを読み込んで整数」とは何のこっちゃと？になってたわ

9 · 2024/06/13(木) 17:07:01.55

すまんね68系で育ったもんですぐ連想できなんだ

**デフォルトの名無しさん** · 2024/06/14(金) 21:10:23.18

>>367
例が間違えてるか説明が足りて無い

要は4バイトを読み込んでと説明してるが「一気に4バイト読み込む」とおかしくなる
1バイトずつ順に4バイトを読み込んでという説明なら例が腑に落ちる

**デフォルトの名無しさん** · 2024/06/14(金) 21:15:46.04

例を示しての出題だから

警備員[Lv.23] · 2024/06/15(土) 16:15:42.96

>>356
Kotlin

面倒なのでASCIIコード(0x20-0x7e)でしかシフトしないやつを作った。
まあでも Kotlin は Java 同様に内部でUnicodeで扱っているので平仮名とか漢字とか全然違う言語の文字とかも比較的楽に追加できると思う。

https://paiza.io/projects/5H9H1zSjDnVshGCf4JaQJg

**デフォルトの名無しさん** · 2024/06/19(水) 15:22:47.09

>>348 awk
https://ideone.com/dMvvZG

**デフォルトの名無しさん** · 2024/06/20(木) 17:43:48.64

お題：迷路生成を様々な言語で

例：
C
https://ideone.com/a527mc

**デフォルトの名無しさん** · 2024/06/20(木) 20:17:47.11

https://paiza.io/projects/a6ZS3co-gsEV1tN57VUctA

**デフォルトの名無しさん** · 2024/06/21(金) 02:17:42.15

迷路。やっつけで汚い。乱数自前

C
https://paiza.io/projects/5vyyygrG7exduzqDa-jBAA

Rust
https://paiza.io/projects/g1UmjFWydgmjAEZAgqS5xw

**デフォルトの名無しさん** · 2024/06/21(金) 05:01:41.33

乱数改良

C
https://paiza.io/projects/UWRNkhfbdscMIwR0bTvqHA

Rust
https://paiza.io/projects/g1UmjFWydgmjAEZAgqS5xw

**デフォルトの名無しさん** · 2024/07/26(金) 09:46:37.73

お題：配管サイズの「A呼称」「B呼称」の相互変換
tps://www.keyence.co.jp/ss/products/process/flowmeter/technique/size.jsp
などに掲載されている「A呼称」から「B呼称」への変換。及びその逆変換。
「A呼称」は整数値で(8とか)、「B呼称」は実数(0.125とか)または分母を8とする分数の分子(1とか)で表すものとする。
規格に存在しない場合(42Aとか)は考慮しなくてもよい。
表を引くだけなら簡単過ぎるので、ツェラーの公式の様な「技巧的」な解法を求む。

**デフォルトの名無しさん** · 2024/07/27(土) 06:14:08.30

REM 呼称変換.bat
chcp 65001

ruby -x "%~f0"
ruby tmp.rb
goto end

#~
#!ruby
#encoding: utf-8
Encoding.default_external='UTF-8'

require 'base64'

st=<<'EOS'
IyFydWJ5CiNlbmNvZGluZzogdXRmLTgKRW5jb2RpbmcuZGVmYXVsdF9leHRl
cm5hbD0nVVRGLTgnCgpjbGFzcyBPYmplY3QKICBkZWYgdG9fZmwKICAgIHJl
dHVybiBldmFsKHNlbGYuc3BsaXQoIisiKS5tYXB7fGV8CiAgICAgIGUuc3Bs
aXQoIi8iKS5tYXB7fGZ8IGYudG9fZi50b19zfS4KICAgICAgam9pbigiLyIp
fS5qb2luKCIrIikpCiAgZW5kCmVuZAoKY2xhc3MgTnVtZXJpYwogIEBAYT1b
Niw4LDEwLDE1LDIwLDI1LDMyLDQwLDUwLDY1LAogICAgICA4MCw5MCwxMDAs
MTI1LDE1MCwxNzUsMjAwLDIyNV0KICBAQGI9WyIxLzgiLCIxLzQiLCIzLzgi
LCIxLzIiLCIzLzQiLCIxIiwKICAgICAgIjErMS80IiwiMSsxLzIiLCIyIiwi
MisxLzIiLCIzIiwKICAgICAgIjMrMS8yIiwiNCIsIjUiLCI2IiwiNyIsIjgi
LCI5Il0KICBAQGM9QEBiLm1hcHt8ZXwgZS50b19mbH0KICBkZWYgYV90b19i
CiAgICBuPXNlbGYKICAgIGlmIG48MjUwCiAgICAgIGE9NgogICAgICBAQGEu
ZWFjaHt8ZXwgYT1lIGlmIGUvbjw9MS4wfQogICAgICBiPUBAYltAQGEuaW5k
ZXgoYSldCiAgICAgIGM9QEBjW0BAYS5pbmRleChhKV0KICAgICAgcmV0dXJu
ICIoYT0je2F9KSBiPSN7Yn09I3tjfSIKICAgIGVsc2UKICAgICAgYT0obi81
MCkudG9faSo1MAogICAgICBiPWEvMjUKICAgICAgcmV0dXJuICIoYT0je2F9

**デフォルトの名無しさん** · 2024/07/27(土) 06:15:03.76

KSBiPSN7Yn0iCiAgICBlbmQKICBlbmQKICBkZWYgYl90b19hCiAgICBuPXNl
bGYKICAgIGlmIG48MTAKICAgICAgYz0wLjEyNQogICAgICBAQGMuZWFjaHt8
ZXwgYz1lIGlmIGUvbjw9MS4wfQogICAgICBhPUBAYVtAQGMuaW5kZXgoYyld
CiAgICAgIGI9QEBiW0BAYy5pbmRleChjKV0KICAgICAgcmV0dXJuICIoYj0j
e2J9PSN7Y30pIGE9I3thfSIKICAgIGVsc2UKICAgICAgYj1uLnRvX2kKICAg
ICAgYT1iKjI1CiAgICAgIHJldHVybiAiKGI9I3tifSkgYT0je2F9IgogICAg
ZW5kCiAgZW5kCmVuZAoKd2hpbGUgMQogIGFyPVsi77yh5ZG856ew44GL44KJ
77yi5ZG856ewIiwi77yi5ZG856ew44GL44KJ77yh5ZG856ewIiwi57WC5LqG
Il0KICBtc2c9YXIubWFwLndpdGhfaW5kZXh7fGUsaXwiI3tpKzF9OiN7ZX0i
fS5qb2luKCJcbiIpKyJcbiIKICBwcmludCBtc2crImlucHV0IG51bWJlciA+
ICIKICBuPSRzdGRpbi5nZXRzLnRvX2kKICBicmVhayBpZiBuPT0zCiAgbmV4
dCBpZiBuPT0wCiAgd2hpbGUgMQogICAgcHJpbnQgIiN7YXJbbi0xXX06aW5w
dXQgdmFsdWUgPiAiCiAgICBtPSRzdGRpbi5nZXRzLmNob21wCiAgICBicmVh
ayBpZiBtPT0iIgogICAgbT1tLnRvX2ZsCiAgICBwdXRzIG0uYV90b19iIGlm
IG49PTEKICAgIHB1dHMgbS5iX3RvX2EgaWYgbj09MgogIGVuZAplbmQK
EOS

File.write("tmp.rb",Base64.decode64(st))
__END__
:end

**デフォルトの名無しさん** · 2024/07/30(火) 12:03:21.52

お題
C言語のトライグラフ(可能ならダイグラフも)と普通のテキストとの相互変換。

ファイルまたは標準入力から読んで変換した結果を標準出力に出力する。
面倒なら文字列変換する関数とそれをテストするメイン関数のみでも良い。

警備員[Lv.8] · 2024/08/03(土) 07:16:23.70

お題
Unicode 文字列を UTF-9 へ変換する。また UTF-9 を Unicode 文字列に変換する。
ただし1バイトが9bitではないコンピュータを使用する場合は9bit以上で扱いやすいbit数の変数(例えば 16bitの変数)を代用して下9bitのみを使用する等しても良い。
UTF-9 の仕様は RFC 4042 を見るか、または下記URLのページを参照。
https://www.wdic.org/w/WDIC/UTF-9%20%28RFC%29

警備員[Lv.9] · 2024/08/03(土) 17:38:42.19

>>381
Kotlin

Digraph, Trigraph の変換と逆変換

https://paiza.io/projects/FPUStm3O4tZZMYi1Cw2ruw
https://paiza.io/projects/4vD2Ux8Jd6EzLIynkzTXtw

Map と正規表現使った簡単な変換なので他の言語で作っても大差ないと思う。

**デフォルトの名無しさん** · 2024/08/03(土) 20:58:23.65

お題
整数の格子がある（伝われ）
任意の2点間を線で結ぶ（座標成分は実数）
格子と交わるところで線を分割せよ

**デフォルトの名無しさん** · 2024/08/03(土) 21:19:51.17

>>384
jwwの外部変形としてこんな感じで交点で分割させるの作ったことあるけどプログラミングスレののお題としては座標指定もなく漠然としすぎていていかがなものか。ちょっと伝わんなかった。

**デフォルトの名無しさん** · 2024/08/03(土) 21:36:58.95

ごめん、画像から察してほしい
遊びだから曖昧なところは適当で
https://i.imgur.com/YUKpLcI.png

**デフォルトの名無しさん** · 2024/08/03(土) 21:50:20.46

>>386
二直線の交点は連立方程式を解けば良くて行列を使えば簡単だけど、どういう回答が求められてるのかが分からず途方に暮れております

**デフォルトの名無しさん** · 2024/08/03(土) 22:08:55.42

>>386
出直し

**デフォルトの名無しさん** · 2024/08/03(土) 22:28:33.50

クイズと「プログラミングのお題」との決定的な違い
検証するための入力(問題)と出力(解答)例が明記されているかどうか

**デフォルトの名無しさん** · 2024/08/03(土) 22:29:35.16

テンプレに書いてなかったしいいやって思っちゃった
ここまで伝わらんもんなのか…

**デフォルトの名無しさん** · 2024/08/03(土) 22:35:56.24

具体例を計算するのはめんどくさいけど、例えばさっきの絵で言えば右上が始点で左下が終点なら始点側から順番に座標を出力するとかね

**デフォルトの名無しさん** · 2024/08/03(土) 22:41:57.69

入力例とその時の出力例を
データとして数種類用意すればOK
例えば>>234とか>>343を参考

**デフォルトの名無しさん** · 2024/08/03(土) 22:42:49.82

>>390
そういうことは伝える努力をしてから言おうな

**デフォルトの名無しさん** · 2024/08/03(土) 22:44:30.36

めんどくさい
そこまでして出そうと思わんから興味ないならスルーで

**デフォルトの名無しさん** · 2024/08/03(土) 22:52:49.60

この頭の悪さを見るに学校の課題か何かを丸投げしようとしてるのかな

**デフォルトの名無しさん** · 2024/08/03(土) 23:04:31.31

入出力例があると仕様が定まってプログラミングのお題が成立する
入出力例がないと宿題を手伝わせようとしているだけの可能性も否定できないね

**デフォルトの名無しさん** · 2024/08/04(日) 00:49:43.30

>>394
ドンマイ、出題の意図は分かった気がするので改めて出題
お題
１０mm方眼用紙、左下原点、入力された任意の直線と方眼線との交点を求めよ
（例）始点（3.5,5.2）終点（6.3,8.1）

**デフォルトの名無しさん** · 2024/08/04(日) 04:51:29.74

>>384
nodejs
https://www.mycompiler.io/view/8GupmXA8eQS

**デフォルトの名無しさん** · 2024/08/09(金) 23:38:00.57

お題：与えられた線分を指定された長さLで分割せよ。ただし最後に余る分は長さLでなくてもよい。
線分([始点,終点])=[[0,0],[100,100]]
L=50
↓
[[[0,0],[50,50]],[[50,50],[100,100]]]

警備員[Lv.7] · 2024/08/10(土) 04:24:35.61

>>399
その例おかしくない？それか問題がおかしいか。
長さがLということはx=yの線を分割する場合は座標はx, y 共にL/√2倍にならないか?

**デフォルトの名無しさん** · 2024/08/10(土) 08:05:08.91

ごめん、ミスった

**デフォルトの名無しさん** · 2024/08/10(土) 08:07:10.85

修正
線分([始点,終点])=[[0,0],[120,0]]
L=50
↓
[[[0,0],[50,0]],[[50,0],[100,0]],[[100,0],[120,0]]]

**デフォルトの名無しさん** · 2024/08/10(土) 08:54:23.54

REM 座標計算.bat
chcp 65001
ruby -x "%~f0"
goto end
#~
#!ruby
#encoding: utf-8
Encoding.default_external='UTF-8'
require "matrix"
while 1
print "input start point > " #0,0
p1=$stdin.gets.split(",").map{|e| e.to_f}
print "input end point > " #120,0
p2=$stdin.gets.split(",").map{|e| e.to_f}
print "input length > " #50
l=$stdin.gets.to_f
exit if l<=0
p1[1]=0 unless p1[1]
p2[1]=0 unless p2[1]
v1=Vector.elements(p1)
v2=Vector.elements(p2)
m=(v2-v1).r
n=(m/l).to_i
a=(0..n).map{|e| l*e}
b=a.map{|e| v1+(v2-v1)*(e/(v2-v1).r)}.map{|e| e.to_a}
b<<p2
p b.uniq
end
__END__
:end

**デフォルトの名無しさん** · 2024/08/20(火) 15:28:18.45

お題:今日、または任意の日付から、もういくつ寝るとお正月かを求めよ。（昼寝は除く）

**デフォルトの名無しさん** · 2024/08/20(火) 18:03:45.73

>>404 lisp
https://ideone.com/RhvMjC

**デフォルトの名無しさん** · 2024/08/21(水) 11:05:18.96

>>404
徹夜はどうしますか？

警備員[Lv.12] · 2024/08/22(木) 08:01:35.77

>>404
bash のコマンドラインから expr コマンドと date コマンドを利用して次のようにして計算した。
実際に日数が経過後に1月1日になっているかの確認もした。

$ expr $( date -d '2024/12/31' +%j ) - $( date +%j ) + 1
132
$ date -d 'now +132 days'
2025年 1月 1日水曜日 07:58:54 JST
$

警備員[Lv.12] · 2024/08/22(木) 08:04:39.02

>>407 をちょっと改良
今年に限定しないやりかた。

$ expr $( date -d $(date +%Y)'/12/31' +%j ) - $( date +%j ) + 1
132
$

**デフォルトの名無しさん** · 2024/08/24(土) 01:28:41.99

ロケール設定なしとかジョークかよ

**デフォルトの名無しさん** · 2024/08/24(土) 07:25:49.23

こまけぇこたぁいいんだよ（AA略）

**デフォルトの名無しさん** · 2024/08/24(土) 23:36:40.04

てかこのお題で私、期間中にヨーロッパから帰国しますんでってな特殊ケースまで折り込めって方が無理に思えるけど、ロケール設定した模範解答をどぞ、

**デフォルトの名無しさん** · 2024/08/24(土) 23:58:49.15

せっかくだから､旧正月も考慮して

**デフォルトの名無しさん** · 2024/09/01(日) 04:58:12.84

お題：複数の文字列が格納されている配列と配列の添字がある。標準入力からnextが入力されたら文字列を表示し添字を進め、prevが入力されたら文字列を表示して添字を戻す。添字が始点と終点に達したら始点は終点に、終点は始点に移動させる。動作は例に合うように実装せよ。

v = ["aaa","bbb","ccc"]
next
aaa
next
bbb
prev
aaa
next
bbb
next
ccc
next
aaa

**デフォルトの名無しさん** · 2024/09/01(日) 08:19:39.59

>>413 lua
https://ideone.com/OEEqAA

**デフォルトの名無しさん** · 2024/09/01(日) 11:51:46.92

>>413
REM nextprev.bat
ruby -x "%~f0"
exit
#~
#!ruby
#encoding: utf-8
i=0;v=["aaa","bbb","ccc"]
while 1
puts v[i]
print "input next or prev [n/p]> "
a=$stdin.gets.chomp
if ""==a
exit
elsif /^n/=~a
i=i+1
elsif /^p/=~a
i=i-1
end
i=(i+3)%3
end

**デフォルトの名無しさん** · 2024/09/03(火) 07:13:35.79

お題
引数aから引数bまでの数列を返す関数がある。この関数を数列にゾロ目が含まれていた場合に空の数列を返すように実装せよ

**デフォルトの名無しさん** · 2024/09/03(火) 07:56:47.18

>>416 lisp
https://ideone.com/WMC2aN

**デフォルトの名無しさん** · 2024/09/03(火) 09:22:31.13

>>417
windowsを使ってるんですが>>417を実行するにはどのような環境を整えれば良いでしょうか?

**デフォルトの名無しさん** · 2024/09/03(火) 10:00:07.45

417ではないが，clispかsbclをインストールすればいいよ．Windowsでもできるし，WSLならさらに簡単にできる

**デフォルトの名無しさん** · 2024/09/03(火) 10:17:03.41

>>419
ありがとうございます
そうするとemacsが使えるようになるのでしょうか?
それともプログラミング言語としてのlisp環境が整うだけでしょうか?

**デフォルトの名無しさん** · 2024/09/03(火) 13:27:22.48

>>418
Windowsは不断使いしていないんで開発環境とかemacsとかはわからないけど、動かすだけなら
https://www.sbcl.org/platform-table.html からWindows版のSBCLインストーラーを落としてインストール

コマンドプロンプトなどのコマンド行で
sbcl --script ファイル名とすると「ファイル名」のファイルをスクリプトとして実行します

--script を付けない場合REPLが起動します(Pythonでいうところの対話モード)
これの終了は (quit) と入力してEnterキー

**デフォルトの名無しさん** · 2024/09/03(火) 13:38:16.60

ちょっと試すだけならウェブサービスを使う手も

Common Lispを動かせるオンラインコンパイラーサイト
https://rextester.com/l/common_lisp_online_compiler
https://www.jdoodle.com/execute-clisp-online
https://wandbox.org/

これらはideoneとは異なり "Share" とか "Save" とかをクリックしない限り保存・公開されない(はず)

**デフォルトの名無しさん** · 2024/09/03(火) 22:13:24.20

レス頂いた方、ありがとうございます
とりあえず>>422辺りで試してみます

**デフォルトの名無しさん** · 2024/09/04(水) 03:34:25.27

REM zorome.bat
ruby -x "%~f0"
exit
#~
#!ruby
while 1
print "input a > "
a=$stdin.gets.chomp
exit if a==""
a=a.to_i
print "input b > "
b=$stdin.gets.to_i
ar=(a..b).to_a
z=0
ar.each{|e|
n=e.to_s.gsub(/^-/,"")
m=n.split("").uniq
if n.size>1 && m.size==1
z=1
break
end
}
ar=[] if z==1
p ar
end
__END__
a=0;b=10 => [0,1,2,3,4,5,6,7,8,9,10]
a=0;b=11 => []

**デフォルトの名無しさん** · 2024/09/04(水) 06:34:37.52

>>416
fn is_zorome(n: i32) -> bool {
let s = n.abs().to_string();
let b = s.as_bytes();
if b.len() > 1 {
b[1..].iter().all(|&d| d == b[0])
} else {
false
}
}

fn odai(a: i32, b: i32) -> Vec<i32> {
if (a..=b).any(|n| is_zorome(n)) {
vec![]
} else {
(a..=b).collect()
}
}

fn main() {
assert_eq!(odai(1, 10), [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]);
assert_eq!(odai(1, 11), []);
}

警備員[Lv.7] · 2024/09/29(日) 14:12:38.24

>>416
Kotlin
(URL投稿禁止になってるようなので先頭の https:／／は抜きで)。
paiza.io/projects/nPK7U1uDtt4b7O2saECP0A

[入力]タブの方で開始、終了の値を入れている。とりあえず 10 40 を入れてある。
一桁の数を指定した場合は全てゾロ目扱いになるので出力は空のリストになる。

**デフォルトの名無しさん** · 2024/10/08(火) 17:17:22.09

お題：文字列を中央寄せする関数を作れ。
関数は文字列、全体の横幅（整数）、余白を埋める文字、を引数に取る。横幅分の文字列を引数の文字で作成し、その中央に引数の文字列を埋め込み戻り値として返せ。

**デフォルトの名無しさん** · 2024/10/08(火) 19:52:28.65

py
text.center

警備員[Lv.12] · 2024/10/09(水) 00:07:23.87

>>427
文字幅についてはどう考えれば良い？
エンコーディングが UTF-8 や UTF-16 だとバイト数や要素数が画面の表示幅と一致しないわけだが。
一致するような Shift-JIS だったとしても端末のフォント設定次第で表示幅が変わる。

**デフォルトの名無しさん** · 2024/10/09(水) 00:38:16.24

EUCにも半角2バイト文字なんてあったりする

**デフォルトの名無しさん** · 2024/10/09(水) 00:56:06.70

asciiの前提では
全角判定関数は切り分けるべきだし

**デフォルトの名無しさん** · 2024/10/09(水) 01:18:55.72

#ドラクエ３が超好きだったので、お題にしてみる。ただしロト３のファミコン版のドラクエな！ｗ
"こちらの職業は勇者、戦士、空手家、僧侶、柔道家の５人がかりｗ
勇者から柔道家までの5人の攻撃回数が異なります。"まずは変数と確率の問題。
勇者＝you戦士＝sen,空手家＝kara,僧侶=sou
まず勇者は1~２回攻撃、戦士は1~３回攻撃、空手は2~３回攻撃、柔道は足払いで相手を２０％で麻痺させることができる。（１ターン何もできない）１０％では超麻痺。（２ターン何も敵は動かない）
５％でクリティカルヒットの足払いで３ターン敵は何もできない。
柔道は敵に攻撃を加えられない分、足払いで相手を痙攣させる。
（勇者の１回分の攻撃は100〜200、２０％の確率でクリティカルヒットの攻撃になることがある。
（戦士の攻撃は２００〜３００、２０％の確率で攻撃がクリティカルヒット１回になることがある。
（空手家）空手家の攻撃は３５０〜５００、ただし２０％の確率で攻撃がクリティカルヒットとなるときがある。youはぞろ目（１１１とか２２２とか９９９まで）の場合はロトの剣を取得する。
攻撃回数無限で全てクリティカルヒットになります。
クリティカルヒットは攻撃力X２です。さてプログラムをやっていくか。"
＊ただし、ロトの剣は勇者しか使えない。
”まずギルガメッシュっていう名前のenemy
ラスボスの名前はenemyとする。ボスのHPは5万。
ボスは基本的に何もしません、できません。これやるとさすがに面倒なのでｗ
基本的にボスは攻撃しません。（面倒だからｗ）
一方的になかまあつめてボコすｗ”
＊ロトの剣で攻撃したら攻撃力が1.5倍あがります。＊
＊＊癒しの穂。食べたら防御力と賢さがあがります＊＊
ロトの剣の出現条件は3並びで一つ食べることができます。
例えば１１１攻撃とか２２２攻撃とか３３３攻撃とか〜９９９まで。
次の発言からコードを書いていく。
ニーズあるか？

**デフォルトの名無しさん** · 2024/10/09(水) 01:22:59.53

プログラミングする以前に読むのが面倒くさい

**デフォルトの名無しさん** · 2024/10/09(水) 01:43:57.73

しまった。初期化してなかったなｗ変数のところ。
あとsouの回復もホイミ、ベホイミ、ベホマラーの３種類だけ。
その３種類がぞろ目の時（１１１，２２２など）
そしたらベホマズンを使える。ほぼ運ゲーですｗ
人修羅みたいに取り巻きがいます。それはバラモスエビルと神龍です。
ある一定時期を過ぎると取り巻きが一斉にHPを連続してあげまくるので
取り巻き先に倒さないと厳しいです。取り巻き＝tori種類１の取り巻き＝tori0
種類２の取り巻き＝tori1　5人だとなかなか倒せないから６人目の魔法剣士＝maken
だれか
これをいれよう。
さてif文を完成させよう！if zoma =1
print("ゾーマが現れた”）
import random
random.random()x = random.uniform(0.1,0.9)
print(x)
if x >200 :
print( 'enemyに' +200のダメージを与えた)
elif x > 0.5 :
print( 'enemyに１００＋のダメージを与えた' )
elif x > 0.2 :
print( '相手が躱した' )
else :
print( "まだゾーマは死んでません")
つかれたーｗ
もっと簡単なやつにしまーすｗ

**デフォルトの名無しさん** · 2024/10/09(水) 01:45:35.37

頑張って読んだけどこのままでは多分スレチ、ずっと条件を簡単にして出題し直してみる。

お題
勇者（HP1000）対魔王（HP5000）、先鋒勇者、サイコロ（目は１から６）を振って出た目だけ相手にダメージを与えられ、交互に攻撃しHP0となったら負け。魔王のサイコロは１個だけど勇者のサイコロはN個（N=1～10）の時の勇者の勝率を求めよ。

**デフォルトの名無しさん** · 2024/10/09(水) 02:10:34.29

# RPGの攻撃状況を再現

# モンスターと戦っている。
# 1から10のサイコロをふって、
# 6未満の場合、サイコロの目だけダメージを与えたと表示。
# 6以上の場合、クリティカルヒットとして、100のダメージを与えたと表示。
# 0の場合、防御されたとして、０ダメージを表示。

import random
hit = random.randint(0,10)
if 1 <= hit < 6:
print("スライムに、" + str(hit) + "のダメージを与えた！")
elif hit >= 6:
print("クリティカルヒットダメージ１００を与えた")
else:
print("ダメージは、" + str(hit) + "防御された")
#楽しすぎだなｗこれはｗ

**デフォルトの名無しさん** · 2024/10/09(水) 18:59:48.61

>>429
asciiで。

**デフォルトの名無しさん** · 2024/10/11(金) 05:53:27.29

お題：文字列の中で1つ以上連続している空白をすべて空白4つに置換せよ。ただし正規表現は使ってはならない。

例：
"abc def ghi" -> "abc def ghi"

**438** · 2024/10/11(金) 05:54:39.00

5chは空白を1つに置換するらしく例は出せない。脳内保管せよ。

**デフォルトの名無しさん** · 2024/10/11(金) 20:53:22.06

>>438
perl -lpE'$_=join$"x4,split$"'
(文字列を入れる)

**デフォルトの名無しさん** · 2024/10/11(金) 20:58:31.10

>>440
splitのあとの$"は不要だった。
どちらにしてもタブも置換してまうのでアウトかも。

**デフォルトの名無しさん** · 2024/10/11(金) 22:15:53.82

>>438
R
https://ideone.com/LO7vyR

**デフォルトの名無しさん** · 2024/10/12(土) 01:34:10.91

>>435
こういう場合の確率の計算はよく分からなかったので実際にそれぞれ一万回ずつ戦わせてみた。
サイコロ1個で100000戦0勝
サイコロ2個で100000戦0勝
サイコロ3個で100000戦0勝
サイコロ4個で100000戦0勝
サイコロ5個で100000戦47171勝
サイコロ6個で100000戦100000勝
サイコロ7個で100000戦100000勝
サイコロ8個で100000戦100000勝
サイコロ9個で100000戦100000勝
サイコロ10個で100000戦100000勝

**デフォルトの名無しさん** · 2024/10/12(土) 01:39:02.69

>>443
#!ruby
#encoding: utf-8
$stdout=open("kekka.txt","w")
i=100000 #対戦回数
k=0 #勇者の勝ち
n=1 #勇者のサイコロの数
hpm=5000 #魔王のＨＰ
hpy=1000 #勇者のＨＰ

**デフォルトの名無しさん** · 2024/10/12(土) 01:39:40.49

>>444
while n<=10
j,t=0,0
while j<i
hpy-=rand(1..6)
if hpy<=0
j+=1
t,hpy,hpm=0,1000,5000
next
end
m=0
while m<n
hpm-=rand(1..6)
m+=1
end
if hpm<=0
k+=1
j+=1
t,hpy,hpm=0,1000,5000
next
end
t+=1
end
puts "サイコロ#{n}個で#{i}戦#{k}勝"
k,hpy,hpm=0,1000,5000
n+=1
end

警備員[Lv.12] · 2024/11/05(火) 05:27:21.14

>>427
Kotlin

スペースが何個なのか分り易くするために '*' をスペースの代わりに入れて呼び出している。

https://paiza.io/projects/xSP0nP203HXTwqyxlQD0Gg

**デフォルトの名無しさん** · 2024/11/13(水) 22:01:15.62

>>435
R

f=\(N){
u=1000
m=5000
while(u>0 & m>0){
m=m-sum(sample(6,N,replace=TRUE))
u=u-sample(6,1)
}
u>m
}
sim=\(N) mean(replicate(1e3,f(N)))
p=sapply(1:10,sim)
plot(p)
data.frame(N=1:10,p=p)

N p
1 1 0.000
2 2 0.000
3 3 0.000
4 4 0.000
5 5 0.498
6 6 1.000
7 7 1.000
8 8 1.000
9 9 1.000
10 10 1.000

**デフォルトの名無しさん** · 2024/11/13(水) 22:22:31.42

>>435
Wolfram

f[N_] :=(
u=1000;
m=5000;
Until[u<=0 || m<=0, m-=Total@RandomChoice[Range[6],N];u-=Total@RandomChoice[Range[6],1]];
Boole[u >= m]
)
Table[Mean@Table[f[x],10^3],{x,1,10}] // N

{0., 0., 0., 0., 0.511, 1., 1., 1., 1., 1.}

**デフォルトの名無しさん** · 2024/12/31(火) 22:33:49.84

ベクターにあるこれを解いてくれ
昔2ch、5chスレでやってたができず
いまだと4x4はパワーで行けるとおもうが

4x4盤タイルゲーム for Windows
対戦するたびに学習して次第に強くなる「最善手探索+対戦学習型知能ゲーム」

**デフォルトの名無しさん** · 2025/01/01(水) 12:58:01.50

他力本願か？

**デフォルトの名無しさん** · 2025/01/01(水) 13:30:44.19

出題の仕方でプログラミング能力の無さがわかる

**デフォルトの名無しさん** · 2025/01/01(水) 13:32:50.17

>>438
Java
https://paiza.io/projects/c5TaBFHebIAdHNIU_QToUg

**デフォルトの名無しさん** · 2025/01/01(水) 13:54:47.38

>>427
Java
https://paiza.io/projects/9XrtZ_9CpiIeg-xcQkcc1Q?language=java