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

**デフォルトの名無しさん** · 2020/03/13(金) 01:42:47.06

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

【出題と回答例】
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/17(日) 11:38:13.44

>>566

**デフォルトの名無しさん** · 2020/05/17(日) 13:24:57.94

remember perl barber

**デフォルトの名無しさん** · 2020/05/17(日) 18:19:26.07

>>525
Rust
https://paiza.io/projects/b01Tx5Gn26u84j2G35fEyg

**デフォルトの名無しさん** · 2020/05/18(月) 01:41:36.07

>>525
Kotlin

https://paiza.io/projects/wKpfV5894x2rnGj0zN8hHw

allow, deny は共に複数指定可能にした。

**デフォルトの名無しさん** · 2020/05/19(火) 20:39:41.77

｢慶應卒の学歴なんていらない｣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.23

お題
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.75

>>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
}

**デフォルトの名無しさん** · 2020/05/20(水) 23:05:23.83

お題:二重振り子を数値計算でシミュレーションせよ

**デフォルトの名無しさん** · 2020/05/20(水) 23:17:13.51

運動方程式
https://ja.wikipedia.org/wiki/%E4%BA%8C%E9%87%8D%E6%8C%AF%E3%82%8A%E5%AD%90

**蟻人間** ◆T6xkBnTXz7B0 · 2020/05/22(金) 12:58:56.52

お題: 入力文字列に機種依存文字が含まれているか判定するプログラム。

**デフォルトの名無しさん** · 2020/05/22(金) 19:35:14.22

>>576
Java
https://paiza.io/projects/JZK-wb067CJVSzCDtiU8DQ

**デフォルトの名無しさん** · 2020/05/22(金) 19:52:54.26

>>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 );
}

**蟻人間** ◆T6xkBnTXz7B0 · 2020/05/22(金) 21:10:30.88

お題: XY平面上の謎のキャラクターPが原点に居てY軸(北)の方向を向いている。Pは何回か次のいずれかのアクションを行う。
アクション1. 90度左に自転する。
アクション2. 90度右に自転する。
アクション3. 一つ前に進む。
入力は、カンマ区切りのアクション番号の並びとする。Pは入力されたアクションを順番に実行する。
出力は、入力の各アクションを実行した後の位置と向き(東西南北)を順番に並べたものとする。

入力例1) 1, 3, 3, 2, 3
入力例2) 3, 2, 3, 1

**デフォルトの名無しさん** · 2020/05/23(土) 00:30:40.04

>>579
Java
https://paiza.io/projects/v1dFH3FekqpgNn5LjZRY_w

**デフォルトの名無しさん** · 2020/05/23(土) 02:20:43.28

>>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.55

>>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" )

**デフォルトの名無しさん** · 2020/05/23(土) 13:53:09.08

>>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

**デフォルトの名無しさん** · 2020/05/23(土) 14:12:42.14

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

**デフォルトの名無しさん** · 2020/05/23(土) 20:15:00.25

なにこの糖質ヤバ

**蟻人間** ◆T6xkBnTXz7B0 · 2020/05/23(土) 20:30:44.22

お題: テキトーに木構造を描画せよ。

入力例)
動物→鳥類、哺乳類
鳥類→ペンギン、アヒル、スズメ
哺乳類→ニワトリ、リス

**デフォルトの名無しさん** · 2020/05/23(土) 21:34:52.27

>>586
digraph sample {
subgraph cluster1 {
label="cluster1";
{
動物->鳥類, 哺乳類;
鳥類->ペンギン, アヒル, スズメ;
哺乳類->ニワトリ, リス;
哺乳類, 魚類, 鳥類->アマビエ;
}
}
}

**デフォルトの名無しさん** · 2020/05/23(土) 21:42:52.29

言語は

**デフォルトの名無しさん** · 2020/05/23(土) 21:58:09.63

>>586
Java
https://paiza.io/projects/9naiM8Ug7DstB6QdRo0KGw

**デフォルトの名無しさん** · 2020/05/23(土) 22:15:52.40

ニワトリっていつから胎生になったんだ

**デフォルトの名無しさん** · 2020/05/23(土) 22:16:49.59

草

**デフォルトの名無しさん** · 2020/05/23(土) 22:17:57.75

>>589
美しい

**蟻人間** ◆T6xkBnTXz7B0 · 2020/05/23(土) 23:02:17.36

すみません、ニワトリは鳥類でした。

**蟻人間** ◆T6xkBnTXz7B0 · 2020/05/23(土) 23:05:51.70

>>587
これ、言語はGraphVizだよね。

**蟻人間** ◆T6xkBnTXz7B0 · 2020/05/23(土) 23:25:04.33

お題: おらがロボ村では、5人の選手が参加するマラソン大会が実施される。マラソンコースは半径500mの円形で、各選手はコースを一周する。
マラソン大会の開始時刻では、5人の選手はスタートラインに並ぶ。各選手を20km/h～40km/hのランダムな速度でコースに沿って
ゴールに向かって動かし、スタートラインからの相対位置と順位を1分ごとに記録せよ。

**デフォルトの名無しさん** · 2020/05/24(日) 00:55:11.79

>>579
perl5
https://paiza.io/projects/VT0vZUGgH48Eqf3bKkX7gw

**デフォルトの名無しさん** · 2020/05/24(日) 10:12:01.30

>>586 Python
https://ideone.com/1Ix9eX

**デフォルトの名無しさん** · 2020/05/24(日) 20:12:35.94

バグってて草

**デフォルトの名無しさん** · 2020/05/25(月) 02:07:57.70

>>579
Kotlin
https://paiza.io/projects/cbZeTtsisSjTbrNrKoEYXA

**デフォルトの名無しさん** · 2020/05/29(金) 18:40:21.79

お題: 残りHDD容量を表示せよ

**デフォルトの名無しさん** · 2020/05/29(金) 19:17:15.13

>>600 bash

df

**デフォルトの名無しさん** · 2020/05/29(金) 19:46:09.73

>>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;
}
}
}
}

**デフォルトの名無しさん** · 2020/05/30(土) 02:41:31.20

>>600

#!/bin/sh

echo '残りHDD容量'

**デフォルトの名無しさん** · 2020/05/30(土) 12:21:03.45

>>600
Java
https://paiza.io/projects/LLf-DZj1h4XMrKZJOS600A

**デフォルトの名無しさん** · 2020/05/30(土) 16:03:33.28

>>602
if (drives & (1 << i)) {

↑これなにやってるの？

**デフォルトの名無しさん** · 2020/05/30(土) 16:05:02.54

すまん自己解決したわ
有効なドライブを判定してるのか

**デフォルトの名無しさん** · 2020/05/30(土) 19:03:38.98

かっこは不要

**デフォルトの名無しさん** · 2020/05/30(土) 19:59:18.23

代々受け継がれた秘伝では
ビット演算にはいやらしいほど大量の括弧を付ける

**デフォルトの名無しさん** · 2020/05/30(土) 20:08:41.76

Cの条件文の後の式も
必ずカッコ{}でくくらないと
気持ち悪くなる体になってしまった

**デフォルトの名無しさん** · 2020/05/30(土) 21:12:47.77

もうlispがいいんじゃないかな

**デフォルトの名無しさん** · 2020/05/30(土) 21:17:19.25

草

**蟻人間** ◆T6xkBnTXz7B0 · 2020/05/31(日) 08:43:10.84

お題: アリが20匹現れた。ハエ叩き棒でやっつけろ。ジョークプログラムなので、なるべく面白いのを頼む。

**デフォルトの名無しさん** · 2020/05/31(日) 10:31:10.30

前出のお題の修正：
5以上の素数に対して、6の剰余は±1のいずれかになる。剰余を順次加算していくと
合計が0になる時の素数は
7, 13, 19, 37, 43, 79, 163, 223, 229
が表れる。次に表れる素数は何か。

**デフォルトの名無しさん** · 2020/05/31(日) 11:28:53.67

>>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.82

出力コードを簡素化した。結果は同様
~/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

**デフォルトの名無しさん** · 2020/05/31(日) 16:58:02.85

>>614
済みませんが、
素数の時、6の剰余+1か-1のいずれかを使って
加算してください。

**デフォルトの名無しさん** · 2020/05/31(日) 18:09:04.04

>>613
問題の意味がわからない。

> 5以上の素数に対して、6の剰余は±1のいずれかになる。

割り算の余りがマイナスになるというのはどういう事なのか？

**デフォルトの名無しさん** · 2020/05/31(日) 18:19:07.46

同値なんだから別にいいだろ
宿題か？

**デフォルトの名無しさん** · 2020/05/31(日) 18:19:40.13

>>617
-1 = n - 1 mod n

**デフォルトの名無しさん** · 2020/05/31(日) 18:21:00.56

整数でいえば余り1,5の状態だな

>>616
No
mod 6 で閉じてて可換な四則計算順序を指定する意図が不可解

**デフォルトの名無しさん** · 2020/05/31(日) 18:24:13.24

ああーそれとも剰余の合計rに対して
剰余が5 のときr--して剰余が1のときr++しろってことかな？
なら>>613は解無しじゃないのか

**デフォルトの名無しさん** · 2020/05/31(日) 18:25:46.74

これは荒れる予感

**デフォルトの名無しさん** · 2020/05/31(日) 20:07:05.33

>>613
608981812891

**デフォルトの名無しさん** · 2020/05/31(日) 20:09:27.86

>>619
(n - 1) mod n の計算結果は n - 1 になるが? 5 mod 6 = 5 になるだろ普通に計算すれば。
余りはどうやっても負の数にならんよな。余りなんだから。

**デフォルトの名無しさん** · 2020/05/31(日) 20:13:45.18

>>624
いや -1 も n-1 も同値だっつーの

**デフォルトの名無しさん** · 2020/05/31(日) 20:15:11.96

落ち着けよ
ガキじゃねえんだからさぁ…

**デフォルトの名無しさん** · 2020/05/31(日) 20:17:14.86

>>625
それはどういうルールなのか？普通の数学や数値計算とルールが違うのであればその独自ルールを全て書いてくれ。
書いてくれればそれに合わせて考えるから。

**デフォルトの名無しさん** · 2020/05/31(日) 20:18:31.19

>>627
普通の文脈で、数学において x = -1 mod n ⇔ x = n - 1 mod n なんですが、あなたはどの宇宙の数学を学んできたんですか

**デフォルトの名無しさん** · 2020/05/31(日) 20:23:35.02

小学生に算数教えてるみたいだな

**デフォルトの名無しさん** · 2020/05/31(日) 20:25:54.32

>>628
じゃあどうやって計算したら結果を -1 にして出せるんだ？

**デフォルトの名無しさん** · 2020/05/31(日) 20:30:52.80

>>630
いやだからそもそも剰余環境Z/nZにおいては -1 も n - 1 も同じ数字なんだっての
なんで理解できないの

**デフォルトの名無しさん** · 2020/05/31(日) 20:32:20.04

算数もわからんガイジに群論で説明しても分かるわけないやろ

**デフォルトの名無しさん** · 2020/05/31(日) 20:35:39.68

>>631
「剰余環境Z/nZ」とは何か？

**デフォルトの名無しさん** · 2020/05/31(日) 20:54:07.01

いきなり専門用語使いだすオタク

**デフォルトの名無しさん** · 2020/05/31(日) 20:56:47.94

ほんとお前ら数学の話題大好きだよな

◆QZaw55cn4c · 2020/05/31(日) 20:56:59.96

>>630
n を自然数として、
6n + 5 の形である整数の集合…①
と
6n - 1 の形である整数の集合…②
があったとき、よくよく考えると ①と②は合致しませんか？

>>631
もっと簡単な言葉で説明できませんか？難しい言葉でしか説明できないのなら、それは本質がわかっていないということになりませんか？

>>632
馬鹿にあわせて説明できる人こそ真の天才だとおもいますが、そういう人はなかなかいないようですね

**デフォルトの名無しさん** · 2020/05/31(日) 20:57:37.82

数学の話してんなら普通やろ
いつもの数学コンプレックスニキが自演してんやろな

**デフォルトの名無しさん** · 2020/05/31(日) 20:58:41.07

>>636
お前は留数定理から勉強しなおせ

**デフォルトの名無しさん** · 2020/05/31(日) 21:00:21.63

>>623
ありがとうございます。まだ確認できていませんが、
素数が6の剰余で＋１型とー１型が同じ割合で存在するなら合計の零点は
もっと頻繁にあると思っていました。

**デフォルトの名無しさん** · 2020/05/31(日) 21:09:29.45

同値とかいう言い方してるから伝わないんやろ
そんなこともわからんのか

**デフォルトの名無しさん** · 2020/05/31(日) 21:10:19.67

新しいルールが追加された瞬間であった >639

**デフォルトの名無しさん** · 2020/05/31(日) 21:10:27.44

同値なんて中学校で習ったがここには小学生しかおらんのか？

**デフォルトの名無しさん** · 2020/05/31(日) 21:11:20.00

moduloは小学生で習ってた(中学受験のため)

**デフォルトの名無しさん** · 2020/05/31(日) 21:12:53.15

ググれば10秒でわかることをいちいち聞いてくるアホ共
最終的には足し算の定義聞かれてペアノの公理説明することになりそうだなｗ

**デフォルトの名無しさん** · 2020/05/31(日) 21:14:02.77

>>613 こんな感じじゃないかなあ
C++
#include <iostream>
const int MAXENT = 1000000;
int prime_table[MAXENT] = {3};
int main()
{
　int found = 0, s = 0, d = 4;
　for(__int64 p = 5;;p += (d = 6 - d)) {
　　for(int i = 0;;i ++) {
　　　int can = prime_table[i];
　　　if( p < can * can || i >= found ) {
　　　　if( p < MAXENT ) { prime_table[found ++] = (int)p; }
　　　　if( (s += d - 3) == 0 ) { std::cout << p << std::endl; }
　　　　break;
　　　}
　　　if( p % can == 0 ) { break; }
　} }
　return 0;
}

**デフォルトの名無しさん** · 2020/05/31(日) 21:22:36.66

「n-1と-1は同値」
これ本来の同値ってワードの使い方として合ってるの？
まあ感覚でわかるけどややこしくしてる要因だな

**デフォルトの名無しさん** · 2020/05/31(日) 21:24:23.77

>>646
「x = -1 mod n ⇔ x = n - 1 mod n 」ってわざわざ読み下してるんですがあなたの眼球にはピンポン玉でもつまっているのですか？

**デフォルトの名無しさん** · 2020/05/31(日) 21:26:38.45

数学オタは意地でもスマートな記述にこだわるから一般人には伝わりにくい
もっと日常語で説明して

**デフォルトの名無しさん** · 2020/05/31(日) 21:27:53.34

このスレ絶望的に算数できないやつが定期的に荒らすよな

**デフォルトの名無しさん** · 2020/05/31(日) 21:28:33.09

ヲタじゃなくてもググればすぐわかることだろ……

**デフォルトの名無しさん** · 2020/05/31(日) 21:29:19.97

数学得意なやつにとって当たり前で簡単なことは勝手に算数呼ばわりする奴も定期的に湧くよな

**デフォルトの名無しさん** · 2020/05/31(日) 21:30:09.80

馬鹿が開き直ったらそらなんでも通るわ

**デフォルトの名無しさん** · 2020/05/31(日) 21:30:56.41

実際中学生レベルの算数をして算数と呼んでいるのですが、あなたたちは中学校で算数を学ばなかったのですか？

**デフォルトの名無しさん** · 2020/05/31(日) 21:31:41.21

modなんてちょっといいとこの小学生でも勉強するがな

**デフォルトの名無しさん** · 2020/05/31(日) 21:32:26.20

中学でやるのは数学ですよね。
それをわざわざ算数と呼ぶところに悪意が満ち溢れていてまさに荒らしの鑑ですね。

**デフォルトの名無しさん** · 2020/05/31(日) 21:33:22.27

単発ＩＤで必死だなお前
中学の数理技術を教える授業をなんて呼ぶかなんて些末な問題だってわからないくらいに頭が悪いんだな

**デフォルトの名無しさん** · 2020/05/31(日) 21:33:43.80

負の数に関するmodは中学数学ではありません！

**デフォルトの名無しさん** · 2020/05/31(日) 21:34:27.70

さすがに中学校で習うものを一般的な数学と呼ぶのは無理があるやろｗｗｗ

**デフォルトの名無しさん** · 2020/05/31(日) 21:34:47.98

>>648
こんな風に表現してみてはどうかねえ
5以上の素数pで、
p以下にある6で割って1余る素数の個数と
p以下にある6で割って5余る素数の個数とが一致するのは、小さい順に
7, 13, 19, 37, 43, 79, 163, 223, 229
となるが、その次に一致する素数は何か？

**デフォルトの名無しさん** · 2020/05/31(日) 21:35:23.12

>>622にフィールズ賞！

**デフォルトの名無しさん** · 2020/05/31(日) 21:36:29.31

このスレを算数未履修の未開人が見てることに驚きだわ

**デフォルトの名無しさん** · 2020/05/31(日) 21:37:02.93

世の中の90%は負の数のmodを扱えない

**デフォルトの名無しさん** · 2020/05/31(日) 21:40:54.94

本当に単発のIDばっかりだな

**デフォルトの名無しさん** · 2020/05/31(日) 21:41:19.34

そんなmodかしい事実があったなんて

**デフォルトの名無しさん** · 2020/05/31(日) 21:44:01.19

おねがい mod mod

**デフォルトの名無しさん** · 2020/05/31(日) 21:44:24.93

いま>>645のプログラムを回してるんだけど、
答えが12桁なんだったら、結果が出るのは数日後になるんじゃないかなあ
もっと早い計算機で回してもらうか、アルゴリズムの改良が求められるね。

Perl でこんなのも作ったけど遅くて話にならない
use Math::Prime::Util next_prime; for($p = 5;;$p = next_prime($p)) { $p % 6 == 1 ? $s ++ : $s --; print "$p\n" if $s == 0; }