プログラミングのお題スレ Part22 (882ﾚｽ)
上下前次1-新
407(1): 警備員[Lv.12] 2024/08/22(木)08:01 ID:dwyU9o+h(1/2) AAS
>>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
$
408: 警備員[Lv.12] 2024/08/22(木)08:04 ID:dwyU9o+h(2/2) AAS
>>407 をちょっと改良
今年に限定しないやりかた。
$ expr $( date -d $(date +%Y)'/12/31' +%j ) - $( date +%j ) + 1
132
$
409: 2024/08/24(土)01:28 ID:Ou5o/VfJ(1) AAS
ロケール設定なしとかジョークかよ
410: 2024/08/24(土)07:25 ID:/cWP8Umv(1/2) AAS
こまけぇこたぁいいんだよ（AA略）
411: 2024/08/24(土)23:36 ID:/cWP8Umv(2/2) AAS
てかこのお題で私、期間中にヨーロッパから帰国しますんでってな特殊ケースまで折り込めって方が無理に思えるけど、ロケール設定した模範解答をどぞ、
412: 2024/08/24(土)23:58 ID:D7M8BxWI(1) AAS
せっかくだから､旧正月も考慮して
413(2): 2024/09/01(日)04:58 ID:sYmH1KkQ(1) AAS
お題：複数の文字列が格納されている配列と配列の添字がある。標準入力からnextが入力されたら文字列を表示し添字を進め、prevが入力されたら文字列を表示して添字を戻す。添字が始点と終点に達したら始点は終点に、終点は始点に移動させる。動作は例に合うように実装せよ。
v = ["aaa","bbb","ccc"]
next
aaa
next
bbb
prev
aaa
next
bbb
省4
414: 2024/09/01(日)08:19 ID:MmIh9kGJ(1) AAS
>>413 lua
外部ﾘﾝｸ:ideone.com
415: 2024/09/01(日)11:51 ID:Zfu0bsG/(1) AAS
>>413
REM nextprev.bat
ruby -x "%~f0"
exit
#~
#!ruby
#encoding: utf-8
i=0;v=["aaa","bbb","ccc"]
while 1
puts v[i]
省11
416(4): 2024/09/03(火)07:13 ID:1bP400Ev(1) AAS
お題
引数aから引数bまでの数列を返す関数がある。この関数を数列にゾロ目が含まれていた場合に空の数列を返すように実装せよ
417(1): 2024/09/03(火)07:56 ID:Jxau6mSM(1/3) AAS
>>416 lisp
外部ﾘﾝｸ:ideone.com
418(1): 2024/09/03(火)09:22 ID:HQsZJT0t(1/3) AAS
>>417
windowsを使ってるんですが>>417を実行するにはどのような環境を整えれば良いでしょうか?
419(1): 2024/09/03(火)10:00 ID:VHciJKZC(1) AAS
417ではないが，clispかsbclをインストールすればいいよ．Windowsでもできるし，WSLならさらに簡単にできる
420: 2024/09/03(火)10:17 ID:HQsZJT0t(2/3) AAS
>>419
ありがとうございます
そうするとemacsが使えるようになるのでしょうか?
それともプログラミング言語としてのlisp環境が整うだけでしょうか?
421: 2024/09/03(火)13:27 ID:Jxau6mSM(2/3) AAS
>>418
Windowsは不断使いしていないんで開発環境とかemacsとかはわからないけど、動かすだけなら
外部ﾘﾝｸ[html]:www.sbcl.org からWindows版のSBCLインストーラーを落としてインストール
コマンドプロンプトなどのコマンド行で
sbcl --script ファイル名 とすると「ファイル名」のファイルをスクリプトとして実行します
--script を付けない場合REPLが起動します(Pythonでいうところの対話モード)
これの終了は (quit) と入力してEnterキー
422(1): 2024/09/03(火)13:38 ID:Jxau6mSM(3/3) AAS
ちょっと試すだけならウェブサービスを使う手も
Common Lispを動かせるオンラインコンパイラーサイト
外部ﾘﾝｸ:rextester.com
外部ﾘﾝｸ:www.jdoodle.com
外部ﾘﾝｸ:wandbox.org
これらはideoneとは異なり "Share" とか "Save" とかをクリックしない限り保存・公開されない(はず)
423: 2024/09/03(火)22:13 ID:HQsZJT0t(3/3) AAS
レス頂いた方、ありがとうございます
とりあえず>>422辺りで試してみます
424: 2024/09/04(水)03:34 ID:k+9kMn3u(1) AAS
REM zorome.bat
ruby -x "%~f0"
exit
#~
#!ruby
while 1
print "input a > "
a=$stdin.gets.chomp
exit if a==""
a=a.to_i
省18
425: 2024/09/04(水)06:34 ID:FQ5fjJ2m(1) AAS
>>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
}
}
省11
426: 警備員[Lv.7] 2024/09/29(日)14:12 ID:Sdg7KlJR(1) AAS
>>416
Kotlin
(URL投稿禁止になってるようなので先頭の https:／／ は抜きで)。
paiza.io/projects/nPK7U1uDtt4b7O2saECP0A
[入力]タブの方で開始、終了の値を入れている。とりあえず 10 40 を入れてある。
一桁の数を指定した場合は全てゾロ目扱いになるので出力は空のリストになる。
427(3): 2024/10/08(火)17:17 ID:CS1PHEoT(1) AAS
お題：文字列を中央寄せする関数を作れ。
関数は文字列、全体の横幅（整数）、余白を埋める文字、を引数に取る。横幅分の文字列を引数の文字で作成し、その中央に引数の文字列を埋め込み戻り値として返せ。
428: 2024/10/08(火)19:52 ID:Rq2an05y(1) AAS
py
text.center
429(1): 警備員[Lv.12] 2024/10/09(水)00:07 ID:O5zCFPJO(1) AAS
>>427
文字幅についてはどう考えれば良い？
エンコーディングが UTF-8 や UTF-16 だとバイト数や要素数が画面の表示幅と一致しないわけだが。
一致するような Shift-JIS だったとしても端末のフォント設定次第で表示幅が変わる。
430: 2024/10/09(水)00:38 ID:j8RLE5Fj(1) AAS
EUCにも半角2バイト文字なんてあったりする
431: 2024/10/09(水)00:56 ID:LtADXZKH(1) AAS
asciiの前提では
全角判定関数は切り分けるべきだし
432: 2024/10/09(水)01:18 ID:4B3K5XUV(1/3) AAS
#ドラクエ３が超好きだったので、お題にしてみる。ただしロト３のファミコン版のドラクエな！ｗ
"こちらの職業は勇者、戦士、空手家、僧侶、柔道家の５人がかりｗ
勇者から柔道家までの5人の攻撃回数が異なります。"まずは変数と確率の問題。
勇者＝you戦士＝sen,空手家＝kara,僧侶=sou
まず勇者は1~２回攻撃、戦士は1~３回攻撃、空手は2~３回攻撃、柔道は足払いで相手を２０％で麻痺させることができる。（１ターン何もできない）１０％では超麻痺。（２ターン何も敵は動かない）
５％でクリティカルヒットの足払いで３ターン敵は何もできない。
柔道は敵に攻撃を加えられない分、足払いで相手を痙攣させる。
（勇者の１回分の攻撃は100〜200、２０％の確率でクリティカルヒットの攻撃になることがある。
（戦士の攻撃は２００〜３００、２０％の確率で攻撃がクリティカルヒット１回になることがある。
（空手家）空手家の攻撃は３５０〜５００、ただし２０％の確率で攻撃がクリティカルヒットとなるときがある。youはぞろ目（１１１とか２２２とか９９９まで）の場合はロトの剣を取得する。
省14
433: 2024/10/09(水)01:22 ID:YvVjSPhZ(1/2) AAS
プログラミングする以前に読むのが面倒くさい
434: 2024/10/09(水)01:43 ID:4B3K5XUV(2/3) AAS
しまった。初期化してなかったなｗ変数のところ。
あとsouの回復もホイミ、ベホイミ、ベホマラーの３種類だけ。
その３種類がぞろ目の時（１１１，２２２など）
そしたらベホマズンを使える。ほぼ運ゲーですｗ
人修羅みたいに取り巻きがいます。それはバラモスエビルと神龍です。
ある一定時期を過ぎると取り巻きが一斉にHPを連続してあげまくるので
取り巻き先に倒さないと厳しいです。取り巻き＝tori種類１の取り巻き＝tori0
種類２の取り巻き＝tori1 5人だとなかなか倒せないから６人目の魔法剣士＝maken
だれか
これをいれよう。
省15
435(3): 2024/10/09(水)01:45 ID:YvVjSPhZ(2/2) AAS
頑張って読んだけどこのままでは多分スレチ、ずっと条件を簡単にして出題し直してみる。
お題
勇者（HP1000）対魔王（HP5000）、先鋒勇者、サイコロ（目は１から６）を振って出た目だけ相手にダメージを与えられ、交互に攻撃しHP0となったら負け。魔王のサイコロは１個だけど勇者のサイコロはN個（N=1～10）の時の勇者の勝率を求めよ。
436: 2024/10/09(水)02:10 ID:4B3K5XUV(3/3) AAS
# RPGの攻撃状況を再現
# モンスターと戦っている。
# 1から10のサイコロをふって、
# 6未満の場合、サイコロの目だけダメージを与えたと表示。
# 6以上の場合、クリティカルヒットとして、100のダメージを与えたと表示。
# 0の場合、防御されたとして、０ダメージを表示。
import random
hit = random.randint(0,10)
if 1 <= hit < 6:
print("スライムに、" + str(hit) + "のダメージを与えた！")
省5
437: 2024/10/09(水)18:59 ID:Vd16zyId(1) AAS
>>429
asciiで。
438(10): 2024/10/11(金)05:53 ID:EzY86rdr(1/2) AAS
お題：文字列の中で1つ以上連続している空白をすべて空白4つに置換せよ。ただし正規表現は使ってはならない。
例：
"abc def ghi" -> "abc def ghi"
439: 438 2024/10/11(金)05:54 ID:EzY86rdr(2/2) AAS
5chは空白を1つに置換するらしく例は出せない。脳内保管せよ。
440(1): 2024/10/11(金)20:53 ID:BlO5cFoG(1/2) AAS
>>438
perl -lpE'$_=join$"x4,split$"'
(文字列を入れる)
441: 2024/10/11(金)20:58 ID:BlO5cFoG(2/2) AAS
>>440
splitのあとの$"は不要だった。
どちらにしてもタブも置換してまうのでアウトかも。
442: 2024/10/11(金)22:15 ID:H5F5jhxE(1) AAS
>>438
R
外部ﾘﾝｸ:ideone.com
443(1): 2024/10/12(土)01:34 ID:OB4ycmPb(1/3) AAS
>>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勝
省2
444(1): 2024/10/12(土)01:39 ID:OB4ycmPb(2/3) AAS
>>443
#!ruby
#encoding: utf-8
$stdout=open("kekka.txt","w")
i=100000 #対戦回数
k=0 #勇者の勝ち
n=1 #勇者のサイコロの数
hpm=5000 #魔王のＨＰ
hpy=1000 #勇者のＨＰ
445: 2024/10/12(土)01:39 ID:OB4ycmPb(3/3) AAS
>>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
省17
446: 警備員[Lv.12] 2024/11/05(火)05:27 ID:srt1vo+S(1) AAS
>>427
Kotlin
スペースが何個なのか分り易くするために '*' をスペースの代わりに入れて呼び出している。
外部ﾘﾝｸ:paiza.io
447: 2024/11/13(水)22:01 ID:nRkxNwtG(1/2) AAS
>>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
省16
448: 2024/11/13(水)22:22 ID:nRkxNwtG(2/2) AAS
>>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.}
449(3): 2024/12/31(火)22:33 ID:5KitXLte(1) AAS
ベクターにあるこれを解いてくれ
昔2ch、5chスレでやってたができず
いまだと4x4はパワーで行けるとおもうが
4x4盤タイルゲーム for Windows
対戦するたびに学習して次第に強くなる「最善手探索+対戦学習型知能ゲーム」
450: 2025/01/01(水)12:58 ID:emEmRiID(1) AAS
他力本願か？
451: 2025/01/01(水)13:30 ID:WMbw73Fu(1) AAS
出題の仕方でプログラミング能力の無さがわかる
452: 2025/01/01(水)13:32 ID:ZpviU2f/(1/7) AAS
>>438
Java
外部ﾘﾝｸ:paiza.io
453: 2025/01/01(水)13:54 ID:ZpviU2f/(2/7) AAS
>>427
Java
外部ﾘﾝｸ:paiza.io
454: 2025/01/01(水)15:04 ID:ZpviU2f/(3/7) AAS
>>416
Java
外部ﾘﾝｸ:paiza.io
455: 2025/01/01(水)18:14 ID:X9RQ0R0S(1) AAS
>>449
勝手に名付けて水道管連結ゲーム
先後で縦か横で管を繋げた方の勝ち
ただしこの場合、黒が角においたら連結するだけだが今白が角におくと黒2つは除去される
▓
□▓
456: 2025/01/01(水)19:18 ID:ZpviU2f/(4/7) AAS
>>382
Java
外部ﾘﾝｸ:paiza.io
457: 2025/01/01(水)19:35 ID:ZpviU2f/(5/7) AAS
>>381
Java
外部ﾘﾝｸ:paiza.io
458: 2025/01/01(水)20:12 ID:ZpviU2f/(6/7) AAS
>>356
Java
外部ﾘﾝｸ:paiza.io
459: 2025/01/01(水)20:32 ID:ZpviU2f/(7/7) AAS
>>349
Java
外部ﾘﾝｸ:paiza.io
460: 警備員[Lv.16] 2025/01/02(木)03:06 ID:PSAM74+n(1/2) AAS
>>438
Kotlin
外部ﾘﾝｸ:paiza.io
461(1): 警備員[Lv.16] 2025/01/02(木)03:15 ID:PSAM74+n(2/2) AAS
>>449
解いてくれって？何をしたらいいの？
全パターンやらせて勝つパターンを出せってこと？
462: 2025/01/02(木)10:05 ID:gED46q9T(1) AAS
>>461
最善手だったら先手の勝ちかどうか
463: 2025/01/02(木)16:25 ID:H7SLSd6p(1) AAS
2chｽﾚ:tech
Java
外部ﾘﾝｸ:paiza.io
464(9): 2025/01/03(金)13:22 ID:dEYOS8Dq(1/2) AAS
お題
AのあとにAと同じ数だけBが続く言語エビがあるとします
文字列が入力されたときそれがエビ言語であるか判定するプログラムを作成してください
→ true
A → false
B → false
AB → true
ABB → false
AAB → false
AABB → true
省1
465: 2025/01/03(金)13:25 ID:dEYOS8Dq(2/2) AAS
>>464
文字化け訂正
誤：AのあとｂﾉAと同じ数だけBが続く言語エビがあるとします
正：AのあとにAと同じ数だけBが続く言語エビがあるとします
466: 2025/01/03(金)15:30 ID:aGLRGnDr(1/3) AAS
>>464 lisp
外部ﾘﾝｸ:ideone.com
467: 2025/01/03(金)15:34 ID:aGLRGnDr(2/3) AAS
>>464 python
外部ﾘﾝｸ:ideone.com
468(2): 2025/01/03(金)17:52 ID:aGLRGnDr(3/3) AAS
>>464 lisp (chatgptに教えてもらった)
外部ﾘﾝｸ:ideone.com
外部ﾘﾝｸ:chatgpt.com
469: 2025/01/03(金)20:07 ID:yesC/P5F(1) AAS
>>464
fn is_ab_lang(input: &str) -> bool {
match input
.chars()
.fold(Some(0), |state, char| match (state, char) {
(Some(count), 'A') => Some(count + 1),
(Some(count), 'B') if count > 0 => Some(count - 1),
_ => None,
}) {
Some(0) => true,
省11
470: 2025/01/03(金)23:45 ID:AD9nWeeV(1) AAS
>>464 c
外部ﾘﾝｸ:ideone.com
#include <stdio.h>
#include <string.h>
int isablang(const char *s) {
size_t a = strspn(s, "A"), b = strspn(s + a, "B");
return !*s || 0 < a && 0 < b && a == b && isablang(s + a + b);
}
void g(const char *s) {
printf("%s\t%s\n", isablang(s) ? "true" : "false", s);
省6
471: 2025/01/04(土)14:03 ID:uiECOsgP(1/2) AAS
>>468
ChatGPTロジックだとAABABBが受理されちゃう
472: 468 2025/01/04(土)15:43 ID:RKGS1C18(1) AAS
あら
ちょっとだけ修正すれば…って、無理か
473: 2025/01/04(土)16:26 ID:kbkaPDs8(1) AAS
>>464 c
外部ﾘﾝｸ:ideone.com
・strspn使わない
・再帰しない
#include <stdio.h>
int isablang(const char *s) {
const char *t, *u;
for (; *s; s = u) {
if (*s != 'A') return 0; else for (t = s; *t == 'A'; t++);
if (*t != 'B') return 0; else for (u = t; *u == 'B'; u++);
省4
474(4): 2025/01/04(土)21:19 ID:uiECOsgP(2/2) AAS
お題
貨幣・銀行券を次の文字列で表すとします
(1)
(5)
(10)
(50)
(100)
(500)
[1000]
[5000]
省13
475: 2025/01/04(土)22:52 ID:frbzLXtQ(1) AAS
>>474 c
外部ﾘﾝｸ:ideone.com
476: 2025/01/05(日)03:39 ID:/228f09V(1) AAS
>>449
誰もいないので自分でAIに司令してやってみた
が何かおかしい
外部ﾘﾝｸ:ideone.com
477: 2025/01/05(日)21:35 ID:6Z+55hA8(1) AAS
>>474 ruby
外部ﾘﾝｸ:ideone.com
478: 警備員[Lv.18] 2025/01/12(日)04:14 ID:zWON4EbF(1/2) AAS
>>464
Kotlin
外部ﾘﾝｸ:paiza.io
479: 警備員[Lv.18] 2025/01/12(日)04:47 ID:zWON4EbF(2/2) AAS
>>474
Kotlin
外部ﾘﾝｸ:paiza.io
480: 2025/01/12(日)17:40 ID:Mt0OVaIB(1) AAS
4*4タイルゲームをAIに命令させてやらせているが
それっぽいのを出力はするが正しい勝利判定ができていない
481: 2025/01/13(月)13:03 ID:mFwJihvQ(1) AAS
>>438 c
外部ﾘﾝｸ:ideone.com
482: 2025/01/13(月)20:43 ID:zlmvetys(1) AAS
>>438 java
外部ﾘﾝｸ:ideone.com
483(1): 9 2025/01/20(月)01:11 ID:zWVP8H/r(1) AAS
>>474 Perl5
$s = '(100)(10)(1)[10000](5)(500)[1000][5000][1000][1000](10)(100)(50)(100)[1000]';
$h{$_} .= $_ for $s =~ /\(\d+\)|\[\d+\]/g;
use List::Util 'sum';
$v{$h{$_}} = sum($h{$_} =~ /\d+/g) for keys %h;
print "$_\n" for sort{$v{$b} <=> $v{$a}} keys %v;
実行結果
~ $ perl 22_474_value.pl
[10000]
[5000]
省7
484: 9 2025/01/21(火)02:09 ID:Kvjf8jsk(1) AAS
>>483 Perl5
$_ = 'abc def ghi';
print join(' ' x 4, split) . "\n";
485(20): 2025/01/22(水)21:35 ID:JtEnwxKE(1) AAS
お題
文字列と長さを入力として受け取り
デカルト積のリストを出力してください
入力：ABC 1
出力：[A, B, C]
入力：ABC 2
出力：[AA, AB, AC, BA, BB, BC, CA, CB, CC]
入力：ABC 3
出力：[AAA, AAB, AAC, ABA, ABB, ABC, ACA, ACB, ACC, BAA, BAB, BAC, BBA, BBB, BBC, BCA, BCB, BCC, CAA, CAB, CAC, CBA, CBB, CBC, CCA, CCB, CCC]
486(1): 2025/01/22(水)22:43 ID:EHGf/TPZ(1/2) AAS
>>485
Rust
fn odai(文字列: &str, 長さ: usize) -> Vec<String> {
use itertools::Itertools;
(0..長さ)
.map(|_| 文字列.chars())
.multi_cartesian_product()
.map(String::from_iter)
.collect()
}
省5
487: 2025/01/22(水)23:18 ID:dYX3B7ea(1) AAS
>>485 ruby
外部ﾘﾝｸ:ideone.com
f = ->(s, n) {:product.to_proc.(*[s.chars]*n).map(&:join)}
488: 2025/01/22(水)23:57 ID:EHGf/TPZ(2/2) AAS
>>485
Rust 今回は積ライブラリを使わない自力版
fn odai(文字列: &str, 長さ: usize) -> Vec<String> {
let chars = 文字列.chars().collect::<Vec<_>>();
let mut state = vec![0; 長さ];
let mut output = Vec::new();
'Loop: loop {
let s = state.iter().map(|i| chars[*i]).collect();
output.push(s);
for index in state.iter_mut().rev() {
省11
489: 2025/01/23(木)18:33 ID:hcg9tgUx(1) AAS
AA省
490: 2025/01/23(木)20:05 ID:naue5Hlh(1) AAS
>>485 ocaml
外部ﾘﾝｸ:ideone.com
>>485 octave
外部ﾘﾝｸ:ideone.com
491: 9 2025/01/24(金)01:44 ID:p08ruAfw(1) AAS
>>485 Perl5
for $n (1..3) {
@cp = @s = qw(A B C);
while(--$n) { @cp = map{ $p = $_; map{ "$p$_" } @s } @cp }
print "@cp\n";
}
※見易くするためインデントは全角スペースに置換してあります
実行結果
~ $ perl 22_485_CartesianProd.pl
A B C
省2
492(1): 9 2025/01/24(金)17:38 ID:cg1ZmS3G(1) AAS
>>464 Perl5
for (<DATA>) {
chomp;
print "$_ → ", (/^(A((AB)?|(?1))B)+$/g ? 'true' : 'false'), "\n";
}
__DATA__
A
B
AB
ABB
省18
493(1): 2025/01/24(金)20:04 ID:kDOvSp0D(1) AAS
>>485 dart
外部ﾘﾝｸ:ideone.com
>>485 rust
外部ﾘﾝｸ:ideone.com
494: 9 2025/01/25(土)02:52 ID:wVQIyzpy(1) AAS
>>492
/g の ｇは不要で / でおｋだった…orz
495: 2025/01/25(土)03:04 ID:Z97MpHAu(1) AAS
どんまい
496: 2025/01/25(土)21:23 ID:KM9w0vp0(1) AAS
>>485 c
外部ﾘﾝｸ:ideone.com
・バッファに取る版
>>485 c
外部ﾘﾝｸ:ideone.com
・バッファに取らない版
・表示するだけ
497: 2025/01/26(日)14:07 ID:nBBaggrk(1) AAS
>>485
Java
外部ﾘﾝｸ:paiza.io
498: 493 2025/01/26(日)15:22 ID:dl7YvN1C(1) AAS
>>485 dart
外部ﾘﾝｸ:ideone.com
・若干の簡略化
>>485 rust
外部ﾘﾝｸ:ideone.com
・若干の簡略化？
499: 2025/01/27(月)00:00 ID:/Jqezixy(1) AAS
>>485 java
外部ﾘﾝｸ:ideone.com
500(11): 2025/01/27(月)09:16 ID:rqFJtGlJ(1) AAS
お題
入力された文字列から重複する文字を抽出してください
T →
CG →
ATA → A
CGGA → G
ATGAT → AT
GTTGCA → GT
CCCCGGG → CG
ACTGCGAG → ACG
省2
501(1): 9 2025/01/27(月)17:15 ID:cwZgX9Gy(1/3) AAS
Perl5
for (qw{T CG ATA CGGA ATGAT GTTGCA CCCCGGG ACTGCGAG ATCAGAATA TGCCATGACA}) {
%h = (); $h{$_}++ for split '';
print "$_ → ", (grep{1 < $h{$_}} keys %h), "\n";
}
※見易くするためインデントを全角スペースに置換してあります
実行結果
~ $ perl 22_500_dupe_char.pl
T →
CG →
省8
502: 9 2025/01/27(月)21:20 ID:cwZgX9Gy(2/3) AAS
>>501 Coilotに入力して処理内容を問うてみたらちゃんと返してきてワラタ
外部ﾘﾝｸ:copilot.microsoft.com
503: 9 2025/01/27(月)21:22 ID:cwZgX9Gy(3/3) AAS
CopilotのURLをコピペしても他の人に内容を見せることはできなかったワ…orz
504: 2025/01/27(月)21:24 ID:LHxZVLOG(1) AAS
>>500 octave
外部ﾘﾝｸ:ideone.com
function s = f(s)
[~, ia] = unique(s);
s(ia) = [];
if 1 < length(s)
[~, ia] = unique(s, 'first');
s = s(sort(ia));
end
end
省4
505: 2025/01/27(月)21:30 ID:l9HsQRRu(1) AAS
>>485 lisp
外部ﾘﾝｸ:ideone.com
>>500 lisp
外部ﾘﾝｸ:ideone.com
506(1): 2025/01/28(火)21:18 ID:oNqYbqge(1) AAS
>>500 dart
外部ﾘﾝｸ:ideone.com
>>500 c
外部ﾘﾝｸ:ideone.com
上下前次1-新書関写板覧索設栞歴
あと 376 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.025s