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

**デフォルトの名無しさん** · 2019/07/28(日) 19:39:57.54

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

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

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

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

**デフォルトの名無しさん** · 2019/09/05(木) 11:32:41.41

>>334
そいつらはいつものアホやからスルーしなはれ

**デフォルトの名無しさん** · 2019/09/05(木) 13:09:10.29

>>326
高校生レベル高いな
まぁアルゴリズムとか高校生でもすごい子いるもんなー
競プロとかすごいもんなー

**314** · 2019/09/05(木) 21:33:33.48

>>313 Java
https://paiza.io/projects/iamhQLuhZskbvv3lCIrj5Q
なんか思いつけたので書いた
いつもはideoneやけど、画像出力もしたくなったのでpaiza

入力データは https://mevius.5ch.net/test/read.cgi/tech/1549160513/405

**デフォルトの名無しさん** · 2019/09/06(金) 18:11:06.63

>>337
お前いつもスマートだよな

**デフォルトの名無しさん** · 2019/09/06(金) 21:58:05.28

材料グループAと材料グループBがあるとする。
それぞれには、ランダムな固有値を持っており、
固有値の差が、ある数値以下の組み合わせのみ使用可能とする。
ただし、材料グループA、B内の材料は一度使うとなくなるため一度しか組み合わせれない。
それぞれのグループの材料が100ずつあったとして適切に組み合わせれば
全てがマッチングできる。ただ人組でもペアを間違えるとマッチングできない。

こういったことを実現するためには、どういった考え方でプログラミングすればいいでしょうか。

**デフォルトの名無しさん** · 2019/09/06(金) 22:02:46.96

動的計画法でいいのかな？
オレできねーけど。

**デフォルトの名無しさん** · 2019/09/06(金) 22:06:24.07

>>339
各グループの材料を固有値の昇順にソートして小さい方からペア作ってくのではダメなのか？

**デフォルトの名無しさん** · 2019/09/06(金) 22:10:20.13

A:大<->小
B:小<->大

のペアがましといえばまし。
真ん中がマッチしない可能性はある。

**339** · 2019/09/06(金) 22:10:34.94

なるほど、とても簡単な問いだったのですね。
なんか難しい事ばかり考えていました。

**デフォルトの名無しさん** · 2019/09/06(金) 22:11:12.30

diff のアルゴリズムがもうちょっと複雑なのにも対応できるやつじゃなかったか？

**デフォルトの名無しさん** · 2019/09/06(金) 22:14:00.34

あー、差が以下か。
A:小<->大
B:小<->大

でいいわ。。。
俺もなんか難しいこと考えてた。そーりー。

**339** · 2019/09/06(金) 22:14:53.61

必ずマッチングできない100ずつあったとした場合でも昇順ソートして同じ順位にいるもので、比較してマッチングできれば実施、できなければ上位を参照してマッチングできたら抜けて、できなければさらに上位とマッチングみたいなことをすれば良いのか。

**339** · 2019/09/06(金) 22:23:16.91

あっ違う違う。
昇順にソートして組み合わせるとマッチングできないもの出てきます。
というのも差が最小の組み合わせではなくて、
差がある一定以下である事なので、昇順にソートして隣り合うものではダメです。

少し考えたのですが、全ての組み合わせを実施して、その計算結果、今回は差がある数値以下である数が多い組み合わせを採用するみたいなことになるんですかね

**デフォルトの名無しさん** · 2019/09/06(金) 22:44:43.03

>>347
適切な解が存在するケースで、小さい順の付き合わせでダメになる具体例を示せる？

**339** · 2019/09/06(金) 23:00:40.30

ないですね。
ということは、やはり最小のマッチング以外はありえないということになるのですね。

材料在庫が変動していたとしても、その瞬間の最小の差のペアを作ることが
一番効率の良いマッチング方法になるということか、、、。

**デフォルトの名無しさん** · 2019/09/06(金) 23:08:33.74

>>339
https://ideone.com/vjhJdO
C++。ちょっと思いついたのでコード書いてみたよ。
ちょっとグリードに組み合わせ作るようにしてみた。

**デフォルトの名無しさん** · 2019/09/06(金) 23:19:00.83

全てマッチングできるとは限らず最も多くマッチングできる組み合わせ
を求める　ならちょっと工夫必要そう

**デフォルトの名無しさん** · 2019/09/06(金) 23:24:40.52

皆さんありがとう。

最も多くマッチングさせるときは、閾値に一番近い選択を行うことがシンプルということかな？

>>350
コードありがとうございます。
プログラムを生業にしている者ではないのでC＋＋の開発環境から構築になりますが、試してみます。

**デフォルトの名無しさん** · 2019/09/06(金) 23:31:32.53

fix it.

**デフォルトの名無しさん** · 2019/09/06(金) 23:32:51.82

大したコードではないが、そこまで威力があるとは思わなかった。
動機なんてそんなもんか。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/09/06(金) 23:43:04.03

お題: ある会社の営業曜日(複数可)と営業時間が与えられる。今月１ヶ月の営業時間の合計を求め、今月のカレンダーの下に表示せよ。ただし、その会社は祝日・祭日を特別扱いしないものとする。

**399** · 2019/09/07(土) 00:15:01.96

>>354
おぉ見るたびマッチング精度上がってる
ありがとうございます！
参考にさせてもらいます

**デフォルトの名無しさん** · 2019/09/07(土) 09:58:38.85

>>350
>>339は固有値の差と言ってるのに>>350は固有値の和でコード書いてるように見える

**デフォルトの名無しさん** · 2019/09/07(土) 10:01:09.66

そもそもeigenvalueじゃないのに固有値と言うのに違和感を覚える

**デフォルトの名無しさん** · 2019/09/07(土) 10:40:38.85

わからんな
結晶や薄膜やらだと本当に固有値がある
ヤツは「材料」って言っていて、その先に何を想定してるかこちらには伏せられたまま

もしかすると高分子の製薬かもしれない
使うと無くなるんだろ？

**デフォルトの名無しさん** · 2019/09/07(土) 13:46:49.28

>>357
あ・・・。そうだね、そうだね。
すっかり勘違いしていた。

**デフォルトの名無しさん** · 2019/09/07(土) 14:08:25.27

https://ideone.com/96njsa
C++。引き算する場合、奇策練るとよくない感じだなぁ・・・。
しかし、うっかりしてたわ。

**デフォルトの名無しさん** · 2019/09/07(土) 14:45:59.42

https://ideone.com/Dmt87R
C++。暇だったから、いじってみた。
自分の方法だと、スコア高い？けどたまに100ペアにならないことがある。
これで今回はこれがオチとしておく。

**399** · 2019/09/07(土) 20:55:02.76

>>362
やっぱり、最小のペアを選んでいくことがベストなのかな？

できれば差は出来るだけ小さい方が良くて、結果みてると後者の方が良好な結果が出てる気がする

**デフォルトの名無しさん** · 2019/09/08(日) 00:49:49.01

排便を
壁に塗りつけ
したり顔

**デフォルトの名無しさん** · 2019/09/08(日) 02:51:14.16

>>257
Kotlin
https://paiza.io/projects/l3g48R76SbErJStepj8qmg

**デフォルトの名無しさん** · 2019/09/08(日) 08:38:41.51

>>313
正方形だと３倍速い

**デフォルトの名無しさん** · 2019/09/08(日) 09:39:44.56

３倍早いだけだったらオーダーが変わらねーじゃん
円が一万個一億個一兆個だったらどうなんの

**デフォルトの名無しさん** · 2019/09/08(日) 09:58:44.95

3日の仕事が1日で済むとも言う。

**デフォルトの名無しさん** · 2019/09/08(日) 13:16:12.58

>>363
ランダム生成している数字が割と一様なのでそういう結果になるけど、
まばらに片寄っていたらどうすればいいかはその時しかわからんなぁ。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/09/08(日) 23:16:36.64

何か初心者にも解ける面白い問題ないかな？

**蟻人間** ◆T6xkBnTXz7B0 · 2019/09/08(日) 23:23:17.86

お題: 質問文とn個の項目からなるメニューを実装せよ。

質問文とn個の文字列が入力として与えられる。質問文とn個の項目をかっこよく表示し、ユーザーが一つ項目を選ぶまで待つ。選んだら、選んだ項目を出力する。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/09/08(日) 23:47:28.87

お題: マイドキュメントのフォルダ階層構造を表示せよ。

**デフォルトの名無しさん** · 2019/09/08(日) 23:48:15.93

お題
与えられた数列の、隣り合う2要素の差のリストを作る関数等を作ってください。

入力数列例
3 1 4 1 5 9 2 6 5
出力数列例
-2 3 -3 4 4 -7 4 -1

余力があれば、ファイルなどから非常に長い数列を与えられても対処できる実装を試みてください

（http://gushwell.ldblog.jp/archives/52379839.html を一部改変）

**デフォルトの名無しさん** · 2019/09/08(日) 23:48:22.91

お題：北のミサイルをなんとかせよ

**デフォルトの名無しさん** · 2019/09/08(日) 23:51:10.96

どっかの国ハックして打ち込むしか

**デフォルトの名無しさん** · 2019/09/09(月) 00:57:49.46

>>373 Perl5

sub f {
　map{$_[$_ + 1] - $_[$_]} 0..$#_-1;
}
@a = qw{3 1 4 1 5 9 2 6 5};
@b = f @a;
print "@b\n";

実行結果
~ $ perl 15_373.pl
-2 3 -3 4 4 -7 4 -1

**デフォルトの名無しさん** · 2019/09/09(月) 07:20:37.09

>>373 Pharo/Squeak Smalltalk

| fn |
fn := [:xs | xs allButFirst - xs allButLast].

fn value: #(3 1 4 1 5 9 2 6 5). "=> #(-2 3 -3 4 4 -7 4 -1) "

**デフォルトの名無しさん** · 2019/09/09(月) 13:13:33.41

>>373 Ruby

p [3, 1, 4, 1, 5, 9, 2, 6, 5].each_cons(2).map{|e| -e.reduce(:-)}
# => [-2, 3, -3, 4, 4, -7, 4, -1]

**デフォルトの名無しさん** · 2019/09/09(月) 15:22:46.46

>>373 Pharo/Squeak Smalltalk

#(3 1 4 1 5 9 2 6 5) overlappingPairsCollect: [:x :y | y - x]

"=> #(-2 3 -3 4 4 -7 4 -1) "

**デフォルトの名無しさん** · 2019/09/09(月) 15:35:48.47

>>373
https://ideone.com/AoQVOB
C++。あってるかな？

**デフォルトの名無しさん** · 2019/09/09(月) 15:55:42.79

>>373
perl5
"3 1 4 1 5 9 2 6 5" =~ m/(\d) (?= \s? (\d) ) (?{push @diff, $2 -$1}) /xg;
print "@diff";
-2 3 -3 4 4 -7 4 -1

**デフォルトの名無しさん** · 2019/09/09(月) 17:47:36.36

>>373
Kotlin
https://paiza.io/projects/E_9ZAZNclHjS7_qn4WPBbg

ファイルというか標準入力から入力する事しかできない。

**デフォルトの名無しさん** · 2019/09/09(月) 18:55:29.45

>>373
ファイルからの読み込み派が居ない件。。。

Haskell

main = readFile "count.txt" >>= return.read >>= \lst -> print $ zipWith (-) (tail lst) lst
― ファイルから読まない場合は
― main = print $ zipWith (-) (tail lst) lst where lst = [3,1,4,1,5,9,2,6,5]

test.txt
[3,1,4,1,5,9,2,6,5]

out:
[-2,3,-3,4,4,-7,4,-1]

**デフォルトの名無しさん** · 2019/09/09(月) 21:23:29.01

>>373 octave
https://ideone.com/SV1flm

>>373 ruby
https://ideone.com/KZ9YO3

>>373 ocaml
https://ideone.com/aiOLiG

**デフォルトの名無しさん** · 2019/09/10(火) 00:22:25.45

>>219 Perl5

$s = 'AKDAK';
@a = ('^', split'', $s);

$o{$_} //= ++$i for @a;
%e = map{$a[$_] => $a[$_+1]} 0..$#a-1;
@p = sort{$o{$a} <=> $o{$b}} keys %o;

$d{$p[-1]} = $p[-1].'$';
push @p, '$';
$e{'$'} = '';

print "'$s'\n→\n";
for (@p) {
　$v = $e{$_};
　$r = $d{$v} // $v;
　print "$_: $r.\n";
}

実行結果
~ $ perl 15_219.pl
'AKDAK'
→
^: A.
A: K.
K: D$.
D: A.
$: .

**蟻人間** ◆T6xkBnTXz7B0 · 2019/09/10(火) 01:16:31.32

状態遷移図ってどんなときに役立つかな？

**デフォルトの名無しさん** · 2019/09/10(火) 01:20:32.52

ほらまぁ
状態遷移を表形式で定型的に定義した方が
言葉の羅列やグラフもどきポンチ絵などで表現するより明確な場面
さまざまなとき

**デフォルトの名無しさん** · 2019/09/10(火) 01:22:32.02

あいや、表じゃなくて図か。
そしたら、なんとなく依存関係などをややこしいグラフで表現して
ひもつけたとか賜って解釈したような気にさせるとき

自分で考えなよ

**デフォルトの名無しさん** · 2019/09/10(火) 02:40:29.88

>>373 javascript
[3,1,4,1,5,9,2,6,5]
.reduce((acc, n, i, arr) => [...acc, arr[i + 1] - n], [])
.slice(0, -1)

**デフォルトの名無しさん** · 2019/09/10(火) 08:11:29.51

>>373

>>379 のブロック内で処理するのが分かりやすかったので、Haskellもprint以外の処理をリスト内包表記で完結するようにした。

main = print [y - x | let lst@(_:ls) = [3,1,4,1,5,9,2,6,5], (x,y) <- zip lst ls]

文字数としては >>383 より増えるが、読みやすさ優先。

**デフォルトの名無しさん** · 2019/09/10(火) 17:53:27.20

Smalltalkはやりたいことだけ書けばいいのがいい

**デフォルトの名無しさん** · 2019/09/10(火) 18:46:19.95

分かったよじゃあoverlappingPairsCollect実装するよ…

const overlappingPairsCollect = (arr, cb) => {
let head = arr.shift();
const overlappingPairs = [];
for (const value of arr) {
overlappingPairs.push([head, value]);
head = value;
}
return overlappingPairs.map(([a, b]) => cb(a, b));
}

overlappingPairsCollect([3,1,4,1,5,9,2,6,5], (a, b) => b - a);
//=> [-2,3,-3,4,4,-7,4,-1]

**デフォルトの名無しさん** · 2019/09/10(火) 19:17:03.68

ああ… forの前にif (!head) return overlappingPairs; のearly return入れ忘れた…

**デフォルトの名無しさん** · 2019/09/10(火) 19:18:47.68

何言語？

**デフォルトの名無しさん** · 2019/09/10(火) 19:51:01.24

女子小学生のメスガキビッチ言語

**デフォルトの名無しさん** · 2019/09/10(火) 20:05:04.03

なるほどjavascriptね！

**デフォルトの名無しさん** · 2019/09/10(火) 20:19:20.42

https://ideone.com/d5aNNP
C++。なんか面白そうだったので、 >>392 をパクって移植してみた。
結構ジェネリックにかけたが、考える負荷高いね。

**デフォルトの名無しさん** · 2019/09/10(火) 20:31:26.62

>>397
コード追加。MakeHogeで困ることあるかなぁ？
あんまりユースケース見えてないから、不具合あったら教えて。

**デフォルトの名無しさん** · 2019/09/10(火) 21:25:03.39

>>392
>>377 も頼む！

**デフォルトの名無しさん** · 2019/09/10(火) 23:08:14.13

お題
スネークケースをアッパーキャメルケースに変換せよ
アンダースコアを単語の区切りとみなし、単語の先頭は大文字に、先頭以外は小文字に変換すること
また、単語を連結したときに数字が連続する場合はアンダースコアを残すこと

(例)
snake_case => SnakeCase

ODAI00_99_TEST => Odai00_99Test

x_0_x => X0X

UpperCamelCase => Uppercamelcase

**デフォルトの名無しさん** · 2019/09/10(火) 23:20:02.02

>>399
allButFirstとallButLastは簡単だけどjsは生き残ってるスクリプト言語にしては珍しく演算子使ったリスト同士の演算が用意されてないのでfnは>>377みたいにキレイに書けない。

const allButFirst = arr => arr.slice(1);
const allButLast = arr => arr.slice(0, -1);
const fn = arr => allButLast(arr).reduce((acc, v, i) => (acc[i] -= v, acc), allButFirst(arr));

fn([3,1,4,1,5,9,2,6,5]);
//=> [-2,3,-3,4,4,-7,4,-1]

**デフォルトの名無しさん** · 2019/09/11(水) 00:10:49.73

>>400 Perl5

use feature say;
for (<DATA>) {
　say map{ucfirst lc} /((?:\d_\d|[^_\s])+)/g;
}
__DATA__
snake_case
ODAI00_99_TEST
x_0_x
UpperCamelCase

実行結果
~ $ perl 15_400.pl
SnakeCase
Odai00_99Test
X0X
Uppercamelcase

**デフォルトの名無しさん** · 2019/09/11(水) 00:26:05.86

>>402 その例ではいいけど
Odai00_9_9Test
↓になっちまうな…
Odai00_99test

**デフォルトの名無しさん** · 2019/09/11(水) 00:31:52.77

>>400
https://ideone.com/6apRE9
C++。オレ、馬鹿になってる～。と苦しんでいた。

**デフォルトの名無しさん** · 2019/09/11(水) 00:44:08.30

>>397
C++むずかしすぎワロタｗｗｗｗｗ

**デフォルトの名無しさん** · 2019/09/11(水) 00:47:45.94

C++とJSとの違いは大雑把に言って、使う型を先に決めるか後で決めるか。という程度だと思う。

オレ、自分の幸福度を上げるために、80行位で問題とくようにしている。
というか、手癖でそれくらいになる。

**デフォルトの名無しさん** · 2019/09/11(水) 02:04:01.50

>>400 JavaScript
const fn = s => s.split`_`
.map(([first, ...rest]) => [first.toUpperCase(), rest.join``.toLowerCase()].join``)
.reduce((acc, word) => acc + (/[0-9]{2}/.test(acc[acc.length - 1] + word[0]) ? '_' : '') + word);

fn('snake_case');
//=> "SnakeCase"
fn('ODAI00_99_TEST');
//=> "Odai00_99Test"
fn('x_0_x');
//=> "X0X"
fn('UpperCamelCase');
//=> "Uppercamelcase"

**デフォルトの名無しさん** · 2019/09/11(水) 02:47:21.46

>>400 Squeak Smalltalk

| fn |

fn := [:str |
| words |
words := str asLowercase subStrings: '_'.
words first capitalized , (words overlappingPairsCollect: [:x :y |
((x last isDigit and: [y first isDigit]) ifTrue: '_' ifFalse: '') , y capitalized
]) join
].

fn value: 'snake_case'. "=> 'SnakeCase' "
fn value: 'ODAI00_99_TEST'. "=> 'Odai00_99Test' "
fn value: 'x_0_x'. "=> 'X0X' "
fn value: 'UpperCamelCase'. "=> 'Uppercamelcase' "
fn value: 'Odai00_9_9Test'. "=> 'Odai00_9_9test' "

**デフォルトの名無しさん** · 2019/09/11(水) 06:02:16.09

>400 Ruby

f = -> s {s.split(/(?<=\D)_|_(?=\D)/).map(&:capitalize).join}

%w[
　　 snake_case ODAI00_99_TEST x_0_x UpperCamelCase
].each{|s| puts '%s => %s' % [s, f[s]]}

# =>
snake_case => SnakeCase
ODAI00_99_TEST => Odai00_99Test
x_0_x => X0X
UpperCamelCase => Uppercamelcase

**デフォルトの名無しさん** · 2019/09/11(水) 06:06:45.97

>>409 補足

puts f["Odai00_9_9Test'] # => Odai00_9_9test

**デフォルトの名無しさん** · 2019/09/11(水) 12:54:52.45

>>400
perl5
https://paiza.io/projects/GgkMgqOqyzwwgbmu-Fn-Vg

**デフォルトの名無しさん** · 2019/09/11(水) 21:23:01.78

お題：リストの奇数位置にある要素のみを含むリストを作れ
ただし、先頭要素を1番目と数える
[1, 2, 3, 4, 5]
↓
[1, 3, 5]

rust
https://ideone.com/yXYsFB

octave
https://ideone.com/Go8xXL

**デフォルトの名無しさん** · 2019/09/11(水) 21:27:05.78

>>400

UpperCamelCaseはそのまま返すべきだろう。
(と言う事で、1文字目が大文字かつ全文に’_’が無い場合は、(恐らくUpperCamelCaseだろうと期待して)そのまま返すようにした)

Haskell

import Data.Char

main = mapM_ (print.f) ["snake_case","ODAI00_99_TEST","x_0_x","UpperCamelCase","notupperCamelCase"]

f [] = []
f lst@(x:_) | and [elem x ['A'..'Z'], (not.elem '_') lst] = lst
f (x:xs) = toUpper x:map toLower a ++ f (map toLower $ f' a b)
where
(a,b) = span (/= '_') xs

f' _ [] = []
f' [] (y:ys) = ys
f' xs lst@('_':y:ys) |and [(isDigit.last) xs, isDigit y] = lst
f' _ (_:ys) = ys

out:

"SnakeCase"
"Odai00_99Test"
"X0X"
"UpperCamelCase"
"Notuppercamelcase"

**デフォルトの名無しさん** · 2019/09/11(水) 23:29:56.75

>>400 Perl5、>>402-403 の修正、>>413 のように UpperCamelCase など_を含まない文字列はそのまま返す

use feature say;
for(<DATA>) {
@a = split/(?<!\d)_|_(?!\d)|\s/;
say 1 == @a ? @a : map{ucfirst lc} @a;
}
__DATA__
snake_case
ODAI00_99_TEST
x_0_x
UpperCamelCase
_local_vvar_
lavel_style_
OdAi00_9_9TeST

実行結果
~ $ perl 15_400_fix.pl
SnakeCase
Odai00_99Test
X0X
UpperCamelCase
LocalVvar
LavelStyle
Odai00_9_9Test

**デフォルトの名無しさん** · 2019/09/11(水) 23:34:45.60

>>414 ｺﾞﾒﾝ、実行結果貼り間違えた（下記のように最後のOdAi00_9_9TeSTはそのまま出る）

~ $ perl 15_400.pl
SnakeCase
Odai00_99Test
X0X
UpperCamelCase
LocalVvar
LavelStyle
OdAi00_9_9TeST

**デフォルトの名無しさん** · 2019/09/11(水) 23:43:35.81

>>412 Perl5

@a = a..z;
@x = map{$_-1} grep{$_&1} 1..@a;
@b = @a[@x];
print "[@b]\n";

実行結果
~ $ perl 15_412.pl
[a c e g i k m o q s u w y]

**デフォルトの名無しさん** · 2019/09/12(木) 00:37:35.06

>>412
common lisp
(loop for i in '(1 2 3 4 5) for j from 1 when (eql 1 (mod j 2)) collect i)
(1 3 5)

**デフォルトの名無しさん** · 2019/09/12(木) 02:26:36.91

>>400
Kotlin
https://paiza.io/projects/nJNQpKN19OL_9d7CTfXDrw

**デフォルトの名無しさん** · 2019/09/12(木) 09:48:36.52

>>412 Ruby

p [1, 2, 3, 4, 5].each_slice(2).map(&:first)

# => [1, 3, 5]

**デフォルトの名無しさん** · 2019/09/12(木) 11:37:50.98

>>412 JavaScript
[1, 2, 3, 4, 5].filter((val, idx) => (idx + 1) % 2)
//=> [1, 3, 5]

**デフォルトの名無しさん** · 2019/09/12(木) 18:13:32.79

>>412
Kotlin
https://paiza.io/projects/O23Txsw6XtcwKDgOCmT86w

**デフォルトの名無しさん** · 2019/09/12(木) 18:34:25.79

>>412
https://ideone.com/leynnQ
C++。こんな感じで。

**デフォルトの名無しさん** · 2019/09/12(木) 21:30:23.66

>>373 J
f =: 2 & (-~/\)

f 3 1 4 1 5 9 2 6 5
_2 3 _3 4 4 _7 4 _1

>>412 J
f =: _2 & ([/\)

f 1 2 3 4 5
1 3 5

**デフォルトの名無しさん** · 2019/09/12(木) 21:33:45.75

さすがJ
サッパリ分からん

**デフォルトの名無しさん** · 2019/09/13(金) 00:40:21.67

>>412
せめて、リストの中身は順番と関係無い内容の方が。。。
(例えば"abcde"とか)

Haskell

main = (print.oddlist) [1..5]

oddlist xs = [x | (x,y) <- zip xs [1..], odd y]

**デフォルトの名無しさん** · 2019/09/13(金) 02:03:47.81

お題：辞書型クリプタを実装せよ。
私の実装： https://ideone.com/cjGdvA

貴方はどう書く？

**デフォルトの名無しさん** · 2019/09/13(金) 13:13:33.48

>>412 Tcl
set x {1 2 3 4 5}
set r {}
foreach {a b} $x {set r [concat $r $a]}
puts $r

実行結果
1 3 5

**デフォルトの名無しさん** · 2019/09/13(金) 21:31:55.35

>>427
> foreach {a b}

こんなオサレな書き方で二個処理できるのすごい

**デフォルトの名無しさん** · 2019/09/13(金) 21:37:33.86

tcl/tkで「tk部分ははいいがtclがクソ」みたいなのよく見た気がするんだけど、あれどういうとこが根拠なん？

**デフォルトの名無しさん** · 2019/09/14(土) 04:14:12.84

お題: すべての人民は和平のために火急的に速やかに自己の復元を実現しなければならない。

**デフォルトの名無しさん** · 2019/09/14(土) 04:28:39.19

>>412 Io
a := list(1, 2, 3, 4, 5)
a select(i, v, i isEven) println

実行結果
list(1, 3, 5)

**デフォルトの名無しさん** · 2019/09/14(土) 07:49:29.90

>>419

>>420

スレ違いだし、関数型言語だけが再利用性が高いとは言わないけど、
仮にoddlistがリストに対して良く使われる処理なら

[1,2,3,4,5].oddlist()

とか使いたいよね？
確かRubyはそう言う基本クラスにメソッド追加出来たと思うけど(うろ覚え)、
それをライブラリにして公開したいとする。

そうなると名前の競合とか起こり得るので

import mylib

[1,2,3,4,5].mylib.oddlist()

としたいとか、ならないだろうか。

変数と関数は別が良いって思った。

(議論の流れになるなら、別スレに誘導してね)

**デフォルトの名無しさん** · 2019/09/14(土) 08:17:19.38

>>412 Python

print([ i for i in range(1,6,2) ])
# [1, 3, 5]

**デフォルトの名無しさん** · 2019/09/14(土) 08:24:26.09

>>429
スレチだが教えてやる
数字が文字列として扱われて実行時にパースされるから馬鹿みたいに遅いことだ