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

◆QZaw55cn4c · 2019/10/16(水) 20:10:11.38

>>789
どういうところが「頭がおかしい」と思ったのですか？

**デフォルトの名無しさん** · 2019/10/17(木) 01:44:31.12

>>790
周囲が迷惑している行為や的外れで頓珍漢な言動をした際にそれを指摘しても、分からないから具体的に言えという。普通の人からすれば明らかな場合であろうと。
そして具体的に説明しても、自分はそう感じないから理解しない、納得しないと言い、言動を改めない。

本人の中では論理的整合性がとれた言動なのかも知れないが、周囲からすれば会話ができない困った奴に見える。

**デフォルトの名無しさん** · 2019/10/17(木) 02:01:41.77

朝鮮人に特有な行為だね

**デフォルトの名無しさん** · 2019/10/17(木) 02:18:55.29

他人の迷惑考えずこんなの貼っちゃう奴だしな

848 ◆QZaw55cn4c sage 2019/07/20(土) 08:18:17.29 ID:jbjCUWIF
お題と回答
5 : 6 10 32 36 44
9 : 15 34 35 79

まんま>>791に該当するわ

**デフォルトの名無しさん** · 2019/10/17(木) 09:29:19.87

複素数の多価関数を何度説明しても理解してなかったし脳に欠陥があるのだろう

**デフォルトの名無しさん** · 2019/10/17(木) 12:35:29.92

多価関数を理解できなかったのかｗｗｗ
じゃあリーマン面も分からないだろうな
そんな状態で一丁前に「留数定理」とのたまうから頭おかしい

**デフォルトの名無しさん** · 2019/10/17(木) 16:53:38.74

>>744
Kotlin
>>766をほんのちょっと改造
https://paiza.io/projects/K_ZOTIieO38ysksk8P8-sw

◆QZaw55cn4c · 2019/10/17(木) 19:46:20.65

>>795
＞そんな状態で一丁前に「留数定理」とのたまう
多分、それは「留数定理は忘れた」という文脈以外ではいったことがないと思いますよ

>>794
「何度も」説明を受けた覚えはありませんよ、むしろ意図的に答えを隠されたような隔靴掻痒的なほのめかししかなかったと記憶しています

>>793
問題を明確に指摘された後は、その貼り付けは実施していないのですが

>>794
今はすべてを実数に限定した線形微分方程式ですらとても苦しんでいるので、複素解析／ｊ関数論とかは当分無理だと思います、関数論のいい教科書があれば教えてください

**デフォルトの名無しさん** · 2019/10/17(木) 20:10:25.04

>>797
あれだけ明瞭な説明を受けて理解できないどころかはぐらかされたと感じるならばお前は脳の病気だな

**デフォルトの名無しさん** · 2019/10/17(木) 22:10:55.40

５ｃｈなんて無駄にマウント取るやつばっかりだから、コテつけてごちゃごちゃ言っても時間の無駄だぞ
袋叩きにあうだけ

**デフォルトの名無しさん** · 2019/10/18(金) 01:24:53.30

自演擁護乙。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/10/18(金) 23:48:51.61

気を取り直していくぞ。

お題: 現在時刻のアナログ時計のSVG画像を出力せよ。丸い外枠と短針と長針だけでいいが、可能なら秒針と文字盤も表示せよ。

**デフォルトの名無しさん** · 2019/10/19(土) 02:49:07.69

暇な人向けのお題：なるべく公正な多数決システムを考案せよ。
サンプル：https://ideone.com/Ayr1Az

上記は多数決して、3人サンプルして、じゃんけんする。というプロセスで導き出される。

**デフォルトの名無しさん** · 2019/10/19(土) 18:44:38.13

暇な人向けのお題II！
9x9のセルが与えられる。そのセルは磁石である。
真空状態での磁気シミュレーションをして量子コンピュータに近似せよ。

一つの万能ではない方針。
1パス目で相互作用を足し込む。
2パス目で相互作用の蓄積を作用素数で割る。

ライフゲームがヒントになるかもしれない。

**デフォルトの名無しさん** · 2019/10/19(土) 18:45:19.24

>>803
なお、自分は物理学も数学も素人である。。。Orz

**デフォルトの名無しさん** · 2019/10/21(月) 08:37:49.94

お題
入力された正整数を漢数字表記にして出力せよ
10の何乗まで対応するかは任せる

514 -> 五百十四
131072 -> 十三万千七十二
90010 -> 九万十

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

>>805 python

%pip install kanjize
from kanjize import int2kanji, kanji2int
print(int2kanji(123456789))
# 一億二千三百四十五万六千七百八十九

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

>>806
そんなのあるのか…

**デフォルトの名無しさん** · 2019/10/21(月) 13:26:32.49

perlの時代には既に存在した

**デフォルトの名無しさん** · 2019/10/21(月) 13:31:36.37

じゃあunicodeにシュメル文字が収録されたので、それで。
フフフ、ライブラリなんてあるまい

**デフォルトの名無しさん** · 2019/10/21(月) 13:35:10.39

>>809 Python

%pip install sumerianize
from fumerianize import int2sumerian, sumerian2int
print(int2sumerian(123456789))
# ????????????????????????

**デフォルトの名無しさん** · 2019/10/21(月) 13:39:33.90

あんのかよワロタｗ

**デフォルトの名無しさん** · 2019/10/21(月) 13:45:48.07

逆も欲しいな
漢数字を入れるとアラビア数字に変換するプログラム

**デフォルトの名無しさん** · 2019/10/21(月) 13:49:33.49

表示できてなくて笑う

**デフォルトの名無しさん** · 2019/10/21(月) 13:50:52.74

>>805
それと同じお題を以前出した覚えがある。
まあいいか。スレ見に来てる人も変わってるだろうし。

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

>>813 表示できていないのは見る人がフォントを入れていないからだろ。　不思議でも何でもない。

**デフォルトの名無しさん** · 2019/10/21(月) 16:37:23.10

>>812
それと同じお題も過去にあったような。双方向で変換ってやつかな。

まだやったことない人なら頭の体操(またはボケ防止)にはなるからやってみると良いと思う。

**デフォルトの名無しさん** · 2019/10/21(月) 17:22:20.45

>>812
漢数字変換 - Perl表技集
http://www2u.biglobe.ne.jp/~MAS/perl/waza/kansuji.html

これですな

**デフォルトの名無しさん** · 2019/10/21(月) 20:27:05.91

実はcpanからお題を決めてるんじゃないかなというのがしばらく続いてたと思う

**デフォルトの名無しさん** · 2019/10/21(月) 22:35:38.51

ローマ数字との変換、は簡単か

**デフォルトの名無しさん** · 2019/10/21(月) 22:41:08.96

何回か出てる。

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

適当な整数を入力してそれが円周率の何桁目で出てくるか出力せよ。

何桁まで対応するかは任せる。

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

perl だと m/digit/p からの $^{prematch} とかだな

**デフォルトの名無しさん** · 2019/10/22(火) 12:07:39.33

>>821 Perl5、小数点以下10000桁まで一番最初に見つかった桁を出力

$d = 893; # 適当な整数
use Math::BigFloat try => 'GMP,Pari';
$pi = Math::BigFloat->bpi(10000);
#print "$pi\n";
$pi =~ s/\.//; # 小数点「.」を除去
$i = index $pi, $d;
print $i < 0 ? "無し\n" : "小数点以下 $i 桁目\n";

実行結果
~ $ perl 15_821.pl
小数点以下 999 桁目

**デフォルトの名無しさん** · 2019/10/22(火) 12:11:07.49

あきらかにNP問題だから解く気がしねえ

**デフォルトの名無しさん** · 2019/10/22(火) 12:40:06.09

じゃあNP問題だと証明しろよ

**デフォルトの名無しさん** · 2019/10/22(火) 13:54:00.39

>>823
一度にある桁まで求めておいてから検索するよりも、
ガウス=ルジャンドルのアルゴリズムまたはラマヌジャンの式を使うなどして
下の桁まで収束を進めながら検索してゆく方が面白かったかな

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

>>825
キチガイすぎて草

**デフォルトの名無しさん** · 2019/10/22(火) 19:15:47.41

ぬるぽ問題

**デフォルトの名無しさん** · 2019/10/22(火) 19:35:05.18

じゃあそれにしよう。

適当な文章を入力して縦横斜めにぬるぽの3文字が入っていればガッと出力する。
ひらがなだけにするかそれ以上の対応をするかは任せる。

**デフォルトの名無しさん** · 2019/10/22(火) 23:37:52.31

>>829 Python

%pip install nurupo
from nurupo import nurupofield
if nurupofield("ぬるぽ")
print("ｶﾞｯ")
# ｶﾞｯ

**デフォルトの名無しさん** · 2019/10/23(水) 00:32:58.65

pythonなんでも揃ってんな・・・

**デフォルトの名無しさん** · 2019/10/23(水) 20:25:56.13

お題：整数配列の奇数要素のみをソートした配列を返す処理を書いてください

入力例：[6, 5, 4, 3, 2, 1]
出力例：[6, 1, 4, 3, 2, 5]

**デフォルトの名無しさん** · 2019/10/23(水) 20:53:09.53

>>832 octave
https://ideone.com/W2Q4NP

**デフォルトの名無しさん** · 2019/10/23(水) 20:53:23.91

奇数だけ抜き出した配列作成→ソート→元の配列の奇数の位置にソートした配列の要素を入れてくだけで良さそう

**デフォルトの名無しさん** · 2019/10/23(水) 20:54:52.29

あ、ダメだこれｗ
失礼しました

**833** · 2019/10/23(水) 21:05:23.34

>>832 octave
https://ideone.com/F0JmMT

**デフォルトの名無しさん** · 2019/10/23(水) 22:37:14.26

>>832 Perl5

@s = (6, 5, 4, 3, 2, 1);
@ix = grep{$s[$_] & 1} keys @s;
@iy = sort{$s[$a] <=> $s[$b]} @ix;
@s[@ix] = @s[@iy];
use Data::Dump 'dump';
print dump @s;

実行結果
~ $ perl 15_832_sort_odd_elem.pl
(6, 1, 4, 3, 2, 5)

**デフォルトの名無しさん** · 2019/10/24(木) 08:28:31.82

>>832 J
f =: 3 : 0
a =. I. 2 | y
b =. /:~ a { y
b (a) } y
)

f 6 5 4 3 2 1
6 1 4 3 2 5

**デフォルトの名無しさん** · 2019/10/24(木) 09:51:33.40

>>832
p [6, 5, 4, 3, 2, 1].partition.with_index{|_, i| i.even?}.then{|e, o| e.zip(o.sort).flatten}
# => [6, 1, 4, 3, 2, 5]

**デフォルトの名無しさん** · 2019/10/24(木) 09:51:53.30

>>839 Ruby 2.6.0

**デフォルトの名無しさん** · 2019/10/24(木) 12:04:34.69

>>839
[6, 5, 3, 2, 1] とかだと結果が間違っている上、nilとか足されてひどいことになるyo？

p [6, 5, 3, 2, 1].partition.with_index{|_, i| i.even?}.then{|e, o| e.zip(o.sort).flatten}
# => [6, 2, 3, 5, 1, nil]

正しくは => [6, 1, 3, 2, 5]

**デフォルトの名無しさん** · 2019/10/24(木) 15:41:34.92

>>832
Kotlin
https://paiza.io/projects/RXWCx9-WsZvakBKGgIo1UA

やり方は >>834 に書かれている通り。

しかし、もっとスマートな方法はないものか？
ありそうだが思い浮かばない。

**デフォルトの名無しさん** · 2019/10/24(木) 16:54:57.81

>>842
配列コピーしない場合奇数が出たらその後の要素を見て一番小さい奇数と要素の交換でもどう？
配列のコピー不要や。

**デフォルトの名無しさん** · 2019/10/24(木) 21:24:20.41

>>832 ruby
https://ideone.com/EUWgwy

>>832 ocaml
https://ideone.com/6SktpO

**デフォルトの名無しさん** · 2019/10/24(木) 23:20:25.74

>>838
さすがJﾆｷ、さっぱりわからん…

**デフォルトの名無しさん** · 2019/10/25(金) 00:26:52.21

アプリ作成したいのですが、素人なのでどなたか相談に乗ってください。

飲み物が入ったコップを定期的に重量を量り、
そのデータを無線で受信してサーバーで記録し
プロットするアプリを作りたいです。

またRaspiなどのPCはなしで作りたいのですが
組み込みPC？を使わないとできませんか？

またこういったアプリに適した言語などありますでしょうか？

**デフォルトの名無しさん** · 2019/10/25(金) 00:32:12.57

プログラム部分はたいしたことがないとおもうのだが
装置、ハードのほうが大事だろ
そもそもプログラムもハード依存するかもしれないし
特に既成品なら

**デフォルトの名無しさん** · 2019/10/25(金) 00:48:27.50

ありがとうございます。
ハードウェアの知識が全く無いため困っています。
飼い猫のために水の量を管理してあげたいんです。

下記のような組み合わせで出来そうでしょうか？

ADコンバータ
KKHMF HX711モジュール秤量センサー 24位精度ADモジュール圧力センサーモジュール

重量センサー
uxcell 計量ロードセルアルミ合金材質 500g計量電子天秤有線計量センサー

**デフォルトの名無しさん** · 2019/10/25(金) 03:57:48.67

やり方わからないんだけど、カメラで撮影して映像解析して量が分かるのであればスマホやタブレット用のアプリでできそうだよね。
(PCに小さいカメラ付けても良いが)。

**デフォルトの名無しさん** · 2019/10/25(金) 04:08:18.02

>>848
適切なスレに移動した方がいいぞ

**デフォルトの名無しさん** · 2019/10/25(金) 09:43:45.15

センサーの話題などは、Linux 板のラズパイのスレで聞けば？

**デフォルトの名無しさん** · 2019/10/25(金) 09:56:31.28

>>848
適当なIoTの計り買えば解決
実装はCだろうな

**デフォルトの名無しさん** · 2019/10/25(金) 11:49:06.01

>>832
Ruby で、

input_ary = [ 6, 5, 4, 3, 2, 1 ]
odd_ary = [ ]; index_ary = [ ]

input_ary.each_with_index do |num, idx|
if num.odd?
odd_ary.push num
index_ary.push idx
end
end

odd_ary.sort! # ソート

# 同時に、複数の配列をループする
index_ary.zip( odd_ary ).each { |idx, num| input_ary[ idx ] = num }
p input_ary

**デフォルトの名無しさん** · 2019/10/25(金) 12:30:51.02

>> 849 , 850, 851, 852
情報ありがとうございます。

スレチだったみたいで申し訳ないです。
センサーありきなので、Raspiは使わないと思うのですが
板覗いてみます。

**デフォルトの名無しさん** · 2019/10/25(金) 14:59:52.83

>>832
https://ideone.com/FKifBY
C++。クイックソート書けないので謎のソートでお茶を濁す。

**デフォルトの名無しさん** · 2019/10/26(土) 01:38:30.03

お題: 端末上で(´・ω・`)を端から端まで移動し、往復させよ
ただし、端についたら(´・ω・`)は増幅し(´・ω・`)(´・ω・`)になる
同様に再び端についたら(´・ω・`)(´・ω・`)は増幅し(´・ω・`)(´・ω・`)(´・ω・`)になる
左右に移動できなくなる又ははみ出す場合は逆に(´・ω・`)を減らしていき、最終的に(´・ω・`)を消滅させよ

**デフォルトの名無しさん** · 2019/10/26(土) 06:24:17.44

お題: Unicode 1 文字を与えると East Asian Width に従った属性値を返す関数を作成し、その関数に対して任意の文字を与えてテストするプログラムを作れ。
返す属性値の F, H, W, Na, A, N は文字列でも良いし対応する数値でも良いし enum のような(またはCなら #define されている)名前でも良い。
East Asian Width の一覧は下記URLのテキストの内容を使用する。これを最初に読んで初期化するように作っても良いし、最初からプログラムに適した形式で埋め込まれていても良い。
http://www.unicode.org/Public/UCD/latest/ucd/EastAsianWidth.txt
参考: 東アジアの文字幅
https://ja.wikipedia.org/wiki/%E6%9D%B1%E3%82%A2%E3%82%B8%E3%82%A2%E3%81%AE%E6%96%87%E5%AD%97%E5%B9%85

**デフォルトの名無しさん** · 2019/10/26(土) 07:11:59.41

お題：>>832 に「偶数要素は2で割って降順ソート」という要件を追加してください
すでに回答済みの場合は最少限の変更でのご対応で腕（もしくは言語のポテンシャル）を見せてください

**デフォルトの名無しさん** · 2019/10/26(土) 07:27:04.95

>>858
入力例：[0, 9, 8, 4, 6, 5, 1, 2, 7, 3]
出力例：[4, 1, 3, 2, 1, 3, 5, 0, 7, 9]

**デフォルトの名無しさん** · 2019/10/26(土) 11:01:29.07

>>832 Pharo/Squeak Smalltalk

| fn |
fn := [:arr |
| sortedOdds |
sortedOdds := (arr select: #odd) sort readStream.
arr collect: [:x | x odd ifTrue: [sortedOdds next] ifFalse: [x]]
].

fn value: #(6 5 4 3 2 1) "=> #(6 1 4 3 2 5) "

>>835

| fn |
fn := [:arr |
| sortedOdds sortedHalfEvens |
sortedOdds := (arr select: #odd) sort readStream.
sortedHalfEvens := ((arr select: #even) sort reversed / 2) readStream.
arr collect: [:x | x odd ifTrue: [sortedOdds next] ifFalse: [sortedHalfEvens next]]
].

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

**デフォルトの名無しさん** · 2019/10/26(土) 11:03:35.88

>>860
×835 → ○>>858

**デフォルトの名無しさん** · 2019/10/26(土) 11:45:52.80

>>859 Perl5、最小限でか…

@s = (0, 9, 8, 4, 6, 5, 1, 2, 7, 3);
@ix = grep{$s[$_] & 1} keys @s;
@iy = sort{$s[$a] <=> $s[$b]} @ix;
@s[@ix] = @s[@iy];
@iz = grep{~$s[$_] & 1} keys @s;
@s[@iz] = map{$_ / 2} reverse sort{$a <=> $b} @s[@iz];
use Data::Dump 'dump';
print dump @s;

実行結果
~ $ perl 15_859.pl
(4, 1, 3, 2, 1, 3, 5, 0, 7, 9)

**デフォルトの名無しさん** · 2019/10/26(土) 12:12:03.02

>>832,858
@Mathematica

https://ideone.com/0UFN7o

**デフォルトの名無しさん** · 2019/10/26(土) 12:22:15.14

>>856
Porwershell。バージョンによってはプロンプト画面に直接貼り付けると$sの文字列が
化けるので、その場合はファイルに保存して実行。

$s = "('・ω・``)"
$w = $Host.UI.RawUI.WindowSize.Width - 1
$m = [Math]::Floor($w / 10)

foreach ($n in 1..$m + ($m - 1)..0) {
　　$d = $w - 10 * $n
　　foreach ($x in (($d..1), (1..$d))[$n % 2]) {
　　　　$l = "`r" + " " * $x + $s * $n + " " * ($d - $x)
　　　　Write-Host $l -NoNewline
　　　　if (!$n) {Write-Host; break}
　　　　Sleep -m 20
　　}
}

**デフォルトの名無しさん** · 2019/10/26(土) 13:49:47.32

Mathematica12

定義
f1[a_]:=SubsetMap[Sort,a,Position[a,_?OddQ,1]]
f2[a_]:=SubsetMap[ReverseSort[#]/2&,f1[a],Position[a,_?EvenQ,1]]

実行結果
f1[{6,5,4,3,2,1}]
{6,1,4,3,2,5}

f2[{0,9,8,4,6,5,1,2,7,3}]
{4,1,3,2,1,3,5,0,7,9}

**デフォルトの名無しさん** · 2019/10/26(土) 17:08:24.41

>>832, >>858 Ruby

f = -> ary {
　　e, o = ary.partition(&:even?).map(&:sort)
　　ary.map{|v| v.even? ? v : o.shift}
}
g = -> ary {
　　e, o = ary.partition(&:even?).map(&:sort)
　　ary.map{|v| v.even? ? e.pop >> 1 : o.shift}
}

p f[[6, 5, 4, 3, 2, 1]] # => [6, 1, 4, 3, 2, 5]
p g[[0, 9, 8, 4, 6, 5, 1, 2, 7, 3]] # => [4, 1, 3, 2, 1, 3, 5, 0, 7, 9]

**デフォルトの名無しさん** · 2019/10/26(土) 20:25:43.01

>>858 c
https://ideone.com/g7IC5E

**デフォルトの名無しさん** · 2019/10/26(土) 22:02:49.24

>>856
https://ideone.com/lw7uIj
C++。なんか表示位置ずれるなーと思ったら、「()」これ半角じゃねーか。
そのせいで、プログラムが持ってる長さと表示の長さが合わなかった。

しかし、汚くなった無し、思ったより時間がかかってしまった。

**デフォルトの名無しさん** · 2019/10/26(土) 22:16:30.14

>>858 octave
https://ideone.com/d5NTlm

>>858 ruby
https://ideone.com/R93NWY

>>858 ocaml
https://ideone.com/RTlP5X

**デフォルトの名無しさん** · 2019/10/26(土) 22:21:47.70

>>858
https://ideone.com/7vsaej
C++。前のヤツに関数足した。
オーダーが倍になったが改修だとこんなもんだ。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/10/26(土) 22:38:02.04

お題: あるフォルダ(例えばC:\Windows)についてフォルダの階層構造を木構造(tree)を表すテキストとして出力せよ。

インデントでもいい。罫線を使ってもいい。

**デフォルトの名無しさん** · 2019/10/26(土) 22:38:38.76

tree

**デフォルトの名無しさん** · 2019/10/26(土) 22:46:14.97

完

**蟻人間** ◆T6xkBnTXz7B0 · 2019/10/26(土) 23:33:25.57

熟

**デフォルトの名無しさん** · 2019/10/26(土) 23:36:46.58

ト

**デフォルトの名無しさん** · 2019/10/26(土) 23:56:14.95

マ

**デフォルトの名無しさん** · 2019/10/27(日) 01:42:02.89

ホ

**デフォルトの名無しさん** · 2019/10/27(日) 01:48:49.90

ー

**デフォルトの名無しさん** · 2019/10/27(日) 02:14:55.86

ク

**デフォルトの名無しさん** · 2019/10/27(日) 12:00:30.73

>>858-859
PowerShell

$a = 0, 9, 8, 4, 6, 5, 1, 2, 7, 3
$b = 0, 0
$i = 0, 0
$odd = {$_ % 2}
$b[0] = @($a |? {!(&$odd)} |% {$_ / 2} | sort -descending)
$b[1] = @($a |? {&$odd} | sort)
$c = $a |% {$b[(&$odd)][$i[(&$odd)]++]}

"入力: [" + ($a -join ", ") + "]"
"出力: [" + ($c -join ", ") + "]"

**デフォルトの名無しさん** · 2019/10/27(日) 21:46:52.77

>>858 c
https://ideone.com/SwF6Zp

**デフォルトの名無しさん** · 2019/10/28(月) 14:33:15.95

>>858-859
Haxe で、

https://try.haxe.org/#Bb813

**デフォルトの名無しさん** · 2019/10/28(月) 21:54:57.80

Common Lisp
>>832
(let* ((l '(6 5 4 3 2 1))
　　　 (odds (sort (remove-if-not #'oddp l) #'<)))
　(mapcar (lambda (x) (if (oddp x) (pop odds) x)) l))

>>858-859
(let* ((l '(0 9 8 4 6 5 1 2 7 3))
　　　 (odds (sort (remove-if-not #'oddp l) #'<))
　　　 (evens (sort (remove-if-not #'evenp l) #'>)))
　(mapcar (lambda (x) (if (oddp x) (pop odds) (/ (pop evens) 2))) l))

**蟻人間** ◆T6xkBnTXz7B0 · 2019/10/28(月) 22:20:53.11

Linuxにこんなコマンドあんのかよお？

https://www.adminweb.jp/command/file/index2.html

**デフォルトの名無しさん** · 2019/10/28(月) 22:33:53.27

>>871
Powershell。標準のtreeコマンドと違い、システム/隠しフォルダも表示する。
バージョンによってはプロンプト画面に貼り付けると罫線文字が消えてしまうので、
その場合はps1ファイルに保存して実行するか、PowerShell ISEに貼り付ける。

function MyTree($path, $branch)
{
　if (!$branch) {$path}
　$dir = @(ls -Force -PSPath $path -EV e -EA SilentlyContinue |? {$_.PSIsContainer})
　if ($e) {$branch + "::アクセス不可"}
　if (!$dir) {return}
　0..($last = $dir.Count - 1) |% {
　　$branch + ("├─", "└─")[$_ -eq $last] + $dir[$_].Name
　　MyTree $dir[$_].FullName ($branch + ("│　", "　　")[$_ -eq $last])
　}
}

MyTree "C:\Windows"

**デフォルトの名無しさん** · 2019/10/28(月) 23:08:40.85

>>884
100年前からあるよ

**デフォルトの名無しさん** · 2019/10/28(月) 23:13:15.22

色わけもされているのが良くあり、たいへん見やすい

**蟻人間** ◆T6xkBnTXz7B0 · 2019/10/29(火) 01:01:17.43

お題: 平面(0, 0)-(100,100)上に点を100個、配置する。k-means法を用いて点の集合を3つのグループに分け、それらを図示せよ。

**デフォルトの名無しさん** · 2019/10/29(火) 08:42:30.06

>>858-859
Ruby で、

input_ary = [ 0, 9, 8, 4, 6, 5, 1, 2, 7, 3 ]

even_ary, odd_ary = input_ary.partition( &:even? ) # 偶数・奇数配列

odd_ary.sort! # 奇数要素をソート

# 偶数要素は、2で割って降順ソート
even_ary.map! { |num| num / 2 }
even_ary.sort!
even_ary.reverse!

p results = input_ary.map { |num| num.even? ? even_ary.shift : odd_ary.shift } # 偶数・奇数