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

**デフォルトの名無しさん** · 2021/06/19(土) 00:02:57.84

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

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

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

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

**デフォルトの名無しさん** · 2022/08/17(水) 23:34:27.13

>>701
(><)

**デフォルトの名無しさん** · 2022/08/18(木) 02:15:12.90

>>703
perl5
https://paiza.io/projects/amKhSF3cnp1Ny5-2yWLO4g

**デフォルトの名無しさん** · 2022/08/18(木) 03:07:13.35

>>701 JavaScript
> ['^)(^', '^)(-(^-)(vv)', '<)(>'].map((R => input => Array.from(input.matchAll(/\((.)/g)).reduce((output, [l, r]) => output + l + R(r) + ')', ''))(r => r == '>' ? '<' : r))
[ '(^^)', '(--)(^^)(vv)', '(><)' ]

**デフォルトの名無しさん** · 2022/08/18(木) 10:19:41.72

>>701 Ruby
f = -> str do
loop do
str.sub!(/(.)\)(.*)$\1/, '(\1\1)\2') ||
str.sub!(/\((.)(.+)\1$/, '(\1\1)\2') ||
(break str)
end
end

%w[ ^)(^ ^)(-(^-)(vv) (-(^-)^)].each do |s|
puts '%s -> %s' % [s, f[s.b]]
end

# =>
^)(^ -> (^^)
^)(-(^-)(vv) -> (^^)(--)(vv)
(-(^-)^) -> (--)(^^)

**デフォルトの名無しさん** · 2022/08/18(木) 10:20:40.39

>>703 Ruby
PLACEHOLDER = [*0..80]

field = 9.times.reduce([]) do |s, y|
s << 9.times.map do |x|
PLACEHOLDER[9 * y + x]
end
end

puts field.map{|r| r.map{'%02d' % _1}.join}

# =>
000102030405060708
091011121314151617
181920212223242526
272829303132333435
363738394041424344
454647484950515253
545556575859606162
636465666768697071
727374757677787980

**デフォルトの名無しさん** · 2022/08/18(木) 10:42:28.41

>>703 お題をよく読んでいなかった　>>709の続き
row = -> (n, field) {field[n]}
column = -> (n, field) {field.map{_1[n]}}
block = -> (n, field) {9.times.map{n * 3 + n / 3 * 18 + _1 + _1 / 3 * 6}.map{field.flatten[_1]}}

puts row[7, field].join(?,)
# => 63,64,65,66,67,68,69,70,71

puts column[7, field].join($/)
# =>
7
16
25
34
43
52
61
70
79

puts block[7, field].each_slice(3).map{_1.join(?,)}.join($/)
# =>
57,58,59
66,67,68
75,76,77

**704** · 2022/08/18(木) 23:38:15.48

>>703 c
https://ideone.com/0yXRih
・>>704から若干の整理

**デフォルトの名無しさん** · 2022/08/19(金) 23:42:01.44

お題
<user>:<group>の数
<user>:<group>
<user>:<point>の数
<user>:<point>
が入力されます

<group>ごとに<point>を集計して<group>順に
<group>:<point>を出力してください

例)
// 入力
6
UserE:GroupC
UserD:GroupA
UserB:GroupC
UserA:GroupC
UserC:GroupB
UserF:GroupB
6
UserB:3
UserF:2
UserD:5
UserC:13
UserE:11
UserA:7

// 出力
GroupA:5
GroupB:15
GroupC:21

**デフォルトの名無しさん** · 2022/08/19(金) 23:58:05.14

なんで数を入力してるんだ？
後の情報であきらかではないか
まさかグループ名が整数でも良いと考えている？

**デフォルトの名無しさん** · 2022/08/20(土) 00:02:54.24

>>712 Ruby
g, p = str.split(/^\d+$/)[1, 2].map{_1.strip.each_line.map{|s| s.chomp.split(?:)}.to_h}
puts g.reduce(Hash.new(0)){|h, (k, v)| h[v] += p[k].to_i; h}.sort.map{_1.join(?:)}

# =>
GroupA:5
GroupB:15
GroupC:21

**デフォルトの名無しさん** · 2022/08/20(土) 07:49:15.49

// >>712 Node.js
import readline from 'node:readline';
const rl = readline.createInterface({input: process.stdin, output: process.stdout});
const all = [/* {user, group, point}, ... */];
let usergroup = false;
rl.on('line', line => {
line = line.trim();
if (line) {
if (/^\d+$/.test(line)) {
usergroup = !usergroup;
} else if (usergroup) {
const {groups} = line.match(/^(?<user>[^:]+):(?<group>[^:]+)$/);
all.push(groups);
} else {
const {groups: {user, point}} = line.match(/^(?<user>[^:]+):(?<point>\d+)$/);
Object.defineProperty(all.find(_ => _.user == user), 'point', {value: Number(point), enumerable: true});
}
} else {
rl.close();
}
});
rl.on('close', () => {
for (const [group, point] of Object.entries(all.reduce((gp, {group, point}) => {gp[group] = (gp[group] ?? 0) + point; return gp;}, {})).sort(([a], [b]) => a < b ? -1 : 1)) {
console.log(`${group}:${point}`);
}
});

**デフォルトの名無しさん** · 2022/08/20(土) 17:09:35.31

>>712 c
https://ideone.com/Edol3U

**デフォルトの名無しさん** · 2022/08/20(土) 21:26:59.76

>>712
C#
https://paiza.io/projects/IAgPLTHFbJ-HmDcLHFrNYA

**デフォルトの名無しさん** · 2022/08/20(土) 22:24:09.90

>>703ってこれじゃだめなのかな
７行で書ける
https://ideone.com/eKTMZr

96 · 2022/08/21(日) 02:42:00.00

>>712 Perl5

use feature qw{say signatures}; no warnings "experimental::signatures";
sub ($n, @a) {
　$h{$$_[0]} = $$_[1] for map{[/(\w+)/g]} @_[1..$n];
　sub ($m, @) {
　　$g{$h{$$_[0]}} += $$_[1] for map{[/(\w+)/g]} @_[1..$m];
　}->(@a[$n..$#a]);
　say "$_:$g{$_}" for sort keys %g;
}->(<>);

※見易くするためインデントを全角スペースに置換してあります。

実行結果:
https://ideone.com/GxsRSY

**デフォルトの名無しさん** · 2022/08/21(日) 06:03:07.44

>>712
<group>順にって、何を元にして group の順序を決めるの？
入力された順？それだと例の入力のように GroupC, GroupA, GroupC の順で来ている場合はどうするの？

**デフォルトの名無しさん** · 2022/08/21(日) 07:03:57.35

<group>毎という事だと思う
サンプル見るとgroup名か集計したpointの昇順かも知れないけどそこはどうとでもなりそうだし

**デフォルトの名無しさん** · 2022/08/21(日) 08:49:24.60

>>713
実際にここでも数字を使っている例が出て来てるからわかると思うけど
競プロなんかではよくあるフォーマットだよ

**デフォルトの名無しさん** · 2022/08/21(日) 18:07:19.66

>>666
C#
https://paiza.io/projects/sT_SLT3n0NNab0a-ZD7IHQ

**デフォルトの名無しさん** · 2022/08/21(日) 18:28:38.88

お題：Hello, World!を出力中にプログラムを強制終了せよ
Hello, World!が完全に出力されたらGAME OVERとする

**デフォルトの名無しさん** · 2022/08/21(日) 18:45:13.28

>>724 Ruby
Thread.new{'Hello, World!'.each_char{|c| print c; sleep 0.01}; raise 'GAME OVER'}
Thread.new{exit}

# =>
Hello, World!

**デフォルトの名無しさん** · 2022/08/21(日) 18:49:48.17

>>701
C#
https://paiza.io/projects/D1PZTVPBn2qnksCQnwYQmw?language=csharp

**デフォルトの名無しさん** · 2022/08/21(日) 18:51:27.42

>>725 訂正
Thread.new{'Hello, World!'.each_char{|c| print c; sleep 0.01}; raise 'GAME OVER'}

Thread.new{exit!}

# => H

**デフォルトの名無しさん** · 2022/08/21(日) 19:50:47.18

>>703
C#
https://paiza.io/projects/HzrEP1l1vX4Z3JUqmHSUwg

**デフォルトの名無しさん** · 2022/08/21(日) 20:19:09.38

>>724 c
https://ideone.com/xaMOR7

**デフォルトの名無しさん** · 2022/08/21(日) 21:11:05.94

>>648
C#
https://paiza.io/projects/2cxaJzBNbukA4-EolW07Cw

**729** · 2022/08/22(月) 19:20:01.17

>>724 c
https://ideone.com/k8R7TU
・>>729 どう見ても正常終了です。本当にありがとうございました。
・子プロセスの強制終了を見届けてから自分自身も強制終了

**デフォルトの名無しさん** · 2022/08/25(木) 15:38:14.81

>>724
その強制終了って人間が Ctrl + C を押すなどしてやるという意味？
間に合わずに全部出力し切った場合は GAME OVER 出すということ？

**デフォルトの名無しさん** · 2022/08/25(木) 15:52:23.73

>>732
強制終了→exit(0)などでプログラム的に終了させる
GAME OVER→お題の達成失敗

**デフォルトの名無しさん** · 2022/08/25(木) 16:09:53.36

54.144.0.0/12といったどこかで見たことあるような形式の文字列を入力すると
^(?!(54.144.|54.145.|54.146.|54.147.|54.148.|54.149.|54.150.|54.151.|54.152.|54.153.|54.154.|54.155.|54.156.|54.157.|54.158.|54.159.))
といったいい感じの文字列が標準出力に出力されるやつ、誰か作れますか？
例の他にも54.208.0.0/13 54.216.0.0/14 54.192.0.0/12 54.160.0.0/11 54.220.0.0/15といった似た感じの文字列が入力され
やはりいい感じに処理された別の文字列が出力されます

できればライセンスはゼロ条項BSDライセンスでお願いします

**デフォルトの名無しさん** · 2022/08/25(木) 16:22:36.77

ま、まあ、作れなくはないかな…

**デフォルトの名無しさん** · 2022/08/25(木) 18:48:07.98

フワっとした頭の中にしか定義されてない案件なんて誰もこなせないぞ
本人以外は

**デフォルトの名無しさん** · 2022/08/25(木) 20:40:48.98

>>734
Java
https://paiza.io/projects/Fot4E7hZfbJ95P_hSbI3NQ

**デフォルトの名無しさん** · 2022/08/25(木) 21:10:16.35

>>734 JavaScript
function _734(ip_range) {
const result = [];
const as = ip_range.split(/\D/).map(_ => Number(_));
const m = as.at(-1);
const q = Math.floor(m / 8);
const r = m % 8;
const e = 8 - r;
const l = as[q].toString(2).padStart(8, '0').slice(0, r);
for (let i = 0, sup = 2 ** e; i < sup; i++) {
as.splice(q, 1, Number.parseInt(l + i.toString(2).padStart(e, '0'), 2));
result.push(as.slice(0, q + 1));
}
return '^(?!(' + result.map(_ => `${_.join('\\.')}${q < 3 ? '\\.' : ''}`).join('|') + '))';
}

**デフォルトの名無しさん** · 2022/08/25(木) 22:00:47.00

beer licenseでよければ書くが

**デフォルトの名無しさん** · 2022/08/26(金) 04:09:37.08

割とすぐに出来るもんなんですね
どちらも実用上問題なさそうな、いい感じの実行結果です

>738は最新の実行環境に心当たりがなかったので確認に手間どりましたが
Chromeのコンソールから実行して確認できました
（cscriptで実行しようとしたらat()に対応してなかったので）

いやー勉強になります、ありがとう

**デフォルトの名無しさん** · 2022/08/26(金) 04:49:22.52

>>740
スレタイも読めないアホは消えろ

96 · 2022/08/26(金) 05:19:52.33

>>740
人をタダで利用してない？

**デフォルトの名無しさん** · 2022/08/26(金) 11:51:47.61

>>733
マルチスレッドかマルチタスクで "Hello, world!" を出力する処理と、ランダムなタイミングでそれを強制終了させる処理が動くということで良いのか？
そして出力中に停止できなかったら "GAME OVER" が最後に出ると。

**デフォルトの名無しさん** · 2022/08/26(金) 14:32:15.45

>>743
その実装でもいいよ
題意はいかにHello, World!出力中にプログラムを終了させるかだから
sleep挟んでもいい

**デフォルトの名無しさん** · 2022/08/26(金) 18:44:07.03

>>733
#!/usr/bin/env sh
cat <<"EOL" | perl -ne '/(Hello, World)(?:[!])/ ? die " $1 got failed." : print'
> foo
> bar
> baz
> Hello, World
> Hello, World
> Hello, World!
> you can't see me, right?
> EOL
foo
bar
baz
Hello, World
Hello, World
Hello, World got failed. at -e line 1, <> line 6.

**デフォルトの名無しさん** · 2022/08/26(金) 21:28:18.28

はて？プログラミングのお題を投げて、競技的な興味をもって答えたくなった人が答え
その回答に興味があれば参照して「普段は扱ってないこの言語だとそういうやりかたなのか」
「自分とは違うスマートなやり方があったのか」と思ったりするスレ、という理解でしたが

もしかして投げたときに”お題”という文字が抜けてたのが問題ありましたか？
概ね正解とするに足る実行結果を、実用上問題なさそうと表現したことが拙かったですか？
もしそうなら申し訳ない、次からは気をつけます

**デフォルトの名無しさん** · 2022/08/26(金) 21:31:39.94

ついでというかなんというか>734の自分のお題に対する自己回答です(色々と手抜きしてありますが)
#!/usr/bin/ksh
function proc {
typeset A B C D E F N M L I
IFS='.','/' read A B C D E <<XYZ
$1
XYZ
let N="(${E}+8)/8" let M="8-(${E}%8)"
if [ $N -eq 5 ]; then echo -n "${A}.${B}.${C}.${D}"; return; fi
set -A BASE dummy "" "${A}." "${A}.${B}." "${A}.${B}.${C}."
set dummy $A $B $C $D; shift $N; F=$1; let L="$F-1+(1<<$M)"
for I in `seq $F $L`; do echo -n "|${BASE[$N]}${I}."; done; }
if [ $# -eq 0 ]; then echo "need CIDR/s"; exit 65; fi
set -A CIDR dummy $@;
echo -n "^(?!dummy"; for I in `seq 1 $#`; do proc ${CIDR[$I]}; done; echo ")"
exit 0

96 · 2022/08/29(月) 02:30:43.54

>>734 Perl5

for (<>) {
　print;
　@a = /(\d+)/g;
　$w = pop @a;

　$o = ($w - 1) >> 3;
　$m = $w - $o * 8;
　$n = 2**(8 - $m);

　$l = join '.', @a[0..$o-1];
　$l .= '.' if '' ne $l;

　$h = $a[$o] & (255 << (8 - $m));

　$r = $o < 3 ? '.' : '';
　@b = map{$l . ($h + $_) . $r} 0..($n - 1);

　print '^(?!(' . join('|', @b) . "))\n";
　print "\n";
}

※見易くするためインデントを全角スペースに置換しています。

実行例：
https://ideone.com/VBJMMo

96 · 2022/08/29(月) 02:55:16.14

>>748
128.0.0.0/1 の結果が変
バグ入りだ、ｺﾞﾒﾝﾁｬｲ

96 · 2022/08/29(月) 03:01:45.22

あれ？いいのかな？
仕様を推測して作ったけどちょっと混乱したかも…
寝るわ

**デフォルトの名無しさん** · 2022/09/09(金) 22:29:09.28

お題
長方形の1辺の長さのリストと正方形の面積のリストが入力されます

それぞれの正方形の面積について
長方形の1辺の長さのリストから2つを選んで掛け合わせ長方形の面積を計算します
長方形の面積が正方形の面積以上でかつ最小の面積となる組み合わせを探して出力してください
見つからなかった場合はerrorを出力してください

(例)
// 1辺の長さのリスト
[17, 3, 3, 1, 6, 13, 11, 17, 2, 5, 7, 18, 16, 5, 8, 6, 5, 1, 11, 1]

// 正方形の面積のリスト
[390, 240, 37, 396, 198, 99, 242, 53, 329, 202]

// 出力
390:error
240:16,17
37:3,13
396:error
198:11,18
99:6,17
242:16,17
53:3,18
329:error
202:13,16

**デフォルトの名無しさん** · 2022/09/09(金) 23:02:00.41

>>751
a = [17, 3, 3, 1, 6, 13, 11, 17, 2, 5, 7, 18, 16, 5, 8, 6, 5, 1, 11, 1]
b = [390, 240, 37, 396, 198, 99, 242, 53, 329, 202]
c = a.group_by(&:itself).values.map{_1.size > 2 ? _1[0, 2] : _1}.flatten.permutation(2).map{[_1 * _2, [_1, _2].sort]}.uniq.sort.to_h
b.each{|s| puts '%d: %s' % [s, c.find{_1[0] >= s}&.[](1)&.join(?,) || :error]}

# =>
390: error
240: 16,17
37: 3,13
396: error
198: 11,18
99: 6,17
242: 16,17
53: 3,18
329: error
202: 13,16

**デフォルトの名無しさん** · 2022/09/09(金) 23:46:43.88

>>751 ruby
https://ideone.com/hBHe51
def f(as, bs)
c = as.combination(2).map(&:sort).to_a.uniq.map {|x, y| [x * y, x, y]}.sort_by(&:first).each_cons(2)
bs.map do |b|
d = c.find {|e, f| e[0] < b && b <= f[0]}
"#{b}:#{d ? d[1][1..2].join(',') : 'error'}"
end
end
a = [17, 3, 3, 1, 6, 13, 11, 17, 2, 5, 7, 18, 16, 5, 8, 6, 5, 1, 11, 1]
b = [390, 240, 37, 396, 198, 99, 242, 53, 329, 202]
puts f(a, b)

**753** · 2022/09/10(土) 00:24:11.29

>>751
https://ideone.com/2UDrLT
・>>753を若干の整理
・>>752さんのを見て&.を勉強
def f(a, b)
c = a.combination(2).map(&:sort).to_a.uniq.map {|x, y| [x * y, x, y]}.sort
b.map {|b| "#{b}:#{c.find {|e| b <= e[0]}&.[](1..2)&.join(',') || 'error'}"}
end
a = [17, 3, 3, 1, 6, 13, 11, 17, 2, 5, 7, 18, 16, 5, 8, 6, 5, 1, 11, 1]
b = [390, 240, 37, 396, 198, 99, 242, 53, 329, 202]
puts f(a, b)

**デフォルトの名無しさん** · 2022/09/10(土) 00:34:04.51

みんな解くのはえーなぁ

96 · 2022/09/10(土) 02:29:07.85

>>751 Perl5

$ls = [17, 3, 3, 1, 6, 13, 11, 17, 2, 5, 7, 18, 16, 5, 8, 6, 5, 1, 11, 1];
$ss = [390, 240, 37, 396, 198, 99, 242, 53, 329, 202];
sub f {2 < @_ ? (f(@_[1..$#_]), map{[$_[0] * $_, $_[0], $_]} @_[1..$#_]) : ()}
@rs = sort{$$a[0] <=> $$b[0]} f @$ls;
for $aa (@$ss) {
　@b = grep{$aa <= $$_[0]} @rs;
　print @b ? "$aa:$b[0][1],$b[0][2]\n" : "$aa:error\n";
}

実行結果
$ perl 20_751.pl
390:error
240:17,16
37:3,13
396:error
198:18,11
99:17,6
242:17,16
53:3,18
329:error
202:13,16

**デフォルトの名無しさん** · 2022/09/10(土) 11:29:46.54

>>751 octave
https://ideone.com/WGkm27
function c = f(a, b)
u = unique(sort(nchoosek(a, 2), 2), 'rows');
p = prod(u, 2);
c = cell(size(b));
for i = 1:numel(b)
d = min(p(b(i) <= p));
if isempty(d)
c{i} = sprintf('%d:error', b(i));
else
s = strjoin(arrayfun(@(n) {num2str(n)}, u(p == d, :)), ',');
c{i} = sprintf('%d:%s', b(i), s);
end
end
end
a = [17, 3, 3, 1, 6, 13, 11, 17, 2, 5, 7, 18, 16, 5, 8, 6, 5, 1, 11, 1];
b = [390, 240, 37, 396, 198, 99, 242, 53, 329, 202];
cellfun(@disp, f(a, b))

**デフォルトの名無しさん** · 2022/09/10(土) 13:32:08.25

>>751 c
https://ideone.com/Cqx8M3
#include <stdio.h>
void f(int *a, int *b, int na, int nb) {
int i, j, k, found, min, x, y;
for (i = 0; i < nb; i++) {
found = 0;
for (j = 0; j < na; j++)
for (k = 0; k < na; k++)
if (j != k && b[i] <= a[j] * a[k] && (!found || a[j] * a[k] < min))
found = 1, min = a[j] * a[k], x = a[j], y = a[k];
if (!found) printf("%d:error\n", b[i]);
else printf("%d:%d,%d\n", b[i], x, y);
}
}
int main() {
int a[] = {17, 3, 3, 1, 6, 13, 11, 17, 2, 5, 7, 18, 16, 5, 8, 6, 5, 1, 11, 1};
int b[] = {390, 240, 37, 396, 198, 99, 242, 53, 329, 202};
f(a, b, sizeof a / sizeof *a, sizeof b / sizeof *b);
return 0;
}

**デフォルトの名無しさん** · 2022/09/10(土) 19:18:11.93

>>751
Kotlin

可能な限り漢字を使ったプログラムにしてみたが、余計にゴチャゴチャしてしまったかな？

https://paiza.io/projects/ay4L7Wchnt6lGUvkh6h21A

240 が 16, 17 ではなく 17, 16 のように出るが、まあよかろう。
(リストの順番で覚えているのでこうなる)。

**デフォルトの名無しさん** · 2022/09/10(土) 22:25:19.23

お題

>>751の問題について

長方形の1辺の長さをソートして縦方向と横方向に並べて交差するところに長方形の面積を入れて表にします

https://downloadx.getuploader.com/g/angel556/90/%E3%81%97%E3%82%83%E3%81%8F%E3%81%A8%E3%82%8A%E6%B3%95.png
この図は50を探すところを描いています

青色の斜めの値の中から正方形の面積以上かつ最小の値を見つけその場所を出発点とします
長方形の面積が正方形の面積よりも大きい場合は表を上にたどり、長方形の面積が正方形の面積よりも小さい場合は表を右にたどります
右方向から上方向に切り替わるところが回答の候補でその中から最小値を探すことで効率よく回答を見つけることができます

しゃくとり虫が動いてるように見えるのでこれをしゃくとり法と呼ぶことにします

>>751の問題をしゃくとり法で解いてください

**デフォルトの名無しさん** · 2022/09/10(土) 22:51:25.27

> 右方向から上方向に切り替わるところが回答の候補でその中から最小値を探すことで効率よく回答を見つけることができます

これは間違いかも、これだと55を見つけられない
各自で考えていただければありがたく

**デフォルトの名無しさん** · 2022/09/10(土) 22:52:41.16

いや、いいのか！？ダメだ混乱してきたもうパニックですわ

**デフォルトの名無しさん** · 2022/09/10(土) 22:57:53.10

おちつけ

**デフォルトの名無しさん** · 2022/09/10(土) 23:12:42.56

>>760
> 右方向から上方向に切り替わるところが回答の候補でその中から最小値を探すことで効率よく回答を見つけることができます

これは間違いでした、上方向から右方向に変わる直前の値が回答候補ですね

50を探す場合、56,55,51が候補です
https://downloadx.getuploader.com/g/angel556/91/%E3%81%97%E3%82%83%E3%81%8F%E3%81%A8%E3%82%8A%E6%B3%95_%E8%A8%82%E6%AD%A3.png

**素数を数えるんだ** · 2022/09/10(土) 23:25:22.59

2, 3, 5, 7, 11, 13, 17, 19......

**デフォルトの名無しさん** · 2022/09/11(日) 01:04:25.98

お題
2～19までの素数を生成し掛け算の表を出力してください

**デフォルトの名無しさん** · 2022/09/12(月) 01:50:52.46

>>751
Java
https://paiza.io/projects/9bNWiYGC-KndYn1QmRsYIA

**デフォルトの名無しさん** · 2022/09/12(月) 10:44:10.79

>>764
Kotlin
https://paiza.io/projects/caNg1GtDFhBF9Rk6AwC52Q

出力をHTMLにするとそれっぽく表示できた。
50は正方形の面積リストの最初に入れたが例の画像と同じような見た目になった。

**デフォルトの名無しさん** · 2022/09/12(月) 18:32:56.65

>>751
ttps://ideone.com/mFYcmC

>>764
ttps://ideone.com/vwjQvN

**デフォルトの名無しさん** · 2022/09/13(火) 22:22:38.95

>>766
C#
https://paiza.io/projects/mR6tnluHgitHnC0VJWc6Wg

**デフォルトの名無しさん** · 2022/09/13(火) 22:25:19.07

お題：OpenGLで四角形を３つ描画せよ
一番下の四角形が１番大きく赤色
その上にのってる四角形は２番目に大きく緑色
さらにその上にのってる四角形は３番目に大きく青色

**デフォルトの名無しさん** · 2022/09/14(水) 12:47:57.36

お題

フェアフィールドの公式は、西暦1年1月1日から指定した日付までの日数を求めるもので次の式です
日数 = (365 * Y) + (Y / 4) - (Y / 100) + (Y / 400) + (306 * (M + 1) / 10) + D - 428

UNIX時間は、西暦1970年1月1日午前0時0分0秒からの経過秒数です

フェアフィールドの公式を用いてUNIX時間から年月日を求めて出力してください

(例)
1000000000 → 2001-09-09T01:46:40
1234567890 → 2009-02-13T23:31:30

**デフォルトの名無しさん** · 2022/09/14(水) 15:20:59.73

>>772 bat
@echo off &setlocal
call :Conv_uTime2iso 1000000000
call :Conv_uTime2iso 1234567890
pause&exit /b
:Conv_uTime2iso
set /a "GD=(UT=%~1)/86400+719468, h=100+(R=UT%%86400)/3600, n=100+(R%%=3600)/60, s=100+R%%60, y=400*(GD/146097), y+=100*(i=(R=GD%%146097)/36524), y+=(R%%=36524)/1461*4, y+=j=(R%%=1461)/365, R=R%%365+365*(L=(i|j)/4), f=(k=(R*5+2)/153)/10, d=R+101-(306*k+4)/10, m=k+103-f*12, y+=f-L"
echo %y%-%m:~-2%-%d:~-2%T%h:~-2%:%n:~-2%:%s:~-2%

**デフォルトの名無しさん** · 2022/09/15(木) 05:31:46.38

//>>772 JavaScript
function _772(epoch) {
/**/epoch = BigInt(epoch);if (epoch < 0n) {throw new RangeError('');}
/**/const lastDateOfMonth = (_ => Object.fromEntries(Array.from([, , , ..._.slice(2), _[0], _[1]].entries()).filter(([, v]) => v)))(Array.from(new Array(12).keys()).map(m => BigInt(new Date(2_022, m + 1, 0, 0, 0 - new Date().getTimezoneOffset()).getDate())));
/**/const FAIRFIELD = fairfield(1_969n, 12n, 31n) + epoch / 86_400n + 1n;
/**/let [Y, M, D] = [1_969n, 13n, 1n];
/**/for (; D <= 58n; D++) {if (FAIRFIELD == fairfield(Y, M, D)) {return {Y: 1_970n, M: 1n + D / 31n, D: D % 31n};}}
/**/for (Y = 1_970n; Y <= Number.MAX_SAFE_INTEGER; Y++) {
/**//**/for (M = 3n, D = 1n; D <= 366n; D++) {
/**//**//**/if (FAIRFIELD == fairfield(Y, M, D)) {
/**//**//**//**/if (D == 366n) {
/**//**//**//**//**/if (isLeapFullYear(Y + 1n)) {
/**//**//**//**//**//**/return {Y: Y + 1n, M: 2n, D: 29n};
/**//**//**//**//**/} else {
/**//**//**//**//**//**/return {Y: Y + 1n, M: 3n, D: 1n};
/**//**//**//**//**/}
/**//**//**//**/} else {
/**//**//**//**//**/for (; lastDateOfMonth[M] <= D; D -= lastDateOfMonth[M++]);
/**//**//**//**//**/if (M <=12n) {
/**//**//**//**//**//**/return {Y, M, D};
/**//**//**//**//**/} else {
/**//**//**//**//**//**/return {Y: Y + 1n, M: M % 12n, D};
/**/}}}}}
/**/function isLeapFullYear(Y) {return Y % 4n == 0n && Y % 100n != 0n || Y % 400n == 0;}
/**/function fairfield(Y, M, D) {return Y * 365n + Y / 4n - Y / 100n + Y / 400n + 306n * (M + 1n) / 10n + D - 428n;}
}

**デフォルトの名無しさん** · 2022/09/15(木) 22:07:10.52

うるう秒のテーブルがないと求められなくない？

**デフォルトの名無しさん** · 2022/09/16(金) 00:34:31.77

400年で146097日増えるみたいだから適当にバイアス付けて146097で割る予感

**デフォルトの名無しさん** · 2022/09/16(金) 00:35:51.49

違う
適当にバイアス付けて÷365.2425だ

**デフォルトの名無しさん** · 2022/09/16(金) 01:05:26.42

フェアフィールドの公式てwikipediaに書かれている出自不明な公式でも何でも無いでっち上げの記事でしょ
式の解説文がこれまた頭悪くて、なのに誰も修正しないという

**デフォルトの名無しさん** · 2022/09/16(金) 01:13:35.77

グレゴリオ歴のとこに解説載ってるよ
https://ja.m.wikipedia.org/wiki/%E3%82%B0%E3%83%AC%E3%82%B4%E3%83%AA%E3%82%AA%E6%9A%A6

**デフォルトの名無しさん** · 2022/09/16(金) 21:18:24.66

>>772
Java
https://paiza.io/projects/GkxKdFMCsjdM1lSoxk8mhQ

**デフォルトの名無しさん** · 2022/09/17(土) 17:48:30.91

お題
2*2の整数行列がいくつか与えられる。
これらを適当な順番で掛け合わせる(行列積)ことで零行列を作ることが可能かどうか判定せよ。
ただし、同じ行列を2回以上使用してもよい。

例
[[1, 0], [0, 0]], [[0, -1], [1, 0]] =>可能(行列1*行列2*行列1==0)
[[1, 2], [3, 4]], [[0, -3], [2, 4]] =>不可能(正則行列だから)

**デフォルトの名無しさん** · 2022/09/17(土) 18:42:03.76

>>781
零因子の発掘ですか、濃ゆいお題ですね…

**デフォルトの名無しさん** · 2022/09/18(日) 11:34:42.07

お題：循環参照を開放せよ。

java
https://ideone.com/xe64l4
・ガベコレの対象になったのを確認まででヨシとす

c++
https://ideone.com/1gXTAX

**デフォルトの名無しさん** · 2022/09/18(日) 12:52:34.73

>>783
Java
https://paiza.io/projects/KPlcyOa7-yBMKlBes0ImXg

**デフォルトの名無しさん** · 2022/09/18(日) 16:37:27.93

>>783
Python
https://paiza.io/projects/xCNkUNUSXbwUSWTf8OEA-Q

**デフォルトの名無しさん** · 2022/09/19(月) 02:47:41.37

>>783
Kotlin
https://paiza.io/projects/dZhh0NhaeEwnxD45W6V7Ng

Java VM 上で動くから Java と同じで参照している変数を null にして System.gc() するだけ。

**デフォルトの名無しさん** · 2022/09/24(土) 01:13:05.90

>>772
亀レスHaskell
https://ideone.com/y7jYXr
色々考えて結局テーブル作って処理という最後の手段
わざわざ公開するほどのもんでもないけど一区切りつけるため
暦の勉強になった
なんで大の月と小の月の配置はこんなみっともないことになってるんだろ？
歴史家が調べでよくわからんみたいだけど

**デフォルトの名無しさん** · 2022/09/24(土) 04:40:38.82

>>772
だめ。その式に当てはめると必ずずれる。

**デフォルトの名無しさん** · 2022/09/24(土) 07:42:29.88

うるう秒を考慮しないとずれる

**デフォルトの名無しさん** · 2022/09/24(土) 09:42:29.34

>>788
問題には書かれていないけれどその式は条件によって前処理が必要
・1-2月は前年として扱う。　1年を3-14月として計算
m=1 or 2 の時 y=y-1, m=m+12

>>789
UNIXTIMEにうるう秒なんて無い

**デフォルトの名無しさん** · 2022/09/24(土) 11:33:11.17

>>790
日付に変換する過程でうるう秒考慮しないとずれるでしょう

**デフォルトの名無しさん** · 2022/09/24(土) 12:13:55.28

>>791
UNIXTIMEは「epocからの実時間の秒数」では無い
実時間から、うるう秒は加減され含まれず、1日は86400秒換算
だからそれを日時に変換しても「うるう秒の時刻を表せない」だけでズレなど発生しない

**デフォルトの名無しさん** · 2022/09/24(土) 12:34:24.41

>>792
レスありがとう。不勉強だったわ。

**デフォルトの名無しさん** · 2022/09/24(土) 16:57:05.53

>>790
出題ミスか。
これまでに作られたプログラムはその辺のことを考慮したプログラムになっていたのかな？
だったら分かってたんだからその辺の事を書いておいて欲しかったな。

**デフォルトの名無しさん** · 2022/09/24(土) 22:38:52.94

wikiにはそこまで詳しい解説はなかったけど式みたらわかったけどな
⌊(m+1)/30.6⌋
という項
⌊x/30.6⌋という関数は0,1,2,3,4となる値が
31,30,31,30,31,31,(繰り返し)‥①
と変化してコレを周期153で繰り返す
月の長さは3月から見ると
31,30,31,30,31,31,30,31,30,31,31,28(29)
となってるから①を一月分左に平行移動すれば良いとわかる
からの⌊(m+1)/30.6⌋

**デフォルトの名無しさん** · 2022/09/24(土) 22:45:27.51

>>795

間違えた
⌊m×30.6⌋という関数は0,1,2,3,4,‥の時の値が
31,31,30,31,30
の繰り返し
件の公式のmの項はコレを一月分ずらしてる

**デフォルトの名無しさん** · 2022/09/28(水) 02:17:31.98

お題：4回呼び出したらその内の1回が失敗する関数を書け
失敗した場合は「failed」と表示、成功した場合は「ok」と表示せよ

**デフォルトの名無しさん** · 2022/09/28(水) 09:47:46.29

seed変数はパラメータ渡しで良いですか

**デフォルトの名無しさん** · 2022/09/28(水) 19:05:59.31

>>797 c
https://ideone.com/PIpRmD
void f() {
static int i = 0, j, k = 4;
if (i == 0) j = rand() % k;
puts(i == j ? "failed" : "ok");
i = (i + 1) % k;
}

**デフォルトの名無しさん** · 2022/09/28(水) 22:51:23.95

>>797 Ruby
def f
$f_cnt||=0
puts$f_cnt==3||(rand(4)==~-$f_cnt+=1)?:failed: :ok
end

**デフォルトの名無しさん** · 2022/09/30(金) 04:16:06.13

>>797
Kotlin

https://paiza.io/projects/QipeLOxxfW3_GNBarDA-8w

Int型1つ分のワークエリアを呼ぶ側から与えてそこでカウントして必ず4回の内1回が失敗になる。
乱数を使うと4回の内1回失敗ではなくなる可能性があるので使っていない。

引数としてInt型の参照を渡しても中身を変えられないのでIntArray(Java なら int[] に相当)で1要素作ってIntArrayの参照を渡している。
クラスでやっても良かったが、わざわざクラス作るほどのことでもないと思ったのでこの方式にした。

**デフォルトの名無しさん** · 2022/10/01(土) 01:23:09.73

>>797
Java
https://paiza.io/projects/AOePb_OJDX44jb_jRddrsw?language=java

**デフォルトの名無しさん** · 2022/10/09(日) 17:49:59.08

お題: あみだ https://imgur.com/6XtTF0E.png
画像のようなマス目の上に直線を引いたあみだを次のように表現することにします。
N: 縦線の本数(列数)
M: 橋が架けられている行数
B: M行N-1列の二次元配列で、橋が架けられていたら1、そうでない場合は0が格納されています。
あらかじめ、あみだの入力には左から0～N-1までの整数が割り振られていることにします。また、同じ行に橋が二つ連続で隣り合うことは禁止されています。
一応の制約: 2 <= N <= 100, 1 <= M <= 100
あみだに橋が1つも存在しない場合、M=1となり、Bは1行N-1列の大きさで、すべての要素が0の2次元配列になることにします。

お題1: N, M, Bが与えられるので、あみだの出力を求めてください。(入出力のフォーマットは各自で適宜変更してもいいです。)
入力例(画像のもの):
4
4
1 0 1
0 1 0
1 0 0
0 1 0
出力例:
3 0 1 2

お題2: Nとあみだの出力が与えられるので、Mをできるだけ小さくしたあみだを求め、Mと Bの一例を表示してください。
入力例:
5
2 4 0 1 3
出力例:
3
0 1 0 1
1 0 1 0
0 1 0 0
あみだ関連のお題は過去スレで何回か見かけたがろくに相手にされていなかったのであげてみる。

**デフォルトの名無しさん** · 2022/10/10(月) 00:03:47.74

reduced expressionのまとめられる積を出来るだけまとめたものが必ず最短になるなら簡単なんだけどな