プログラミングのお題スレ 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/

**デフォルトの名無しさん** · 2024/04/18(木) 22:55:38.47

総合すると有効桁じゃなくて精度が2桁良いし実装上は大差ないから改良版を使う、と言う方が自然では？

**デフォルトの名無しさん** · 2024/05/01(水) 12:56:47.83

スレ落ちそうなのであげ

**デフォルトの名無しさん** · 2024/05/01(水) 15:39:17.16

>>336
嵐を呼び込むために・・・

**デフォルトの名無しさん** · 2024/05/01(水) 22:59:10.72

何でこんなに過疎化しちゃったのか。前に頻繁に出題していた人がいなくなったのか。

**デフォルトの名無しさん** · 2024/05/02(木) 10:32:38.87

お題を出してみてください

**デフォルトの名無しさん** · 2024/05/02(木) 16:59:52.63

>>338
お題が出尽くしたってことはあるんじゃないか？
過去のお題拾ってきてそれを投稿すればいいぐらいまでスレが成熟してしまったのでは？

**デフォルトの名無しさん** · 2024/05/02(木) 17:21:22.07

PC買って、脱衣AIで遊びまくってる「
一日一回無料で使えるみたい「
https://mao.5ch.net/test/read.cgi/gymnastics/1322657462/98

17 · 2024/05/02(木) 18:44:04.16

>>340
なるほど。それをやるか。

17 · 2024/05/14(火) 05:34:03.62

じゃあ10年前のこのお題(URLを書くとNGになるようなので書かない)。

プログラミングのお題スレ Part4
115 ：デフォルトの名無しさん：2014/06/21(土) 18:36:45.72 ID:/fMJIWig.net

お題：文字列Aを1回以上繰り返した文字列Bが与えられたとき
文字列Aを求める。ただしAの候補が複数ある場合は最短のものとする。
例
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa -> a
123412312341231234123123412312341231234123 -> 1234123
oxoxoxoxoxoxoxoxxoxoxoxoxoxoxoxoxx -> oxoxoxoxoxoxoxoxx

**デフォルトの名無しさん** · 2024/05/14(火) 17:27:18.46

ttps://ideone.com/KrUq7e
Z-algorithm を使って O(|B|) で解いてみた

警備員[Lv.4][初] · 2024/05/14(火) 20:59:46.84

>>343
R
https://ideone.com/ITR83u

C
https://ideone.com/g2INyj

警備員[Lv.18] · 2024/05/23(木) 14:16:50.64

あれ？どんぐりの都合か？URL書いてあると書けなくなったような？

警備員[Lv.18] · 2024/05/23(木) 14:17:56.56

URLの先頭のhを抜いて書いてみよう。

>>343
Kotlin

こちらは普通に自作したやつ。
ttps://paiza.io/projects/OYy-A5rfKg7RqLzv-DKMIA

こちらは正規表現使ってとても小さくなったやつ。
ttps://paiza.io/projects/jgmtMRDhKfcjYfGAglEl3g

**デフォルトの名無しさん** · 2024/06/01(土) 10:16:34.91

お題:　コロン区切りの時分秒の時刻が与えられるので時分秒をそれぞれ掛け算した結果を表示せよ

例:
04:05:06
120

**デフォルトの名無しさん** · 2024/06/01(土) 11:08:12.83

お題: バイト列が与えられる。先頭から解析した場合にバイトが1だったら次の4バイトを読み込んで整数として出力し、バイトが2だったら次のバイトを0が来るまで読み込んで文字列として出力せよ

入力
1 1 0 0 0 2 65 66 67 0 1 128 0 0 0

出力
1ABC128

**デフォルトの名無しさん** · 2024/06/01(土) 12:57:50.32

知らんがな

**デフォルトの名無しさん** · 2024/06/01(土) 23:31:08.51

>>348
R
https://ideone.com/x4hIYG

>>349
C (データ識別子は1か2しかないものとし、整数のエンディアンは実行環境依存とする)
https://ideone.com/aJts6n

警備員[Lv.19] · 2024/06/02(日) 04:45:03.04

>>348
Perl

bash のコマンドラインから入力して実行(ワンライナー)

$ perl -ne 'if(/(\d+):(\d+):(\d+)/){print $1*$2*$3,"\n"}else{print"入力エラー\n"}'
1:2:3
6
3:4:5
60
04:05:06
120
$

警備員[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