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

**デフォルトの名無しさん** · 2019/02/03(日) 11:21:53.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/

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

※前スレ
https://mevius.2ch.net/test/read.cgi/tech/1538096947/

**デフォルトの名無しさん** · 2019/05/10(金) 17:50:33.37

>>875,884 Squeak Smalltalk

| chain |

chain := [:n |
Array streamContents: [:ss |
ss nextPut: n.
[n > 1] whileTrue: [ss nextPut: (n := n even ifTrue: [n / 2] ifFalse: [n * 3 + 1])]
]
].

chain value: 10. "=> #(10 5 16 8 4 2 1) "

(1 to: 100) count: [:n | (chain value: n) size >= 15] "=> 71 "

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

>>875
Perl のワンライナー。

perl -ne '$n=$_;chomp($n);@d=($n);while($n!=1){$n=$n&1?($n*3+1):($n/2);push(@d,$n)}print "[".join(", ", @d)."]\n"'

実行する場合はbash等のシェルから行う(シングルクォートの中がそのままperlに引き渡されさえすれば他のシェルでも良い)。

標準入力から1行1データで入力して結果を出力するようにした。

**デフォルトの名無しさん** · 2019/05/10(金) 20:29:31.76

>>890
27のとき112個
31のとき107個
10億くらいまで回したけど、これら以外なくね？

数列の初期値と長さは、初期値が小さいうちは同じくらいだが、初期値を大きくしても数列の長さはさほど伸びない。
ttps://imgur.com/wm0kCEQ
グラフはxが大きくなるほど飛ばす間隔も大きくしてあるからあまり正確ではない。

**デフォルトの名無しさん** · 2019/05/10(金) 21:48:47.85

お題
https://www.youtube.com/watch?v=2JNgkMMaNlw

このようなルートの数を数え上げるプログラムを作る
N=5位まででよい

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

ZDDやるなら出来合いのもの使って終わりじゃねえの？

https://github.com/junkawahara/frontier-basic
https://hs-nazuna.github.io/tdzdd-manual/intro.html

**デフォルトの名無しさん** · 2019/05/11(土) 11:54:01.37

>>875 Perl5

sub chain {
　my $i = shift;
　$i == 1 ? $i : ($i, ($i & 1 ? chain(3*$i + 1) : chain($i / 2)))
}

for (qw{10 1 30}) {
　@a = chain $_;
　print "[@a]\n";
}

実行
~ $ perl 13_875_collatz.pl
[10 5 16 8 4 2 1]
[1]
[30 15 46 23 70 35 106 53 160 80 40 20 10 5 16 8 4 2 1]

**デフォルトの名無しさん** · 2019/05/11(土) 12:16:05.54

>>877 Perl5

@in = map{[split'']} map{split '\n'} <<EOF;
a b c

d
EOF
for $j (0..$#in) {
　for $i (0..$#{$in[$j]}) {
　　$c = $in[$j][$i];
　　print "[$c,$i,$j]\n" if $c =~ /\w/;
　}
}

実行
~ $ perl 13_877.pl
[a,0,0]
[b,2,0]
[c,4,0]
[d,0,2]

**デフォルトの名無しさん** · 2019/05/11(土) 13:06:48.39

>>875
Ruby で

module Collatz
def self.next_number( num )
if num.even? # 偶数
num / 2
else # 奇数
num * 3 + 1
end
end

def self.chain( num )
@@results = [ ]
tmp = num

while true
@@results.push tmp
break if tmp == 1

tmp = next_number( tmp )
end
@@results
end
end

[ 1, 27 ].each do | num |
p Collatz.chain( num )
end

**デフォルトの名無しさん** · 2019/05/11(土) 18:55:11.91

>>875 c
https://ideone.com/jwtvbF

>>875 ruby
https://ideone.com/MIKeM7

>>875 ocaml
https://ideone.com/CEassZ

**デフォルトの名無しさん** · 2019/05/11(土) 20:54:08.94

ideone.comはMATLABに対応してないのね。
書いてみた後で気がついた。

**デフォルトの名無しさん** · 2019/05/11(土) 23:44:29.57

>>875 octave
https://ideone.com/eNqIim

**デフォルトの名無しさん** · 2019/05/12(日) 02:01:10.46

>>875
Java
https://paiza.io/projects/VSqA-UZgWeXB-YzVTnrQRg

takeUntilが欲しいなー

**デフォルトの名無しさん** · 2019/05/12(日) 06:46:28.87

>>875
コラッツ樹で作れば出力を減らせる。

**デフォルトの名無しさん** · 2019/05/14(火) 02:59:08.35

>>877
Kotlin
https://paiza.io/projects/Aab0mA1WSwXHnHL2049hCA

for や while ループ使わずに forEachIndexed で入れ子にしてみました。

**デフォルトの名無しさん** · 2019/05/14(火) 09:26:15.81

>>877
Ruby で

text = <<"EOT"
a b c

d
EOT

re = /[^ ]+/ # 空白以外

text.each_line.with_index do | line, idx | # 1行ずつ処理する
line.strip! # trim
# $~.begin は、マッチした先頭文字の位置
line.scan( re ) { puts "[" + [ $~.to_s, $~.begin(0), idx ].join( ", " ) + "]" }
end

**デフォルトの名無しさん** · 2019/05/14(火) 10:07:03.30

>>886 をスッキリ修正してみた
改行コード指定をやめ、for loop のカウンタを利用

>>877 の解

st = '''a b c

d
'''
for line,l in enumerate(st.splitlines()) :
　for col,c in enumerate(l):
　　if c != ' ' : print('['+c, col,str(line)+']',sep=',')

**デフォルトの名無しさん** · 2019/05/14(火) 14:12:15.49

>>905
空白以外は\Sでマッチするぞ

**デフォルトの名無しさん** · 2019/05/14(火) 23:52:44.04

>>877 Squeak Smalltalk

| fn |

fn := [:str |
((str lines collectWithIndex: [:line :lIdx |
(line reject: #isSeparator) asArray
collect: [:chr | {chr. (line indexOf: chr) - 1. lIdx - 1}]]
) concatenation select: #notEmpty) asStringWithCr
].

fn value: 'a b c

d'

"=>
'#($a 0 0)
#($b 2 0)
#($c 4 0)
#($d 0 2)' "

**デフォルトの名無しさん** · 2019/05/15(水) 01:06:44.65

>>908 smalltalk って全く知らないけど、最後が出力のつもり？
だったらお題の出力フォーマットと似ても似つかないじゃん。

**デフォルトの名無しさん** · 2019/05/15(水) 03:57:52.07

いや似てる

**デフォルトの名無しさん** · 2019/05/15(水) 04:50:48.17

>>877 Squeak/Pharo Smalltalk
出力はともかく同行に同文字があるとダメだった^^;ので>>908 差し替え

| fn |

fn := [:str |
((str lines collectWithIndex: [:line :lIdx |
(line asArray collectWithIndex: [:chr :cIdx | {chr. cIdx - 1. lIdx - 1}]
) reject: [:each | each first isSeparator]]
) concatenation
select: #notEmpty thenCollect: [:each | '[{1}, {2}, {3}]' format: each]) asStringWithCr
].

fn value: 'a b c

d'

"=>
[a, 0, 0]
[b, 2, 0]
[c, 4, 0]
[d, 0, 2] "

**905** · 2019/05/15(水) 09:57:59.71

>>907
re = /[^ ]+/
空白以外だから、上のようにしたけど、空白"類"以外なら、\S+ でよい

問題の意図がどちらなのか、よく分からない

**デフォルトの名無しさん** · 2019/05/15(水) 23:43:58.92

>>877 c
https://ideone.com/tIcQPK

>>877 ruby
https://ideone.com/qMREyy

>>877 ocaml
https://ideone.com/uaNmRF

>>877 octave
https://ideone.com/psnXl5

**デフォルトの名無しさん** · 2019/05/16(木) 01:50:16.53

>>913
C以外は助長だな

**デフォルトの名無しさん** · 2019/05/16(木) 03:57:55.40

>>914
具体的にはどの処理のどの部分を冗長に感じられたのでしょうか？
たとえばRubyの回答がどう冗長か（あるいはどう書けば良いか）教えてください！

**デフォルトの名無しさん** · 2019/05/16(木) 08:25:20.49

>>913 故意にpython 外しはずるい。
>>877 python
https://ideone.com/yvFuOl

printフォーマットは、コメントにしたpython3.6のf文字列の方がシンプルだが、ideone は3.5しかないのでformat文にした。

**デフォルトの名無しさん** · 2019/05/16(木) 10:18:52.91

>>877
Go
https://ideone.com/mJOisR

コンパクトにならんね

**デフォルトの名無しさん** · 2019/05/16(木) 14:34:08.16

>>888
Go
https://ideone.com/x2iyka

**デフォルトの名無しさん** · 2019/05/16(木) 19:26:40.27

>>877
C++
https://ideone.com/cbDkCt

**デフォルトの名無しさん** · 2019/05/16(木) 20:28:13.91

お題
整数の数列が与えられるので、各値の大小関係を変えないように値をなるべく小さくせよ
ただし1番小さい要素は1にすること
入力
-6 3 9 5 3 -7
出力
2 3 5 4 3 1

**デフォルトの名無しさん** · 2019/05/16(木) 21:00:21.83

>>920
c++
https://ideone.com/zEwKOk

◆QZaw55cn4c · 2019/05/16(木) 21:47:12.78

>>920
＞値をなるべく小さくせよ
絶対値を小さく、という意味ですか？

**デフォルトの名無しさん** · 2019/05/16(木) 22:59:47.34

**913** · 2019/05/16(木) 23:00:52.84

>>877 ocaml
https://ideone.com/waZZh7
・自分に正直になってrefとforループで書いた

>>914
じょ、助長…

>>916
外しと言うより、たんに不勉強
python書けないんよね（´・ω・｀）

**デフォルトの名無しさん** · 2019/05/16(木) 23:34:17.56

>>923 Perl5

@a = qw{-6 3 9 5 3 -7};
$h{$_}=1 for @a;
%o = map{$_=>++$i} sort{$a<=>$b} keys %h;
@b = map{$o{$_}} @a;
print "@a => @b\n";

実行
~ $ perl 13_920.pl
-6 3 9 5 3 -7 => 2 3 5 4 3 1

**デフォルトの名無しさん** · 2019/05/16(木) 23:42:11.94

>>925
アンカーしくった、>>920 宛だった…orz

**デフォルトの名無しさん** · 2019/05/16(木) 23:44:54.09

>>920 octave
https://ideone.com/f9S91N

**デフォルトの名無しさん** · 2019/05/17(金) 00:26:31.35

>>888 Pharo/Squeak Smalltalk

| fn |

fn := [:arr |
String streamContents: [:ss |
| cIdx lIdx |
cIdx := lIdx := 0.
arr do: [:spec |
spec third > lIdx ifTrue: [
ss nextPutAll: (String new: spec third - lIdx withAll: Character cr).
lIdx := spec third.
cIdx := 0
].
ss nextPutAll: (String new: spec second - cIdx withAll: Character space).
ss nextPutAll: spec first.
cIdx := spec second + 1.
]
]
].

fn value: #(
(a 0 0)
(b 2 0)
(c 4 0)
(d 0 2)).

"=>
a b c

d "

**デフォルトの名無しさん** · 2019/05/17(金) 00:35:47.85

>>927
重複除去でソート後のインデックスを返す関数？
チート過ぎてわろたｗ

**デフォルトの名無しさん** · 2019/05/17(金) 00:55:59.72

最近jﾆｷ来ないな

**デフォルトの名無しさん** · 2019/05/17(金) 01:23:24.98

>>920
Kotlin
https://paiza.io/projects/NMOKqrUnEfwIbLSRmrMMmQ

**デフォルトの名無しさん** · 2019/05/17(金) 07:54:47.22

>>888
s = '''\
[a, 0, 0]
[b, 2, 0]
[c, 4, 0]
[d, 0, 2]
'''

from parse import * #pip install

col2 = 0 ; line2 = 0
for l in s.splitlines():
　col = col2 ; line = line2
　r=parse('[{},{},{}]',l)
　c= r[0]
　col2 = int(r[1]) ; line2 = int(r[2])
　{print() for _ in range(line2-line) }
　{print(' ',end='') for _ in range(col2-col)}
　print(c, end='')
　col2 += 1
print()

'''#出力
a b c

d
'''

**デフォルトの名無しさん** · 2019/05/17(金) 08:32:11.25

>>932 parse に型指定追加
>>888 Python
s = '''\
[a, 0, 0]
[b, 2, 0]
[c, 4, 0]
[d, 0, 2]
'''

from parse import * #pip install

col2 = 0 ; line2 = 0
for l in s.splitlines():
　col = col2 ; line = line2
　(c,col2,line2) = parse('[{},{:d},{:d}]',l)
　{print() for _ in range(line2-line) }
　{print(' ',end='') for _ in range(col2-col)}
　print(c, end='')
　col2 += 1
print()

'''#出力
a b c

d
'''

**デフォルトの名無しさん** · 2019/05/17(金) 12:14:50.20

>>920
は、ランク付けの問題だろ

入力データ
-6 3 9 5 3 -7
出力・ランク
2 3 5 4 3 1

入力データの最も小さい数字を、ランク1 にして、
数字が大きくなるほど、ランクも大きくしていく

同値の場合は、同じランクにして、次のランクも間隔を空けない。
ランク3 が2つあっても、次は、ランク4

つまり、ランクが欠けることはない！

**デフォルトの名無しさん** · 2019/05/17(金) 12:23:14.18

>>934
うるせぇ死ね

**デフォルトの名無しさん** · 2019/05/17(金) 12:39:09.53

難しく書いてたけど結局これだけなのか
問題文をわざと複雑に見せかける現代文読解と同じ仕組みじゃないか

**デフォルトの名無しさん** · 2019/05/17(金) 12:49:18.63

プログラム作る前に気づいたので>>931のリンク先のブログラムのタイトルは密かに「順位」にしといたw

**デフォルトの名無しさん** · 2019/05/17(金) 12:50:56.11

>>936
わざと難しく見せかけているというより、たんに説明が下手なだけだと思う

**デフォルトの名無しさん** · 2019/05/17(金) 13:23:46.56

別に難しくない件

**デフォルトの名無しさん** · 2019/05/17(金) 13:29:01.98

そうですね
難易度は主観ですね
なら短さ長さを比べるとこうなります

・各値の大小関係を変えないように値をなるべく小さくせよ
・ランク付けせよ

もしかしたらこれが要するにただのランク付けだと分かるまで何人が挑戦するかを試してみる社会調査だったのかもしれません

**デフォルトの名無しさん** · 2019/05/17(金) 13:36:08.80

>ランク付けだと分かるまで何人が挑戦するかを試してみる

まさにそうじゃないの？

**デフォルトの名無しさん** · 2019/05/17(金) 13:44:50.72

>>920 J
f =: >: @ (i.~ /:~ @ ~.)

f _6 3 9 5 3 _7
2 3 5 4 3 1

**デフォルトの名無しさん** · 2019/05/17(金) 14:08:19.69

>>940
アスペ

**デフォルトの名無しさん** · 2019/05/17(金) 14:08:53.72

問題文を添削しちゃう皆さん

**デフォルトの名無しさん** · 2019/05/17(金) 14:20:43.10

>>922

**デフォルトの名無しさん** · 2019/05/17(金) 15:06:17.59

さすがにいちゃもん付け過ぎだろ
元の問題文読めば普通はわかるだろ

**デフォルトの名無しさん** · 2019/05/17(金) 15:51:11.97

問題：　おっぱいをなるべく小さくせよ。

**デフォルトの名無しさん** · 2019/05/17(金) 16:00:34.70

>>947
（・）（・）
↓
(･)(･)

**デフォルトの名無しさん** · 2019/05/17(金) 16:18:22.99

お題：自然数を隙間なく自分自身以外の数に対応させよ。

**デフォルトの名無しさん** · 2019/05/17(金) 16:46:21.83

>>949 先生、対応させると言う日本語がわかりません。
日本人には難しいです。

**デフォルトの名無しさん** · 2019/05/17(金) 17:04:52.99

>>949
君が何を言っているのかわからない。

**デフォルトの名無しさん** · 2019/05/17(金) 17:24:51.97

>>949
パッ見で分からん

**デフォルトの名無しさん** · 2019/05/17(金) 18:07:07.73

偶数なら1引く
奇数なら1足すとかでいいんじゃないの

**デフォルトの名無しさん** · 2019/05/17(金) 18:39:31.46

>>953 良いんじゃないのじゃなくて、他の人が理解できる言葉に翻訳してよ。
これじゃ小学校の国語で平均点以下だろ。

日本語が不自由ならプログラム例を示せば良い。変な言語はダメだけど、C系の素直な言語なら万国共通

**デフォルトの名無しさん** · 2019/05/17(金) 19:30:38.86

要はf: N -> N の∀n∈N f(n) ≠ n かつ全単射な写像を求めろってことでしょ

**デフォルトの名無しさん** · 2019/05/17(金) 19:35:23.29

あ、単射じゃなくてもいいか

**デフォルトの名無しさん** · 2019/05/17(金) 19:40:06.71

>>955 あのさ、それで人に通じると思ってるの？
そんな仕様書を書いて誰がコーディングするんだよ。

日本語に翻訳して明後日出直してこい。

言語能力にかけてるやつは、自分の頭の中が周りの人からスケスケに見えてると言う妄想を持ってる。
狭い世界で通用しても社会では通用しない。

**デフォルトの名無しさん** · 2019/05/17(金) 19:47:34.60

ここまで何人もの人がわからんと言ってるのは、その仕様を出した人間の素質が失格という事だろ。

それを何で庇うんだ？庇う理由を説明してみろよ。ここがバカばかりと思うならバカに解るように説明しろよな。

バカにわからせなければ、PLは務まらないよ。
と言うか、仕事は一般人としてるのに何をトチ狂ってるんだ？かなり精神を疑うな。

**デフォルトの名無しさん** · 2019/05/17(金) 19:50:16.70

教養のないやつに限ってブチ切れる

**デフォルトの名無しさん** · 2019/05/17(金) 20:11:05.80

>>947
桃白白改めミスターポポ改めピラフ改めピッコロさん、くだらない出題はやめてください

**デフォルトの名無しさん** · 2019/05/17(金) 20:11:56.63

>>959 で、どんな問題なんだ？プログラミングできる仕様として出してくれよ。

◆QZaw55cn4c · 2019/05/17(金) 20:21:17.94

>>956
単射でないとなると、n に対して n % 10 を対応付けるとかもありになりますね…

>>957
全射、単射、全単射とかは普通に使う単語ですよ、知らないのなら、これらの術語を含む数学の本…代数ですかね？解析ですかね？よくわからないや、を一冊読んでみるのがいいですね

**デフォルトの名無しさん** · 2019/05/17(金) 20:46:06.10

>>961
出題者に言えよ

>>962
％じゃ全射にも単射にもならんぞ
上で誰かが言ってた遇奇を入れ替えたりだとか
f(n) = n - 1, f(0) = 0以外の任意の値
とかなんでもありだね。つまらんけど

**デフォルトの名無しさん** · 2019/05/17(金) 20:48:13.95

顔射は普通に使う単語ですか？

◆QZaw55cn4c · 2019/05/17(金) 20:51:49.11

>>963
＞％じゃ全射にも単射にもならんぞ
そうですね、じゃ、割り算の商の整数部分「/」とかはどうでしょう

**デフォルトの名無しさん** · 2019/05/17(金) 21:06:32.38

>>964
はい。

**デフォルトの名無しさん** · 2019/05/17(金) 21:09:38.99

>>965
そりゃなんでもありよ
その場合は0の時だけ別の値を定義すれば良し

**デフォルトの名無しさん** · 2019/05/17(金) 21:30:53.57

920だが、ランク付けだと解が236531と解釈される可能性が有ったので避けた
もっと簡単な書き方があるはそう思う、座圧+1とかでも伝わるだろうし……

**デフォルトの名無しさん** · 2019/05/17(金) 22:36:31.21

数値のリストを入力し、値の小さい順に1から順位を付けて、
順位のリストを出力する。同じ値は同じ順位とする

**デフォルトの名無しさん** · 2019/05/17(金) 22:47:54.41

ほんとそれ
ピラフ改めピッコロはさっさと自害しろ

**デフォルトの名無しさん** · 2019/05/17(金) 23:20:58.53

>>949
やっぱりどういう入出力の具体例になるのか分からない
どういうことなんだよ

**デフォルトの名無しさん** · 2019/05/17(金) 23:47:24.37

>>971
あくまで俺の推測だが
一例として、自分自身の数が3のとき自然数から3を除去して
(1) 1, 2, 3, 4, 5, 6, ...
↓
(2) 1, 2, NULL, 4, 5, 6, ...
NULLになった部分をなくすために4以降を左へシフトする
(3) 1, 2, 4, 5, 6, 7, ...
こんな感じで(1)の入力を(3)のような出力にする関数じゃないか?

ただお題の条件としてはもっとゆるくて、入力はオーバーフローしない範囲の自然数、出力は「自分自身の数」を含まない自然数になれば何でもよくて、
定数関数でもハッシュ関数でもいいはず。
ただし、ある入力に対して必ず決まった値にならなければならず、同じ入力で呼び出すたびに出力が違うのはダメ。

**デフォルトの名無しさん** · 2019/05/18(土) 00:15:42.42

>>972 何をアホな事を言ってるんだ？そんなの小学生に数を数えなさいと言ってるのと等しいぞ。

それのどこがプログラミングのお題なんだ？
バカじゃないのか？

**デフォルトの名無しさん** · 2019/05/18(土) 01:03:14.81

>>942
乙、見事。

**デフォルトの名無しさん** · 2019/05/18(土) 01:57:48.06

>>920
C#
https://paiza.io/projects/OXVNCyMqgCySX7dUhwYh5Q

**デフォルトの名無しさん** · 2019/05/18(土) 02:15:29.87

>>920
Java
https://paiza.io/projects/VRVZT8GnP7oLaOjx4B8LtQ?language=java

**デフォルトの名無しさん** · 2019/05/18(土) 07:46:37.95

>>920 Python

ol = [-6, 3, 9, 5, 3, -7]
print([ sorted(set(ol)).index(x)+1 for x in ol ] )

# [2, 3, 5, 4, 3, 1]

**デフォルトの名無しさん** · 2019/05/18(土) 10:52:55.70

>>971
1. すべての自然数nに対してf(n)≠n
2. 自然数m,nがm≠nを満たすときf(m)≠f(n)
を満たすような関数f(n)を作れってこと

例えば
1. 入力が1のとき出力は1以外
2. 入力が1のときと2のときで出力が同じになってはダメ

**デフォルトの名無しさん** · 2019/05/18(土) 11:06:29.35

>>978
2はいらんやろ
適当なコト抜かすなごかすぞぼけ

**デフォルトの名無しさん** · 2019/05/18(土) 11:10:21.66

単射である必要はない。全射でさえあればよい

**デフォルトの名無しさん** · 2019/05/18(土) 12:08:52.78

難しすぎて全くわからん…
ハローワールド始めて間もない男にも分かる問題を出してくれぬか
優しく教えて欲しい

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

>>949
これがあれば1Mbyteのファイルが2byteになっちゃうのか？

**デフォルトの名無しさん** · 2019/05/18(土) 12:48:31.15

>>978 これのどこがプログラムの問題なのかさっぱりわからん。小学生の練習問題か？

例えば自然数が 1から4までとした場合、f(n) の出力配列は
f(1) 2,3,4
f(2) 1,3,4
f(3) 1,2,4
f(4) 1,2,3
と言う事だろ？どうしてこんな問題を出したかさっぱり分からん、何か勘違いしてる？

**デフォルトの名無しさん** · 2019/05/18(土) 14:29:45.05

>>920 c
https://ideone.com/JBbm04

**デフォルトの名無しさん** · 2019/05/18(土) 14:46:59.19

>>979
「隙間なく」を満たすには全射である必要があるけど、今回は定義域と終域が等しいから単射なら自動的に全射になる
全射の条件より単射の条件のほうが説明が楽だから許してくれ

>>983
出題者じゃないから意図は分からんが、自然数を自身以外の自然数に変換するのが題意だからその例は間違っている
f(n)が返すのは自然数であってベクトル(配列)ではない

◆QZaw55cn4c · 2019/05/18(土) 14:50:54.64

>>980
＞単射である必要はない。全射でさえあればよい

？？？

>>978
2. 自然数m,nがm≠nを満たすときf(m)≠f(n)

これって単射の定義そのものなのでは？
だから単射である必要があるのでは？

f が単射でない場合 f:a->z, f:b->z だった場合に a != b にもかかわらず f(a)=f(b) で 2 を満たさない

**デフォルトの名無しさん** · 2019/05/18(土) 14:57:54.95

def f(n)
n + 1
end
一応>>978は満たしてる

**デフォルトの名無しさん** · 2019/05/18(土) 15:16:22.17

>>985
追記
単射なら全射になるのは有限集合の場合だったわ

お詫びにお題
入力n(2≤n≤2^31-1)を素因数分解してそれを表示せよ
入力例）
28
2002
216653
出力例）
2^2*7
2*7*11*13
216653

**デフォルトの名無しさん** · 2019/05/18(土) 15:45:24.30

>>888 Perl5

@a=([a, 0, 0],
　　　[b, 2, 0],
　　　[c, 4, 0],
　　　[d, 0, 2]);
sub {$t[$_[2]][$_[1]] = $_[0]}->(@$_) for @a;
@b = map{[map{$_ // ' '} @$_]} map{[@$_]} @t;
undef $";
$s = join'', map{"@$_\n"} @b;
print $s;

実行
~ $ perl 13_888.pl
a b c

d

**デフォルトの名無しさん** · 2019/05/18(土) 15:57:05.04

ハローワールドなら任せて欲しい