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

**デフォルトの名無しさん** · 2020/03/13(金) 01:42:47.06

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

【出題と回答例】
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/

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

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

**デフォルトの名無しさん** · 2020/04/28(火) 19:44:24.43

>>293
全加算器
Step 12, Solution 3
0 : -1, -2: 0, 0, 0, 0, 1, 1, 1, 1 : 4
1 : -1, -2: 0, 0, 1, 1, 0, 0, 1, 1 : 4
2 : -1, -2: 0, 1, 0, 1, 0, 1, 0, 1 : 4
3 : 2, 1: 1, 1, 1, 0, 1, 1, 1, 0 : 6
4 : 3, 1: 1, 1, 0, 1, 1, 1, 0, 1 : 6
5 : 3, 2: 1, 0, 1, 1, 1, 0, 1, 1 : 6
6 : 5, 4: 0, 1, 1, 0, 0, 1, 1, 0 : 4
7 : 6, 0: 1, 1, 1, 1, 1, 0, 0, 1 : 6
8 : 7, 0: 1, 1, 1, 1, 0, 1, 1, 0 : 6
9 : 7, 3: 0, 0, 0, 1, 0, 1, 1, 1 : 4 *
10 : 7, 6: 1, 0, 0, 1, 1, 1, 1, 1 : 6
11 : 10, 8: 0, 1, 1, 0, 1, 0, 0, 1 : 4 *
他2

**デフォルトの名無しさん** · 2020/04/28(火) 21:14:59.05

お題：CapsLock on/offを切り替えながら文字入力

[入力]
A B C S

A : Shiftキーを押さずに1文字入力するのにかかる時間
B : Shiftキーを押しながら1文字入力するのにかかる時間(※)
C : CapsLock on/offの切り替えにかかる時間
S : 入力する文字列(英字のみ)

※CapsLock onで小文字入力、CapsLock offで大文字入力にかかる時間をBとする

[出力]
初期状態をCapsLock offとしたとき、Sを入力するのにかかる時間の最小値を求めよ

(例1)
2 3 4 ABCDE
=> 14
CapsLockを使わない場合、3+3+3+3+3=15
CapsLockを使うと、(4)+2+2+2+2+2=14

(例2)
2 3 4 aBCDe
=> 13
CapsLockを使わない場合、2+3+3+3+2=13
2文字目以降CapsLock onの場合、2+(4)+2+2+2+3=15

**デフォルトの名無しさん** · 2020/04/29(水) 01:24:53.33

>>364
そんな長いコードよく1日でかけたな

**デフォルトの名無しさん** · 2020/04/29(水) 02:08:45.13

つられて開いたら、そんなに長くなかった

**デフォルトの名無しさん** · 2020/04/29(水) 02:11:21.30

ﾓﾚも若い頃、力ずくの実装でこう言ふコード書いていた時期があった希ガス遠い目

**デフォルトの名無しさん** · 2020/04/29(水) 02:17:11.52

プログラマってプライド高いからすぐに張り合うよねw

**デフォルトの名無しさん** · 2020/04/29(水) 02:21:44.68

誰も張り合っていないが

**デフォルトの名無しさん** · 2020/04/29(水) 02:22:31.06

子どもみたい

**デフォルトの名無しさん** · 2020/04/29(水) 02:25:50.52

大人とは何か

**デフォルトの名無しさん** · 2020/04/29(水) 02:27:25.42

冗談だから間に受けなくていいよ。

**デフォルトの名無しさん** · 2020/04/29(水) 02:28:27.81

大人とは酒、タバコ、Unix

**デフォルトの名無しさん** · 2020/04/29(水) 02:29:29.28

>>374
うざいからよそでやれ

**デフォルトの名無しさん** · 2020/04/29(水) 02:29:46.63

うん。で？

**デフォルトの名無しさん** · 2020/04/29(水) 02:30:51.12

>>375
うざいからよそでやれ

**デフォルトの名無しさん** · 2020/04/29(水) 02:33:29.03

餌をあげないでください。

**デフォルトの名無しさん** · 2020/04/29(水) 02:33:56.37

>>379
うざいからよそでやれ

**デフォルトの名無しさん** · 2020/04/29(水) 02:35:59.66

>>380
あなたにとってうざいことは、みな歓迎しています

**デフォルトの名無しさん** · 2020/04/29(水) 02:36:09.16

>>369
そうなんだおじさん「そうなんだ」

**デフォルトの名無しさん** · 2020/04/29(水) 02:37:10.95

いやいや全然違います

**デフォルトの名無しさん** · 2020/04/29(水) 02:38:46.06

いいえ全然違いません

**デフォルトの名無しさん** · 2020/04/29(水) 02:39:10.87

くだらねぇーｗ

**デフォルトの名無しさん** · 2020/04/29(水) 02:40:49.50

くだらないことは何度も

**デフォルトの名無しさん** · 2020/04/29(水) 02:41:29.87

うん。で？

**デフォルトの名無しさん** · 2020/04/29(水) 02:41:55.06

うざいからよそでやれ

**デフォルトの名無しさん** · 2020/04/29(水) 02:43:06.43

│　　　　_、_
│　ヽ(　,_ﾉ`)ノ　残念、それは私のおいなりさんだ。
│　へﾉ　　 /
└→　ω ノ
　　　　　 >

**デフォルトの名無しさん** · 2020/04/29(水) 02:43:16.68

おじさんはここがいいです。

**デフォルトの名無しさん** · 2020/04/29(水) 02:44:14.14

くだらねーw

**デフォルトの名無しさん** · 2020/04/29(水) 02:44:35.49

逝ってよし

**デフォルトの名無しさん** · 2020/04/29(水) 02:45:11.17

おじさんはよそに行きましょうね

**デフォルトの名無しさん** · 2020/04/29(水) 02:45:55.07

↓少し下でID変えて書くはず
逝ってよし

**デフォルトの名無しさん** · 2020/04/29(水) 02:46:12.06

くだらねーw

**デフォルトの名無しさん** · 2020/04/29(水) 02:47:10.32

逝ってよし

**デフォルトの名無しさん** · 2020/04/29(水) 02:47:46.32

ktkr

**デフォルトの名無しさん** · 2020/04/29(水) 02:48:03.46

くだらねーw

**デフォルトの名無しさん** · 2020/04/29(水) 02:49:03.69

律儀だなお前

**デフォルトの名無しさん** · 2020/04/29(水) 02:50:36.73

おじいちゃんの唐突な自分語りワロタ

**デフォルトの名無しさん** · 2020/04/29(水) 02:50:44.78

>>398 ご褒美あげるよ
https://www.google.co.jp/search?q=%E3%83%9E%E3%83%B3%E3%82%B3&;hl=ja&source=lnms&tbm=isch&sa=X&ved=2ahUKEwibwsmt14vpAhXGQN4KHZx_AsYQ_AUoAnoECAsQBA&biw=1024&bih=626

**デフォルトの名無しさん** · 2020/04/29(水) 02:53:16.11

>>400
お前も、ご褒美、欲しい？

**デフォルトの名無しさん** · 2020/04/29(水) 02:54:44.35

やっぱ、お前には、あーげない。

**デフォルトの名無しさん** · 2020/04/29(水) 02:57:53.08

なぜこの程度で、黙る？

**デフォルトの名無しさん** · 2020/04/29(水) 02:59:48.25

かわいそうなことをしてしまったかな…

**デフォルトの名無しさん** · 2020/04/29(水) 03:13:10.26

ご褒美にどうせ貼るならこっちだろ
https://www.google.co.jp/search?q=%E3%83%9E%E3%83%B3%E3%82%B3&;source=lnms&tbm=isch&sa=X&ved=2ahUKEwi2__io3IvpAhXoy4sBHWLLAs0Q_AUoAnoECAsQBA&biw=1024&bih=626

**デフォルトの名無しさん** · 2020/04/29(水) 03:14:48.43

いやいやこっち
https://www.google.co.jp/search?q=%E3%83%9E%E3%83%B3%E3%82%B3&;source=lmns&tbm=vid&bih=626&biw=1024&hl=ja&ved=2ahUKEwja0Yir3IvpAhUyMHAKHSsUDc0Q_AUoAXoECAEQAQ

**289** · 2020/04/29(水) 07:47:59.06

>>286 Ruby
https://ideone.com/KV5X5c
主な処理をテーブルで済ませて高速化
ideone の時間制限内に完走できた

**デフォルトの名無しさん** · 2020/04/29(水) 09:28:47.04

>>366 Ruby
# A <= B とする

def f(a, b, c, arr, cl = false)
　　return 0 if arr.empty?
　　arr = arr.clone
　　cap, size = arr.shift
　　return a * size + f(a, b, c, arr, cl) if cap == cl
　　[c + a * size + f(a, b, c, arr, !cl), b * size + f(a, b, c, arr, cl)].min
end

g = -> str {str.scan(/[A-Z]+|[a-z]+/).map{|s| [s.match?(/[A-Z]/), s.size]}}

[
　　'2 3 4 ABCDE',
　　'2 3 4 aBCEe',
　　'2 3 4 XMLHttpRequestEventTarget'
].each{|s| *e, s = s.split; puts '%s => %d' % [s, f(*e.map(&:to_i), g[s])]}

# =>
ABCDE => 14
aBCEe => 13
XMLHttpRequestEventTarget => 57

**デフォルトの名無しさん** · 2020/04/29(水) 09:42:47.46

>>308
2番目の例impossibleじゃなくて S -> 3 -> Gじゃないの？って思ったら入力1行目はH Wだった

**デフォルトの名無しさん** · 2020/04/29(水) 16:10:16.80

>>271
Java
https://paiza.io/projects/RBAyJiWk21BDHF_SnCn1Yg

**デフォルトの名無しさん** · 2020/04/29(水) 21:05:32.34

>>234
Java
https://paiza.io/projects/grHXWC8LISo50PRjUPDaFA

**デフォルトの名無しさん** · 2020/04/30(木) 06:48:30.61

>>293
４入力セレクタ

digraph g1 {
subgraph cluster_1 {
label = "Solution_1"
aa_1_0, aa_1_0 -> aa_1_6 ; aa_1_1, aa_1_1 -> aa_1_7 ; aa_1_3, aa_1_1 -> aa_1_8 ;
aa_1_5, aa_1_1 -> aa_1_9 ; aa_1_7, aa_1_2 -> aa_1_10 ; aa_1_7, aa_1_4 -> aa_1_11 ;
aa_1_10, aa_1_8 -> aa_1_12 ; aa_1_11, aa_1_9 -> aa_1_13 ; aa_1_12, aa_1_6 -> aa_1_14 ;
aa_1_13, aa_1_0 -> aa_1_15 ; aa_1_15, aa_1_14 -> aa_1_16 ;
}
}

**289** · 2020/04/30(木) 07:15:11.89

>>286 Ruby
https://ideone.com/Wz7WFP
2pass化 25%ほど高速化

**デフォルトの名無しさん** · 2020/05/01(金) 05:08:54.81

>>286
EXNORはちょっとおもしろい。
Step 7, Solution 1
0 : -1, -2: 0, 0, 1, 1 : 2
1 : -1, -2: 0, 1, 0, 1 : 2
2 : 0, 0: 1, 1, 0, 0 : 2
3 : 1, 0: 1, 1, 1, 0 : 3
4 : 1, 1: 1, 0, 1, 0 : 2
5 : 4, 2: 0, 1, 1, 1 : 3
6 : 5, 3: 1, 0, 0, 1 : 2 *

**デフォルトの名無しさん** · 2020/05/01(金) 05:42:45.32

お題: 関数とパイプを実装せよ
以下のような文字列をパースし、パイプに繋げながら関数を実行せよ
標準入力と標準出力の代わりにバッファを使って実装すること

in < "hello"
out > hello

in < "hello | world"
out > helloworld

in < "world | hello"
out > worldhello

in < "hello | upper"
out > HELLO

in < "hello | world | upper"
out > HELLOWORLD

**デフォルトの名無しさん** · 2020/05/01(金) 06:02:49.53

>>416
hello | upperはhelloupperだろ

**289** · 2020/05/01(金) 07:03:56.16

>>286 Ruby
https://ideone.com/3qXvX8
一度に 4bit計算 40%ほど高速化

**デフォルトの名無しさん** · 2020/05/01(金) 07:11:29.45

>>417
upperはバッファを大文字にする関数

**デフォルトの名無しさん** · 2020/05/01(金) 07:20:48.70

いや、存在する関数を全部定義しないと実装なんてできんやん
突っ込まれて思わなかったの？

**デフォルトの名無しさん** · 2020/05/01(金) 07:55:56.05

hello, world, upperだけ実装すればいいのでは

**デフォルトの名無しさん** · 2020/05/01(金) 08:08:25.74

みんな真面目だなｗ

**デフォルトの名無しさん** · 2020/05/01(金) 08:25:09.26

>>416 書き直し

お題: 関数hello, world, upperを実装し、それらをパイプで繋げて実行できるようにせよ
標準入力からコマンドライン文字列が一行ずつ入力されるので、それをパースして上記の関数を組み合わせて実行する
関数の出力と入力には標準入出力を使う代わりに、バッファを使い、コマンドライン全体の実行が終わったら構築したバッファを標準出力へ出力すること
例えば入力されるコマンドラインは

in < hello
in < hello | world
in < hello | world | upper
in < world | hello
in < world | hello | upper

のようになる
hello関数はバッファに文字列「hello」を追加し、world関数はバッファに文字列「wolrd」を追加し、upperはバッファ内の文字列を大文字にする関数である
よって最終的なコマンドラインの出力は

in < hello
out > hello
in < hello | world
out > helloworld
in < hello | world | upper
out > HELLOWORLD
in < world | upper | hello
out > WORLDhello

のようになる

**デフォルトの名無しさん** · 2020/05/01(金) 08:29:55.15

hello world それぞれを改行無しの printf などで出力し
upper は大きくするだけか

**デフォルトの名無しさん** · 2020/05/01(金) 08:34:39.92

>>424
バッファを使わずに標準入出力だけで実装できるならそれでもいいです

**デフォルトの名無しさん** · 2020/05/01(金) 11:04:14.34

Ruby には、まさに文字列(バッファ)に、IO インタフェースを実装したクラス、StringIO がある！

**デフォルトの名無しさん** · 2020/05/01(金) 11:29:05.85

>>423 Ruby
$><<$_.split(' | ').reduce(''){|s,e|[s.upcase,s+e][e.ord%-3]}while gets

-*- input -*-
hello
hello | world
hello | world | upper
world | hello
world | hello | upper

-*- output -*-
hello
helloworld
HELLOWORLD
worldhello
WORLDHELLO

**デフォルトの名無しさん** · 2020/05/02(土) 23:08:15.43

>>423
Java
https://paiza.io/projects/xBPsF7Vihf9x1tS1U1asrQ

**デフォルトの名無しさん** · 2020/05/03(日) 01:19:30.67

>>423 Perl5, 要求仕様通り素直に三つの関数を定義し、文字列をparseした単語の関数名を呼び出す形で実装

sub hello { $o .= 'hello' }
sub world { $o .= 'world' }
sub upper { $o = uc $o }
for (<DATA>) {
　$o = '';
　&$_ for /(\w+)/g;
　print "$o\n";
}
__DATA__
hello
hello | world
hello | world | upper
world | hello
world | hello | upper
world | upper | hello

実行結果
~ $ perl 17_423_hello_world_upperl.pl
hello
helloworld
HELLOWORLD
worldhello
WORLDHELLO
WORLDhello

**289** · 2020/05/03(日) 07:15:48.78

>>286 Ruby
https://ideone.com/VDiQyB
枝刈りを強化 38%ほど高速化

**デフォルトの名無しさん** · 2020/05/03(日) 09:17:11.44

>>427
world | upper | hello

**デフォルトの名無しさん** · 2020/05/03(日) 09:27:35.74

>>431
ちゃんと"WORLDhello"って出力される

**デフォルトの名無しさん** · 2020/05/04(月) 00:23:42.89

>>423
Kotlin
https://paiza.io/projects/Opyd7gwTb5jwgD2LANwPeA

文字列を判定して対応する処理をするだけでも良かったが、Map に文字列と対応する処理をセットしてそれを呼び出して実行させるようにした。
また hello, world, upper 以外が入力されるとエラーが出るようになっている。

**デフォルトの名無しさん** · 2020/05/04(月) 00:44:53.84

また変なTwitterの奴か

**289** · 2020/05/04(月) 07:13:05.12

>>286 C++
https://ideone.com/djJiyu
Ruby から移植。実行時間は Rubyより 90倍程度高速化

**デフォルトの名無しさん** · 2020/05/04(月) 07:38:47.50

>>435
端子の出現順を固定しないから無駄に組合せが増えているのではないだろうか。

**デフォルトの名無しさん** · 2020/05/04(月) 13:46:12.35

お題
H行W列のマス目が与えられる。左上の座標を(0, 0)、右下の座標を(H, W)とする。
座標(0.5, 0)を始点にしてボールを右下45度の方向に発射する。
ボールが始点に戻ってくるまでに壁に衝突する回数を求めよ。
(マス目の範囲外は壁とみなす。ボールの大きさや摩擦などは無視してよい)

[入力]
H W
('.'が地面、'#'が壁)

[例]
1 1
.
=> 4 (軌跡は◇の形)

4 5
..#..
#..#.
.#..#
..#..
=> 18

5 10
..........
#########.
..........
.#########
..........
=> 66

**デフォルトの名無しさん** · 2020/05/04(月) 15:35:11.55

>>437
x = Math.gcd(H, W);
print((H / x + 1) * ( W / x + 1));

**デフォルトの名無しさん** · 2020/05/04(月) 15:38:07.95

ああ、違うな
壁って長方形の辺上にだけあるのかと思って解いてた

**デフォルトの名無しさん** · 2020/05/04(月) 16:28:39.55

バーカ

**デフォルトの名無しさん** · 2020/05/04(月) 17:18:49.19

>>437 Perl5、素直に壁で跳ね返る回数をカウント

for (<DATA>) {
　($H, $W, @a) = /(\S+)/g;
　@s = map{[map{$_ eq '#'} split '']} @a;
　my %t;
　for $h (0..$H-1) { $t{$h+0.5}{0} = $t{$h+0.5}{$W} = 1;
　　for $w (0..$W-1) { $t{0}{$w+0.5} = $t{$H}{$w+0.5} = 1;
　　　next unless $s[$h][$w];
　　　$t{$h}{$w+0.5} = $t{$h+0.5}{$w} = $t{$h+0.5}{$w+1} = $t{$h+1}{$w+0.5} = 1;
　　}
　}
　($x, $y, $dx, $dy, $n) = (0.5, 0, 0.5, 0.5, 0);
　do {
　　$x += $dx; $y += $dy;
　　if ($t{$y}{$x}) {
　　　$dx = -$dx if $y =~ /\.5/; $dy = -$dy if $x =~ /\.5/;
　　　$n++;
　　}
　} while $x != 0.5 or $y != 0;
　print "$n\n"
}
__DATA__
1 1 .
4 5 ..#.. #..#. .#..# ..#..
5 10 .......... #########. .......... .######### ..........

実行結果
~ $ perl 17_437_bounce.pl
4
18
66

**デフォルトの名無しさん** · 2020/05/04(月) 18:29:48.35

お題
2つの文字列について、文字列を構成する文字が同じで、最初と最後の文字が合っていれば、
その2つの文字列は等価であるとみなす。

文字列がN個与えられる。
上記ルールに従って重複を除去したとき、文字列はいくつ残るか？

(例)
6
programming
odai
prorgamnimg
oadi
pgorgamming
idao
=> 4

**デフォルトの名無しさん** · 2020/05/04(月) 19:25:38.15

>>442 Perl5、"6"も文字列に含めれば、４

for (<DATA>) {
　@a = /(\w)/g;
　%h = map{$_ => 1} @a;
　$s = $a[0].join('', sort keys %h).$a[-1];
　print "$_ -> $s\n";
　$g{$s}++;
}
print keys(%g)."\n";
__DATA__
6
programming
odai
prorgamnimg
oadi
pgorgamming
idao

実行結果
~ $ perl 17_442_similstr.pl
666 <- 6
pagimnoprg <- programming
oadioi <- odai
pagimnoprg <- prorgamnimg
oadioi <- oadi
pagimnoprg <- pgorgamming
iadioo <- idao
4

**デフォルトの名無しさん** · 2020/05/04(月) 19:32:53.52

暇人か

**デフォルトの名無しさん** · 2020/05/04(月) 19:38:37.16

>>442
(defun cambridge-string= (a b)
(and (char= (elt a 0) (elt b 0))
(char= (elt a (1- (length a))) (elt b (1- (length b))))
(string= (sort (copy-seq a) #'char<) (sort (copy-seq b) #'char<))))

(defvar *set* nil)
(dotimes (n (read))
(pushnew (read-line) *set* :test #'cambridge-string=))
(princ (length *set*))
common lispのsortは破壊的だったのか

**デフォルトの名無しさん** · 2020/05/04(月) 23:39:20.54

>>443
Java
https://paiza.io/projects/YOefZxfsXYBVvIfI9q2z0w

**デフォルトの名無しさん** · 2020/05/04(月) 23:43:12.22

>>446
おぎゃー
レス番間違えた
>>442
https://paiza.io/projects/YOefZxfsXYBVvIfI9q2z0w

**デフォルトの名無しさん** · 2020/05/04(月) 23:55:30.91

>>442 Ruby

p %[6 programming odai prorgamnimg oadi pgorgamming idao].
uniq{|s| b, *m, e = s.chars; [b, e, m.uniq.sort]}.size

# => 4

**289** · 2020/05/05(火) 07:17:23.92

>>436
端子の順番は固定ですよ
なので print_map2() では省略しています
print_map() で出力すれば >>286 のフォーマットになります

**デフォルトの名無しさん** · 2020/05/05(火) 09:05:10.91

>>442 J

smoutput # ~. <@( /:~ , {. , {:);._2 stdin ''

**デフォルトの名無しさん** · 2020/05/05(火) 09:59:56.94

4入力一致の回路
選別

digraph g1 {
subgraph cluster_1 {
label = "Solution_1"
aa_1_0, aa_1_0 -> aa_1_4 ; aa_1_1, aa_1_1 -> aa_1_5 ;
aa_1_3, aa_1_2 -> aa_1_6 ; aa_1_4, aa_1_2 -> aa_1_7 ;
aa_1_5, aa_1_3 -> aa_1_8 ; aa_1_5, aa_1_4 -> aa_1_9 ;
aa_1_8, aa_1_7 -> aa_1_10 ; aa_1_9, aa_1_6 -> aa_1_11 ;
aa_1_10, aa_1_10 -> aa_1_12 ; aa_1_12, aa_1_11 -> aa_1_13 ;
aa_1_13, aa_1_13 -> aa_1_14 ;
}
}

**デフォルトの名無しさん** · 2020/05/05(火) 12:20:16.73

>>270
R
https://ideone.com/HALCW7

**デフォルトの名無しさん** · 2020/05/05(火) 15:23:47.74

>>442
c++
https://ideone.com/yBU6PG

sortしてuniqするだけ、45行

**デフォルトの名無しさん** · 2020/05/05(火) 16:00:33.99

>>453
> auto end_pt = unique(s.begin(), s.end());
> s.erase(s.end(), end_pt);
バグってるぞ

**デフォルトの名無しさん** · 2020/05/05(火) 16:03:15.79

sortしてuniqするだけなら3になるはずだと思って眺めたら
その前に加えて、先頭と最後の文字の比較もしてるやん
auto equalsBeginBack = [=](string a, string b){
return *a.begin() == *b.begin() && *&a.back() == *&b.back();

**デフォルトの名無しさん** · 2020/05/06(水) 10:23:41.41

>>270 ocaml
https://ideone.com/pjVHjr

**デフォルトの名無しさん** · 2020/05/06(水) 11:19:55.66

>>270 Dart

import 'dart:io';

void main() {
　　final var str = stdin.readLineSync();
　　const var reg = RegExp(r'\d+');
　　final List<int> args = reg.allMatches(str).map((m)=>int.parse(m.group(0))).toList();
　　final column = args.removeLast();
　　final result = [];
　　for(var i = 0; i <= args.length ~/ column; i += column) {
　　　　result.add(args.sublist(i, i + column));
　　}
　　print(result);
}

// input
[1, 2, 3, 4], 2

// output
[[1, 2], [3, 4]]

**デフォルトの名無しさん** · 2020/05/06(水) 11:28:40.04

#!/usr/bin/env -S sbcl --script

(format t "~d~%"
　　　　(length (delete-duplicates
　　　　　　　　　(loop repeat (read) collect (read-line))
　　　　　　　　　:test (lambda (a b)
　　　　　　　　　　　　　(and (string= (sort a #'char<) (sort b #'char<))
　　　　　　　　　　　　　　　　(char= (char a 0) (char b 0))
　　　　　　　　　　　　　　　　(char= (char a (1- (length a))) (char b (1- (length b)))))))))
>>445
Common Lisp HyperSpecではSide Effects: None.となっているけれど。

**デフォルトの名無しさん** · 2020/05/06(水) 18:22:42.18

>>442
Kotlin
https://paiza.io/projects/i27KzyH5DRbZTc6mfxL6AA

複数の同一文字を1文字扱いでやる場合はコメントを外して SortedSet に文字を入れる方を有効にする。

**デフォルトの名無しさん** · 2020/05/07(木) 05:41:45.37

>>442 Io

File standardInput readLines map(do(
sort .. slice(0,1) .. slice(size)
))unique size println

**デフォルトの名無しさん** · 2020/05/07(木) 08:19:16.73

>>458
こんなこともできるんだな

**デフォルトの名無しさん** · 2020/05/08(金) 01:18:21.71

色んな言語による実装が見られて楽しい。
ロゼッタストーンのように自分が出来ない言語の実装も
お題ごとに見られて面白い

**デフォルトの名無しさん** · 2020/05/08(金) 01:21:58.57

回答する人に力量のある人がいて感心する

**デフォルトの名無しさん** · 2020/05/08(金) 10:32:30.11

>>451
心が癒される回路である。