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

■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん
垢版 |
2020/03/13(金) 01:42:47.06ID:0rEhys36
プログラミングのお題スレです。

【出題と回答例】
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/05/14(木) 08:19:01.17ID:ATZ04u9M
巣から出てこないで
517デフォルトの名無しさん
垢版 |
2020/05/14(木) 11:14:37.43ID:mLSyRb78
お題: 標準入力から使用言語のインポート文やインクルード文に相当する複数の文が入力される
インポート文のパッケージ名をキーにして複数の文を昇順にソートして出力せよ

例:　（Pythonの場合）
in < import abc
import def
from ABC import DEF

out > from ABC import DEF
import abc
import def
518デフォルトの名無しさん
垢版 |
2020/05/14(木) 12:37:36.92ID:HMZArJeP
iostreamが一番上に無いと落ち付かないし、
<>と""が混ざるのもヤダ
2020/05/14(木) 12:48:23.09ID:xgmSq5h2
じゃあ勝手にそのルールで作れば
2020/05/14(木) 16:21:13.66ID:TUXEfYWI
#includeは行を前後入れ換えるとエラーになることあるから実用的ではない

まあ例え実用的でなくても要求仕様のとおり作れってことなんでは？
2020/05/14(木) 17:58:25.38ID:nTyJBG5I
お題の意味を深読みするやつはテストの点が悪い
テストの問題などそれが解けるかどうかを見たいのであって
それ自体に大した意味はない
2020/05/14(木) 18:53:37.14ID:vCkOIzUf
それはそのテストが能力評価試験か
あるいは単なる選別試験化によること
2020/05/14(木) 19:33:13.92ID:TM7TYhs5
>>517 Ruby
回答が困難な例を考えてみた

require 'etad'.reverse

foo = 'date'
require foo

require %w| json date net cgi |[1]

module Foo module Bar
Car = 'date'
end end
require Foo::Bar::Car

require_relative './foo/../bar/../car/../wrk'
2020/05/14(木) 19:45:30.93ID:0XakIAB2
馬鹿か。
525デフォルトの名無しさん
垢版 |
2020/05/14(木) 19:59:06.24ID:9P667XH0
お題
ipのフィルタリングを行ってください
許可するipが次の形式で入力されます allow ip
拒否するipが次の形式で入力されます deny ip
チェックするipが次の形式で入力されます ip
アクセスを許可する場合は次の文字列を出力してください allow
アクセスを拒否する場合は次の文字列を出力してください deny

許可するip、拒否するipの形式は次の2つです
xxx.xxx.xxx.xxx
xxx.xxx.xxx.xxx/xx (CIDR形式)

xxx.xxx.xxx.xxxの場合は、完全一致で判断してください
CIDR形式の場合は、ネットワークアドレスの一致で判断してください

チェックするipの形式はxxx.xxx.xxx.xxxのみです

allowとdenyの優先順について
1. allow ipに該当したらアクセスを許可します
2. 1.に該当せず、deny ipに該当したらアクセスを拒否します
3. 1.に該当せず、2.に該当しない場合アクセスを許可します

例
入力
allow 192.168.11.9
deny 192.178.12.3/8
allow 192.168.23.34/16
192.168.89.99

出力
allow
526デフォルトの名無しさん
垢版 |
2020/05/14(木) 20:01:48.04ID:9P667XH0
小規模なシステムだとサーブレットでipのフィルタリングすることあるから結構実用的だと思う
2020/05/14(木) 20:08:05.34ID:jKQspZfc
denyだけ調べりゃいいんでない？
528デフォルトの名無しさん
垢版 |
2020/05/14(木) 20:24:36.69ID:9P667XH0
>>527
そういうわけでもないんよ

例えば
deny 0.0.0.0/0
allow 20.8.5.34

とした場合、20.8.5.34は許可するけど、それ以外は全部拒否っちゃうみたいな
ホワイトリスト方式の使い方も想定してるんよ

システムの入り口のところなので大量のリクエストを裁かなければいけないので
できるだけ高速に動作するように、さらにアクセス制御リストに変更があった場合に
即座に反映するために外部リソースから読み取るようにしておいてみたいなことも
考えると良い暇つぶしになるよー
2020/05/14(木) 20:32:03.68ID:jKQspZfc
>>528
なるほど確かにその通りであらう
2020/05/14(木) 20:59:39.91ID:lLI6eB7P
何をあらうんだよ…
2020/05/14(木) 21:00:22.99ID:wD9bKf3u
足
2020/05/14(木) 21:04:20.89ID:AeCxRE84
歴史的仮名遣いだろう
2020/05/14(木) 21:04:56.76ID:kU1rpgyO
>>527はdenyとでないを掛けた洒落
>>529もあろうの歴史的仮名遣いのあらうとallowを掛けた親父ギャグでしょ
2020/05/14(木) 21:07:43.58ID:wD9bKf3u
説明しなきゃいられないところがオヤジ
2020/05/14(木) 21:09:08.46ID:kU1rpgyO
なんで親父ギャグ(多分)の解説しただけで親父扱いなんですかねぇ
2020/05/14(木) 21:10:15.88ID:qtdgHxAv
1番恥ずかしいのは>>532君ですね。
2020/05/14(木) 21:24:44.88ID:wD9bKf3u
それは間違いない
2020/05/14(木) 21:44:56.84ID:bVs50nsv
/??la?/であろう
2020/05/14(木) 21:45:35.19ID:bVs50nsv
もじばけ？
/?`lau/
2020/05/15(金) 23:46:30.15ID:PLtuBlLM
>>525>>528 Perl5
sub na { (((($_[0] << 8) + $_[1]) << 8) + $_[2]) << 8 + $_[3] }
sub iaf { my @rl;
　for (split "\n", shift) {
　　my @f = /(?:(allow|deny)\s+)?(\d+)\.(\d+)\.(\d+)\.(\d+)(?:\/(\d+))?/;
　　if ($f[0]) {
　　　push @rl, [$f[0], na(@f[1..4]), $f[5]//0];
　　} else {
　　　$res = 'allow';
　　　for (@rl) { $res = $$_[0] if ($$_[1] & $$_[2]) == (na(@f[1..4]) & $$_[2]) }
　　　print "$_ -> $res\n";
　　}
　}
}
iaf <<EOL;
allow 192.168.11.9
deny 192.178.12.3/8
allow 192.168.23.34/16
192.168.89.99
EOL
iaf <<EOL;
deny 0.0.0.0/0
allow 20.8.5.34
20.8.5.34
EOL

実行結果
~ $ perl 17_525_ip_filt.pl
192.168.89.99 -> allow
20.8.5.34 -> allow
541540
垢版 |
2020/05/15(金) 23:48:47.34ID:V3+gK270
>>540
ｺﾞﾒﾝ、これ間違いがある
2020/05/15(金) 23:58:42.92ID:b6XlKvF2
あなたはお腹が空くと、[DENY]ーズにいくのだ[ALLOW]ね。
543540
垢版 |
2020/05/16(土) 00:00:07.30ID:6i7hUAj2
>>540
6行目
× push @rl, [$f[0], na(@f[1..4]), $f[5]//0];
↓
○ push @rl, [$f[0], na(@f[1..4]), -1 & 2**$f[5]-1];
2020/05/16(土) 00:38:46.63ID:mmCD1xOl
お題: ペナルティ方式でパスワードの強度を判定するプログラム。「弱い」「普通」「強い」の3段階で判定する。

5文字より短いパスワードは「ダメ」
「3AAA1567」のような同じ文字が3文字以上並んでる場合は「ダメ」
「1234567」「abcdefg」などの規則的なものは「ダメ」
パスワード辞書に登録されているパスワードは「ダメ」
英単語辞書に登録された単語そのものは「ダメ」
英単語辞書に登録された単語を含むものは「あまり良くない」
英字のみは「あまり良くない」
数字のみは「ダメ」
「2020/5/16」「20.5.16」のような日付に見えるものは「ダメ」
545540
垢版 |
2020/05/16(土) 00:46:40.04ID:fpR/KoQd
あんさんのお代に共通して言えることだけど、
難易度はさておいて、パスワード辞書に登録されているか調べたり
英単語辞書に登録された単語化調べたりするのは
それなりに冗長でサイズがかさんで回答しにくい。（難易度とは別に手間がかかる）
こういうところに出すお題は、もっと手短にかける回答になるないと
対応しにくい
2020/05/16(土) 01:11:12.68ID:Y5etVgbs
おまえはお題コンプマンだしなw?
547540
垢版 |
2020/05/16(土) 01:16:31.49ID:qT19c9Q0
また荒れるようにあおる理由は何よ
2020/05/16(土) 01:17:01.29ID:lk9pP577
テスト用なんだし適当に辞書に数個のデータ書いとけば良くね？
入力例を書くのと同じようなもんでしょ。
549540
垢版 |
2020/05/16(土) 01:18:31.56ID:qT19c9Q0
>>548
まかせた。
俺はこのお題は下りる。
2020/05/16(土) 01:25:07.67ID:lk9pP577
自分が指摘されたら無意味な煽りで逆切れか
2020/05/16(土) 01:27:06.62ID:MtRD2Sio
>>550
お前、変な絡み方するな。
何か文句あるのか
2020/05/16(土) 01:38:56.04ID:+1fKeI4G
>>525
C++
Boost.Asio使ってみた
https://wandbox.org/permlink/0AHpUmYq4xGUM6JT
2020/05/16(土) 01:40:21.32ID:lk9pP577
>>551
貴方は誰だろ
2020/05/16(土) 01:45:48.02ID:wIXI/yEm
https://www.youtube.com/watch?v=xQvGRMZZRjo
2020/05/16(土) 01:57:03.11ID:gANc9GME
>>544
規則的というのがよくわからんな
aceg
13579
314515926
あたりがいいのか悪いのかわからん
2020/05/16(土) 02:44:30.09ID:XVsJeOb7
なんでそんな細かい？
案件が何か？
2020/05/16(土) 04:31:36.99ID:Oh3+MfsL
>>544
めんどくさいから一部だけ
https://ideone.com/K7iXjl
2020/05/16(土) 06:25:37.52ID:d1TWh4yW
難しいことはどうでもいいんだよ
糞コテなんかＮＧに入れて無視しとけ
2020/05/16(土) 09:12:22.88ID:F27qhMVV
>>553
お前が誰だよ
2020/05/16(土) 09:13:48.41ID:F27qhMVV
>>548
はよ
2020/05/16(土) 13:21:04.33ID:u4MIIZu6
キレんなよperlおじさん…
562デフォルトの名無しさん
垢版 |
2020/05/17(日) 01:00:50.47ID:3JQ6JRsi
>>561
2020/05/17(日) 01:02:26.74ID:vYrP6+Tp
>>562
2020/05/17(日) 01:05:18.78ID:m/RKzw04
クソスレageるなクズが
565デフォルトの名無しさん
垢版 |
2020/05/17(日) 01:06:25.12ID:EUq6tLtb
お客さん、お口が悪いですよ。
566デフォルトの名無しさん
垢版 |
2020/05/17(日) 01:12:24.60ID:75sCr/7U
>>563
567デフォルトの名無しさん
垢版 |
2020/05/17(日) 11:38:13.44ID:vMT2I4CL
>>566
2020/05/17(日) 13:24:57.94ID:ven71fGO
remember perl barber
569デフォルトの名無しさん
垢版 |
2020/05/17(日) 18:19:26.07ID:aqCjusZQ
>>525
Rust
https://paiza.io/projects/b01Tx5Gn26u84j2G35fEyg
570デフォルトの名無しさん
垢版 |
2020/05/18(月) 01:41:36.07ID:2yVQDSrG
>>525
Kotlin

https://paiza.io/projects/wKpfV5894x2rnGj0zN8hHw

allow, deny は共に複数指定可能にした。
571デフォルトの名無しさん
垢版 |
2020/05/19(火) 20:39:41.77ID:8HY/3oGP
｢慶應卒の学歴なんていらない｣10代起業で成功する子の共通点
https://www.excite.co.jp/news/article/President_35457/
起業で成功するキャリア形成の仕方とは？ 元プロサッカー選手で起業家の鈴木啓祐氏に聞いた
https://sogyotecho.jp/career-development/
【アプリ開発で起業】必要な心得とマネタイズ方法のすべて
https://www.dreamgate.gr.jp/contents/column/application-development
学生起業家が開発、「人を軸に本を探すアプリ」とは？読書通じて「考える力」養って
https://newswitch.jp/p/20168
島田商高生がアプリ考案、発表　ＩＣＴ起業家育成プログラム
https://www.at-s.com/news/article/local/central/730010.html
医師コンビが「治療用アプリ」で起業、禁煙に続き高血圧治療アプリを開発
https://diamond.jp/articles/-/229375
好きが高じて“カレー起業”、キャッシュレス決済アプリ「TOKYO MIX CURRY」の挑戦
https://diamond.jp/articles/-/215868
2020/05/20(水) 19:45:40.23ID:7wrEZNzM
お題
N×M個の頂点からなる格子状の無向グラフが与えられる。
グラフのエッジは隣同士の頂点を結んでいる。

このグラフの全域木を一つ出力せよ。
ただし、横線と縦線の数は同じでなければならない。

[入力]
N M (N, Mは3以上の奇数)

[出力]
頂点'o'、横線'-'、縦線'|'を使って全域木を描画せよ。(答えは複数あり得る)

[入力例]
3 7

[出力例]
o-o-o-o-o-o-o
|.|.|.|.|.|.|
o.o.o.o.o.o.o
|.....|...|..
o-o-o.o-o.o-o
※表示の都合上、スペースは'.'に置き換えています。
2020/05/20(水) 23:01:41.75ID:2ebYf5N5
>>572 Ruby
n, m = gets.split.map{|s| s.to_i}
na = [ ['-']*(n+m), [' ']*(n*(m-1)-n-m) ].flatten.shuffle
ma = [ ['|']*(n+m), [' ']*(m*(n-1)-n-m) ].flatten.shuffle
n.times{|y|
puts [ na[y*(m-1)...(y+1)*(m-1)].map{|s|'o'+s}, 'o' ] * ''
puts ma[ y*m...(y+1)*m ].join(' ') if y != n-1
}
574デフォルトの名無しさん
垢版 |
2020/05/20(水) 23:05:23.83ID:LJzSJjXI
お題:二重振り子を数値計算でシミュレーションせよ
575デフォルトの名無しさん
垢版 |
2020/05/20(水) 23:17:13.51ID:LJzSJjXI
運動方程式
https://ja.wikipedia.org/wiki/%E4%BA%8C%E9%87%8D%E6%8C%AF%E3%82%8A%E5%AD%90
2020/05/22(金) 12:58:56.52ID:QNXRWxiX
お題: 入力文字列に機種依存文字が含まれているか判定するプログラム。
577デフォルトの名無しさん
垢版 |
2020/05/22(金) 19:35:14.22ID:MygyNOFw
>>576
Java
https://paiza.io/projects/JZK-wb067CJVSzCDtiU8DQ
2020/05/22(金) 19:52:54.26ID:GgyK+ULi
>>576 C
#include <stdio.h>
int check( unsigned char uc ){
return( uc == 0x40 || uc >= 0x5b && uc <= 0x5e || uc == 0x60 || uc >= 0x7b && uc <= 0x7e || uc >= 0x80 );
}
void main(){
char ch;
while( (ch = getchar()) != EOF )
check( ch ) && printf( "Check %02X '%c'\n", ch, ch );
}
2020/05/22(金) 21:10:30.88ID:OWpC2iYH
お題: XY平面上の謎のキャラクターPが原点に居てY軸(北)の方向を向いている。Pは何回か次のいずれかのアクションを行う。
アクション1. 90度左に自転する。
アクション2. 90度右に自転する。
アクション3. 一つ前に進む。
入力は、カンマ区切りのアクション番号の並びとする。Pは入力されたアクションを順番に実行する。
出力は、入力の各アクションを実行した後の位置と向き(東西南北)を順番に並べたものとする。

入力例1) 1, 3, 3, 2, 3
入力例2) 3, 2, 3, 1
580デフォルトの名無しさん
垢版 |
2020/05/23(土) 00:30:40.04ID:goh2AXYc
>>579
Java
https://paiza.io/projects/v1dFH3FekqpgNn5LjZRY_w
2020/05/23(土) 02:20:43.28ID:zNKp3hWU
>>579 Ruby
def moves( str )
x, y = 0, 0
r = 0
ta = [ [0,-1], [1,0], [0,1], [-1,0] ]
ts = %w{北 東 南 西}
str.split(/,\s*/).each{|ch|
case ch
when '1'; r = (r - 1) % 4
when '2'; r = (r + 1) % 4
when '3'
x += ta[r][0]
y += ta[r][1]
end
puts "%3d %3d %s" % [ x, y, ts[r] ]
}
end
moves( "1, 3, 3, 2, 3" )
moves( "3, 2, 3, 1" )
2020/05/23(土) 03:35:28.55ID:zNKp3hWU
>>579 Ruby
def moves( str )
x, y = 0, 0
dx, dy = 0, -1
ts2 = %w{北 西 \ 東 南 }
str.split(/,\s*/).each{|ch|
case ch
when '1'; dx, dy = dy, -dx
when '2'; dx, dy = -dy, dx
when '3'
x += dx
y += dy
end
puts "%3d %3d %s" % [ x, y, ts2[dx + 2*dy + 2] ]
}
end
moves( "1, 3, 3, 2, 3" )
moves( "3, 2, 3, 1" )
583デフォルトの名無しさん
垢版 |
2020/05/23(土) 13:53:09.08ID:zNKp3hWU
>>579 Ruby
Vectorで書き直して歩数を追加

require 'matrix'
def moves( str )
xy = Vector[ 0, 0, 0 ]
v = Vector[ 0, -1, 1 ]
ts = %w{ 北 西 x 東 南 }
str.split(/,\s*/).each{|ch|
case ch
when '1'; v = Vector[ v[1],-v[0], 1]
when '2'; v = Vector[-v[1], v[0], 1]
when '3'; xy += v
end
puts "%3d %3d %3d歩 %s" % [ xy.to_a, ts[v.dot(Vector[1,2,0])+2] ].flatten
}
end
584デフォルトの名無しさん
垢版 |
2020/05/23(土) 14:12:42.14ID:z+y0fCqO
IT掲示板群 ttp://x0000.net/forum.aspx?id=15

学術の巨大掲示板群 - アルファ・ラボ ttp://x0000.net
数学 物理学 化学 生物学 天文学 地理地学
IT 電子 工学 言語学 国語 方言 など

simulationライブラリで純粋な関数式プログラミングをする
ttp://x0000.net/topic.aspx?id=3631-0
UIライブラリ (C#, 2D) を作ったよ
ttp://x0000.net/topic.aspx?id=3688-0
連続と離散を統一した！
ttp://x0000.net/topic.aspx?id=3709-0
4Dエンジン（画像有り）
ttp://x0000.net/topic.aspx?id=3677-0
matrixのライブラリ
ttp://x0000.net/topic.aspx?id=3711-0
ある強力なFor関数
ttp://x0000.net/topic.aspx?id=3630-0
SQLライブラリ
ttp://x0000.net/topic.aspx?id=3675-0
585デフォルトの名無しさん
垢版 |
2020/05/23(土) 20:15:00.25ID:a8T1l8MG
なにこの糖質ヤバ
2020/05/23(土) 20:30:44.22ID:tuPjXkuO
お題: テキトーに木構造を描画せよ。

入力例)
動物→鳥類、哺乳類
鳥類→ペンギン、アヒル、スズメ
哺乳類→ニワトリ、リス
587デフォルトの名無しさん
垢版 |
2020/05/23(土) 21:34:52.27ID:FnKZOoV+
>>586
digraph sample {
subgraph cluster1 {
label="cluster1";
{
動物->鳥類, 哺乳類;
鳥類->ペンギン, アヒル, スズメ;
哺乳類->ニワトリ, リス;
哺乳類, 魚類, 鳥類->アマビエ;
}
}
}
588デフォルトの名無しさん
垢版 |
2020/05/23(土) 21:42:52.29ID:a8T1l8MG
言語は
589デフォルトの名無しさん
垢版 |
2020/05/23(土) 21:58:09.63ID:goh2AXYc
>>586
Java
https://paiza.io/projects/9naiM8Ug7DstB6QdRo0KGw
2020/05/23(土) 22:15:52.40ID:DjbOJG7z
ニワトリっていつから胎生になったんだ
591デフォルトの名無しさん
垢版 |
2020/05/23(土) 22:16:49.59ID:a8T1l8MG
草
592デフォルトの名無しさん
垢版 |
2020/05/23(土) 22:17:57.75ID:a8T1l8MG
>>589
美しい
2020/05/23(土) 23:02:17.36ID:tuPjXkuO
すみません、ニワトリは鳥類でした。
2020/05/23(土) 23:05:51.70ID:tuPjXkuO
>>587
これ、言語はGraphVizだよね。
2020/05/23(土) 23:25:04.33ID:tuPjXkuO
お題: おらがロボ村では、5人の選手が参加するマラソン大会が実施される。マラソンコースは半径500mの円形で、各選手はコースを一周する。
マラソン大会の開始時刻では、5人の選手はスタートラインに並ぶ。各選手を20km/h〜40km/hのランダムな速度でコースに沿って
ゴールに向かって動かし、スタートラインからの相対位置と順位を1分ごとに記録せよ。
2020/05/24(日) 00:55:11.79ID:ekGE4/33
>>579
perl5
https://paiza.io/projects/VT0vZUGgH48Eqf3bKkX7gw
2020/05/24(日) 10:12:01.30ID:wkzwJxq3
>>586 Python
https://ideone.com/1Ix9eX
598デフォルトの名無しさん
垢版 |
2020/05/24(日) 20:12:35.94ID:UpvKbmnk
バグってて草
599デフォルトの名無しさん
垢版 |
2020/05/25(月) 02:07:57.70ID:XU2RCh4p
>>579
Kotlin
https://paiza.io/projects/cbZeTtsisSjTbrNrKoEYXA
2020/05/29(金) 18:40:21.79ID:m+W9okcT
お題: 残りHDD容量を表示せよ
2020/05/29(金) 19:17:15.13ID:9dxE0GBz
>>600 bash

df
2020/05/29(金) 19:46:09.73ID:Yyjc625Z
>>600　C++ Windows

#include <Windows.h>
#include <iostream>

int main()
{
auto drives = GetLogicalDrives();
for (int i = 0; i < 32; ++i) {
if (drives & (1 << i)) {
char directory[] = "A:";
directory[0] += i;
ULARGE_INTEGER freeBytes;
if (GetDiskFreeSpaceExA(directory, nullptr, nullptr, &freeBytes) != 0) {
std::cout << directory << " " << freeBytes.QuadPart << std::endl;
}
}
}
}
603デフォルトの名無しさん
垢版 |
2020/05/30(土) 02:41:31.20ID:k7WMMDxu
>>600

#!/bin/sh

echo '残りHDD容量'
604デフォルトの名無しさん
垢版 |
2020/05/30(土) 12:21:03.45ID:cB0ZATSK
>>600
Java
https://paiza.io/projects/LLf-DZj1h4XMrKZJOS600A
2020/05/30(土) 16:03:33.28ID:fWBi0L4D
>>602
if (drives & (1 << i)) {

↑これなにやってるの？
2020/05/30(土) 16:05:02.54ID:fWBi0L4D
すまん自己解決したわ
有効なドライブを判定してるのか
2020/05/30(土) 19:03:38.98ID:Lpj0RiOq
かっこは不要
608デフォルトの名無しさん
垢版 |
2020/05/30(土) 19:59:18.23ID:/dD/Ru8o
代々受け継がれた秘伝では
ビット演算にはいやらしいほど大量の括弧を付ける
2020/05/30(土) 20:08:41.76ID:40+e0S4G
Cの条件文の後の式も
必ずカッコ{}でくくらないと
気持ち悪くなる体になってしまった
2020/05/30(土) 21:12:47.77ID:9C2F9M2+
もうlispがいいんじゃないかな
2020/05/30(土) 21:17:19.25ID:sUAkYwHz
草
2020/05/31(日) 08:43:10.84ID:KExNe49d
お題: アリが20匹現れた。ハエ叩き棒でやっつけろ。ジョークプログラムなので、なるべく面白いのを頼む。
613デフォルトの名無しさん
垢版 |
2020/05/31(日) 10:31:10.30ID:Rl1Q+n8J
前出のお題の修正：
5以上の素数に対して、6の剰余は±1のいずれかになる。剰余を順次加算していくと
合計が0になる時の素数は
7, 13, 19, 37, 43, 79, 163, 223, 229
が表れる。次に表れる素数は何か。
2020/05/31(日) 11:28:53.67ID:nFHAPcg5
>>613
C && sh
is_prime.exe のソース
https://pastebin.com/JSJU2GWt
これは is_prime.exe 5 600 で5以上600以下の素数を整形して表示する
また、 exe 7 => 7, exe 8 => のように引数1つの時はそれが素数である場合のみ返す
そんな exe を使えば題意の229の次は521だと分かる

~/bin/is_prime.exe 5 600 |perl -pe 's/\s+/\n/g'| head -200 | sed '/^$/d' | perl -ne 'chomp;m/\A(\d+)/;$total += $1; print "$_ ($total)\n" if ($total %6 == 0)'
7 (12)
13 (36)
19 (72)
37 (192)
43 (276)
79 (786)
163 (2742)
223 (4656)
229 (5112)
521 (23064)
569 (26364)
593 (28692)
2020/05/31(日) 14:47:31.82ID:nFHAPcg5
出力コードを簡素化した。結果は同様
~/bin/is_prime.exe 5 600 |perl -pe 's/\s+/\n/g'| head -200 | sed '/^$/d' | perl -ne '$total += $_; print if ($total %6 == 0)'
7
13
19
37
43
79
163
223
229
521
569
593
616デフォルトの名無しさん
垢版 |
2020/05/31(日) 16:58:02.85ID:cODyvW7N
>>614
済みませんが、
素数の時、6の剰余+1か-1のいずれかを使って
加算してください。
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況