[過去ﾛｸﾞ] プログラミングのお題スレ Part17 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
853: 2020/06/12(金)11:36 ID:haT7GszX(2/4) AAS
>>851
値は15桁まで合ってると思いますよ。

プログラムのお題なんでコードを載せていただけると幸いですが。
何らか組んだんですよね？
854: 2020/06/12(金)12:49 ID:Q2+Sd6Nx(1/2) AAS
しまった
係数 (1/3) がdoubleのままだったんでdouble精度になってしまった
855: 2020/06/12(金)12:50 ID:Q2+Sd6Nx(2/2) AAS
家に帰ったらdouble版をアップします
ひたすら乱数探索
856(1): 2020/06/12(金)15:14 ID:6Yfh5mGy(1/2) AAS
>>849
えー 凸にしたら10面になっちゃう
画像ﾘﾝｸ[jpg]:imgur.com
857: 2020/06/12(金)17:08 ID:M5MGuP1h(1/2) AAS
>>856
それも凸じゃないだろ
858: 2020/06/12(金)17:09 ID:M5MGuP1h(2/2) AAS
あ、すまん、そういうことかw
859: 2020/06/12(金)17:33 ID:6Yfh5mGy(2/2) AAS
´+ω+`
860: 2020/06/12(金)18:47 ID:kFexpNJ3(1) AAS
>>826
Ruby で

text = <<'TEXT' # \ を解釈しない
フグ亜目
フグ亜目\ハリセンボン科
フグ亜目\ハリセンボン科\ハリセンボン属
フグ亜目\ハリセンボン科\ハリセンボン属\ハリセンボン
フグ亜目\マンボウ科
フグ亜目\マンボウ科\クサビフグ属
フグ亜目\マンボウ科\クサビフグ属\クサビフグ
省18
861(3): 2020/06/12(金)19:40 ID:ywP+aDtr(4/6) AAS
>>835
外部ﾘﾝｸ:ideone.com
862(1): 2020/06/12(金)19:41 ID:ywP+aDtr(5/6) AAS
0.07434486809322999110989619368561104639139465256280075733904874421666917664911993460556242342418454035329397732967289108376252183488881295875664070934129575634827025621624683049348057877455258195173727352356013738382644505372784969303844994902036116602401810098334065219605813513311533511174260033990459633153548001338432276618035960031832154258304694684989102438831680515365572871146875031327576991273892059152446734535128273692394822907010528329236904909366291990338992899295703583566824654618008406013296199027300917662863617783075767465771504776626571228664315942541587700314169499095063254202509152441676340208925338471982724370712866011599553438930619611265418988185782338154673314730488687674137034907531619005947724301353643581914084747714077649289547685930833278053943700887036591347108420548965969583488831450816524757283812848039192907796866305854763801905888387806167102792468923
863: 2020/06/12(金)20:27 ID:pHzA75h5(1) AAS
ルートとか使うと何の値なの
864(1): 2020/06/12(金)20:28 ID:Wrm78wlA(1) AAS
>>861のコードはわかるけど、>>862の桁数はどうやったんだろう
865: 2020/06/12(金)20:32 ID:6LTYSgwt(1/3) AAS
´°Д°｀いったいどんな形なんだ
866(1): 2020/06/12(金)20:54 ID:H09Mliia(1) AAS
>>864
scalarを自作8192bit floatライブラリにして計算しました
全部はれなかったのではれたぶんだけ
探索方法は全く同じです
頂点座標は体積最大値の半分くらいの桁数で求まるようです

今回は速度が問題にならなかったので力業のままで

8面体は自力で面の構成を考えたけど
9面以上はコンピューターに考えさせないとキビシイかな？
867(1): 2020/06/12(金)21:00 ID:haT7GszX(3/4) AAS
>>861
お見事です

ま、頂点の座標があったら図を描くのも難しくはないですけどね
画像ﾘﾝｸ[gif]:i.imgur.com
868: 2020/06/12(金)21:12 ID:6LTYSgwt(2/3) AAS
>>867
はヘェ〜スゲーな〜
どんな勉強したらこんなの解けるんだろ
理屈の解説は>>861のコードを読み解くしか無いですかね？
頂点を求める考え方や手順の解説お願いします。
869(2): 2020/06/12(金)21:20 ID:ywP+aDtr(6/6) AAS
6角柱がハズレだとわかった後
6分で思い付いた形
すごいでしょ？
さすが数オリ経験者の東大数学科卒
870: 2020/06/12(金)22:01 ID:6LTYSgwt(3/3) AAS
>>869
>840-841は6分かも知れないけど
出題から3時間後>>837で答えてるのは
答えを知ってたのでは？
何処で習うんだか、というか有名な立体でプラトンとか名前付いてたりするんかな
871: 2020/06/12(金)22:38 ID:haT7GszX(4/4) AAS
>>866
＞8面体は自力で面の構成を考えたけど
＞9面以上はコンピューターに考えさせないとキビシイかな？

そうねえ。
面の構成まで計算できたら汎用性があっていいし、何より「本当にコレで最大なのか？」ってとこで悩まなくてもいいですね
872: 2020/06/13(土)02:39 ID:2efcKYf6(1) AAS
>>869
すごいって言われたい症候群
2chｽﾚ:tech
コンプレックスの裏返しで自演
心療内科行け
873: 2020/06/13(土)09:06 ID:AV9cNEOe(1) AAS
私にもファンが出来たか
5か月前の書き込みを覚えていてくれるとは

では次5か月後にあらわれます
874: 2020/06/13(土)11:29 ID:B51+AHJt(1) AAS
このスレにキチガイがいるな
875(1): 540 2020/06/13(土)11:52 ID:P7Ehsk1I(1) AAS
>>834 Perl5、こういうﾌﾟﾛｸﾞﾗﾑでは日にち曜日計算を自分で考える前に、いつも使っているﾓｼﾞｭｰﾙの利用をすぐ思い浮かんでしまう

for (qw{02 03 07 10 14 17 21 24 28 30 31}) {
　$date = "2020-05-$_";
　$t = Time::Piece->strptime($date, '%Y-%m-%d');
　$n = 1 + int($t->mday / 7);
　$dw = $n . $t->day(qw{日 月 火 水 木 金 土});
　$t1 = $t - ONE_DAY * ($t->mday - 1);
　$wk = 1 + int(($t->mday + $t1->_wday - 1) / 7);
　print "$date: 第$wk週目の第$dw曜日です。\n";
}
省13
876: 540 2020/06/13(土)14:11 ID:+1OrBM6u(1) AAS
>>875
先頭に
use Time::Piece;
use Time::Seconds;
が抜けてたてorz
877: 2020/06/13(土)20:11 ID:0DJnKnE8(1) AAS
>>834
Java
外部ﾘﾝｸ:paiza.io
878(3): 2020/06/14(日)16:08 ID:uU7ZglUF(1) AAS
お題
フィボナッチ数列のN番目の項を求めよ。
ただし非常に大きなNにも対応するために計算量をO(logN)に抑える事。
879: 2020/06/14(日)16:39 ID:OziIXX0s(1) AAS
>>878
最速のフィボナッチ数計算を考える | 雑記帳
外部ﾘﾝｸ:blog.miz-ar.info

行列でも使えばいいの？
880: 2020/06/14(日)16:56 ID:ajoLWV+R(1/3) AAS
>>878 perl
use bigint;

$ap = $am = $bp = $b0 = 1;
$a0 = $bm = 0;

for($m = $N = $ARGV[0]; $m ;$m /= 2) {
($ap, $a0, $am) = ($ap * $bp + $a0 * $b0, $ap * $b0 + $a0 * $bm, $a0 * $b0 + $am * $bm) if $m % 2;
($bp, $b0, $bm) = ($bp * $bp + $b0 * $b0, $bp * $b0 + $b0 * $bm, $b0 * $b0 + $bm * $bm)
}
print "F_$N = $a0\n";
881(7): 蟻人間 ◆T6xkBnTXz7B0 2020/06/14(日)17:02 ID:VVtwWz8i(1) AAS
お題:

外部ﾘﾝｸ[txt]:google.com

をダウンロードするプログラム。
882(1): 2020/06/14(日)17:10 ID:ajoLWV+R(2/3) AAS
>>878 Perl
# 簡略化
use bigint;

$am = $b0 = 1;
$a0 = $bm = 0;

for($m = $N = $ARGV[0]; $m ;$m /= 2) {
$a0b0 = $a0 * $b0;
$b0b0 = $b0 * $b0;
($a0, $am) = ($a0b0 + $am * $b0 + $a0 * $bm, $a0b0 + $am * $bm) if $m % 2;
($b0, $bm) = ($b0b0 + 2 * $b0 * $bm, $b0b0 + $bm * $bm)
省2
883: 2020/06/14(日)17:17 ID:shDbklTU(1) AAS
>>881
Java
外部ﾘﾝｸ:paiza.io
884(1): 蟻人間 ◆T6xkBnTXz7B0 2020/06/14(日)17:41 ID:fnlUHuFp(1) AAS
>>881 C++/Win32
#include <windows.h>
#include <urlmon.h>
#include <stdio.h>

int main(void)
{
CoInitialize(NULL);
HRESULT hr = URLDownloadToFileA(NULL,
"外部ﾘﾝｸ:google.com
"robots.txt",
省7
885: 2020/06/14(日)17:45 ID:ajoLWV+R(3/3) AAS
なおNが大きくなると扱う数の桁数がNに比例して増える
よって>>882の乗算の回数はO(logN)であるが、
計算量はO(logN)に抑えることはできない
おそらくO(N^2)とか、乗算を効率化してもO(N*(logN)^2)あたりではないか
886: download.html 2020/06/14(日)17:50 ID:iw/MaqZh(1) AAS
>>881 HTML
<a href="外部ﾘﾝｸ:google.com download="外部ﾘﾝｸ[txt]:google.comのダウンロード</a>
887(1): 2020/06/15(月)03:05 ID:7TtRjdEi(1) AAS
お題: (835の類題)表面積が1平米である九面体のうち、体積が最大となる立体について、その体積の値を15桁以上の精度で計算せよ。

※ 立体の形状をあらかじめ限定しないアルゴリズムがあればなお良い。
888: 2020/06/15(月)03:19 ID:fk9hS06M(1) AAS
>>884 標準コマンド
Windows 10 だったら多くのOSと同様に標準で curl が使えるから
curl -LO 外部ﾘﾝｸ[txt]:google.com
889: 2020/06/15(月)03:46 ID:MkSPN7gS(1/2) AAS
>>881

#!/bin/sh

wget 外部ﾘﾝｸ[txt]:google.com
890: 2020/06/15(月)03:55 ID:MkSPN7gS(2/2) AAS
>>881
Kotlin script

java.net.URL("外部ﾘﾝｸ:google.com

script じゃなくてもほぼ同じ。main() の中に入れるだけ。
891: 2020/06/15(月)06:06 ID:C/NDiCRq(1) AAS
>>881 Ruby
require 'open-uri'
$><<open('外部ﾘﾝｸ[read]:google.com
892: 540 2020/06/15(月)21:52 ID:rjrfpKII(1) AAS
>>881 Perl5

use LWP::Simple;
use LWP::Protocol::https;
print mirror('外部ﾘﾝｸ:google.com './robots.txt'), "\n";

実行結果
~ $ perl 17_881_https_mirror_robots_txt.pl
200
~ $ ls -o robots.txt
-rw-r--r-- 1 user 7035 Jun 9 03:00 robots.txt
893(3): 2020/06/19(金)07:19 ID:sd/vvo+p(1/2) AAS
>>659
外部ﾘﾝｸ:ideone.com
10日以上回してようやく229の次が出た
先頭から30個は以下。A098044 の記載とも一致
7, 13, 19, 37, 43, 79, 163, 223, 229, 608981812891, 608981812951, 608981812993, 608981813507, 608981813621, 608981813819, 608981813837, 608981813861, 608981813929, 608981813941, 608981814019, 608981814143, 608981814247, 608981814823, 608981814829, 608981815027, 608981815051, 608981815069, 608981816791, 608981816803, 608981816893
894(1): 2020/06/19(金)07:48 ID:fUKeUVUY(1) AAS
>>893
VPSは１０コアぐらい使いましたか？
それにしても興味深い
895: 2020/06/19(金)19:45 ID:sd/vvo+p(2/2) AAS
>>894
いや、コード見てもらったらわかるようにシングルスレッドです。
工夫して並列化したらコアの数だけ高速化できる余地はあるので
誰かやってみてほしいですよ。

計算を続けると6千億台に1万個以上解が見つかります。
896(2): 2020/06/19(金)20:32 ID:i/tLMeO3(1/2) AAS
連続した数調べるならエラトステネスの篩したほうが速いんじゃないの
897: 2020/06/19(金)20:58 ID:ZwD0GWBA(1) AAS
だね
シングルスレッドで1時間くらいで>>893
898: 2020/06/19(金)21:30 ID:K9F3G5pm(1) AAS
篩を使った方法は>>645(修正>>695)
こんなん１時間でいける？
899(1): 2020/06/19(金)21:45 ID:Zkd+c+DW(1) AAS
>>896
えっともしかしてそれは
6000億ちょっとの要素数の配列を扱うと言ってますか？
900: 2020/06/19(金)21:47 ID:i/tLMeO3(2/2) AAS
>>899
言ってません
901: 2020/06/19(金)22:02 ID:eY6TPFbX(1) AAS
6000億ちょっとの要素数の配列を扱います
902: 2020/06/19(金)23:21 ID:f1v5pXiA(1) AAS
エラとステネスの篩はビット単位で判定させれば8分の1の要素数で済む
もっと効率化すれば32分の1くらいになったはず
まぁそれでも億単位の要素を使うわけだけど
903: ◆QZaw55cn4c 2020/06/19(金)23:38 ID:G1hCl5k3(1) AAS
私なら篩を一定の大きさに制限して窓として扱い、
試し割り法と併用しますね
外部ﾘﾝｸ:ideone.com
2chｽﾚ:tech
904: 2020/06/20(土)01:08 ID:0ygWeZMr(1/3) AAS
>>893
そのまま解を検索してみたけど、610968213803 から先は解が見つからなくなった
次はいくつになるかをお題にしてもいいかもね
905(1): 2020/06/20(土)01:10 ID:MHLwREvd(1) AAS
ほとんどの6000億幅が取れない人は、"区間ふるい"で.

「1億の6千回」か「10億の600回」でやるのが現実的(平方分割的感性が必要？)
実際に1億でやってみたら、２時間ほどかかった。

ideonは時間の関係で1億配列にして、
最初と(ログから)最後の1億をやっている。
外部ﾘﾝｸ:ideone.com
906(1): 2020/06/20(土)01:11 ID:0ygWeZMr(2/3) AAS
>>896
いや
篩も試してみたけどやっぱりBPSW法が速かったよ
それと単純に割り算の繰り返しで試すより面白そうだったってのもある
907: 蟻人間 ◆T6xkBnTXz7B0 2020/06/20(土)05:31 ID:vazH2EW2(1) AAS
お題: 整数を記入可能な空欄の横3×縦3マスが格子状に並んでいる。左からh+1番目で上からk+1番目のマスに書かれている整数を「C(h, k)」と表すことにする。
ただし、空欄のときやマスの範囲外の場合は「C(h, k)」はゼロとする。
C(h, k)の位置に整数mを鉛筆で記入する手続きを「P(h, k, m)」と表すことにする。
手続きにおいてはC(h, k)は入れ子を許し、演算子+と-は通常の足し算と引き算を意味するものとする。

(1) 次の手続きのリストを順に実行し、結果を表示せよ。

P(0, 0, 1), P(1, 0, C(0, 0)+2), P(2, 0, C(1, 0)-1),
P(C(1, 0)-1, C(0, 0)+C(2, 0)-2, 5), P(2, 2, C(2, 1)-2).

空欄はゼロで表すものとする。
908: 2020/06/20(土)09:09 ID:0ygWeZMr(3/3) AAS
>>906
前言撤回。>>905のように篩でやったほうが格段に速い。そりゃそうだよね。
909(5): 2020/06/22(月)17:19 ID:GQVtnPwK(1) AAS
お題: CSVをパースせよ

例
入力:
1,abc,"def
ghi",4
2,abc,"def
ghi",4

出力:
[[1, "abc", "def\nghi", 4], [2, "abc", "def\nghi", 4]]
910: 2020/06/22(月)19:02 ID:9Ucc31bE(1) AAS
>>909 Ruby

require 'csv'
$><<CSV.parse($<.read)
911(1): 2020/06/24(水)19:12 ID:q+GJbQMN(1) AAS
>>887
60面体まで出来ました

60面体にもなると
5角形と6角形だけからなるものだけでも
極大点が10個以上にもなって
本当に最大が探せてるのかいまいち確信は持てないんですが...

収束は速いので形の概要が分かれば高精度化は簡単です

14面体以上は全て
5角形が12面、残りが6角形の多面体が最大です
912(2): 2020/06/25(木)04:19 ID:tNtWnOVb(1) AAS
お題：多面体の面の構成を、以下のルールに従う面列で表現する。
頂点のリストで表現された面の集合（例：正四面体なら {[1,2,3],[1,3,4],[1,4,2],[4,3,2]}）で多面体が与えられたとき、
それに対応する多面体の面列表現を出力せよ。

1. 3〜9角形の面の表現を t,q,p,x,h,o,n とする。10角形以上の面がある場合はエラーとしてよい。
2. 適当な面を選び、その面の表現をまず面列の先頭に置く。
3. 選ばれていない面が残っている場合は、それまでの面列の後にハイフンを置き、続けて、既に選ばれている面の外周に接する面を順に列挙する。
　 選ばれていない面がなくなるまでこのプロセスを繰り返す。
4. ハイフンの前後の面列の、それぞれ先頭の文字に対応する面は、互いに接しているものを選ぶ。
5. ハイフンで区切られた面列に、pppp のように繰り返し部分がある場合は、p4 のように繰り返し回数を数字で表す。
　 繰り返しの対象が単一の面でない場合は対象の前後に括弧を置く。この括弧は入れ子にできる。(t(xp)2)2 = txpxptxpxp
省4
913: 2020/06/25(木)04:37 ID:+RECDQKB(1) AAS
>>912
そのルールでは任意の多面体を表現出来ないと思うんですが
914: 2020/06/25(木)08:13 ID:XUZZkb7Y(1) AAS
だね
トポロジー的に球面限定だし
その限定でも
4. が複数可能性があるから
>>912の表現では一意に決まらない
915(1): 2020/06/25(木)08:24 ID:C/HPxaHa(1) AAS
>>909
これってエクセープサれた改行文字で渡されるのが標準的じゃない？
規格としてあるのかわからないけど
916: 2020/06/25(木)09:12 ID:Nd1uEPT+(1) AAS
>>915
RFCだと>>909は合法みたいね
外部ﾘﾝｸ:www.kasai.fm
917: 2020/06/25(木)10:55 ID:fOnLoXil(1) AAS
最初から区切り文字をエスケープする方法まで決まっていたらxmlなんて出てこなかったかもな
918: 2020/06/27(土)03:45 ID:PxUOhUZY(1/2) AAS
>>911
面の数が可変のものを作ってしまったか・・・
20面体、32面体、42面体、72面体あたりが面白い形状だと思うよ
919: 2020/06/27(土)07:33 ID:TsX0h7IG(1/3) AAS
14面体以上は全て5角形6角形のみで
あまり面白くない
対称性が良いか悪いかだけ

現在82面体
手抜きで一部計算オーダーが非常に悪い所があって進まなくなってきた
(面数の5乗オーダー)
100面まで到達するにはコードを変えないとダメかも
920: 2020/06/27(土)16:25 ID:PxUOhUZY(2/2) AAS
対称性が良ければ良いほど最大解となるかというとそうではない
八面体の解をみてもそれはわかるし
四十二面体の対称性の高いのは切稜十二面体だと思うが、解はそれとは違う

面の数の５乗というのは総当たりをしているのかな
高速化するには焼きなまし法等を使うといいのかと思うがどうやるんだろう
921(1): 2020/06/27(土)22:18 ID:TsX0h7IG(2/3) AAS
1面少ない体積最大の立体から1面足した形を探索
なので最大が突然変異すれば最大を見逃すかもしれない
ランダムよりは効率が良さそう

構造計算のオーダーが4乗
ここはおそらく2乗くらいに減らせると思う

極大の収束は良くある微分を使うやつ
収束時も毎回構造計算してるけど
(ほぼ)同じ構造であるのでオーダーは1乗に減らせる
922: 2020/06/27(土)22:21 ID:TsX0h7IG(3/3) AAS
形自体はもう面白くないので
改善はしないかも

むしろ体積が小さい極大の方がいろんな形になって面白い
923: 2020/06/28(日)05:11 ID:pVjwcc2f(1) AAS
AA省
924: 2020/06/28(日)08:32 ID:BWJrAYP0(1) AAS
同じ
925(3): 2020/07/01(水)11:38 ID:EROZsrNo(1) AAS
お題: 3つ以上の言語で動く"Hello World"（標準出力　改行有無不問）
926: 2020/07/01(水)14:23 ID:GoUt95hL(1) AAS
php htmlあとないかな
927: 2020/07/01(水)14:37 ID:xploYGSU(1) AAS
>>925
#! /usr/bin/perl
print "Hello World";

#!/usr/bin/python
print "Hello World"

<？php
print "Hello World";
？>
928: 2020/07/01(水)17:33 ID:S7tqJ4vi(1) AAS
>>925
$ cc hw.c && ./a.out
Hello, World!
$ bash hw.c
Hello, World!
$ perl hw.c
Hello, World!
$ cat hw.c

#if 0 /*
/ 2>\/dev\/null
省9
929: 2020/07/01(水)19:07 ID:QxhyVLlq(1) AAS
>>925 面白いね。俺の回答はつまらんけど

$ cat hello_world
print("Hello World!")'

$ruby hello_world
Hello World!

$perl hello_world
Hello World!

$python hello_world
Hello World!
930(5): 2020/07/02(木)11:54 ID:xIvurPw0(1) AAS
お題: CSV を、JSON に変換せよ

あ,い
1,2

[
["あ","い"],
["1","2"]
]

Convert CSV to JSON
外部ﾘﾝｸ[htm]:www.convertcsv.com
931: 2020/07/02(木)12:21 ID:4foKXCae(1) AAS
あ,い
1,2
2, 3
↓
[
{ "あ": 1, "い": 2 },
{ "あ": 2, "い": 3 }
]
とかじゃないんだな
❯ node
省7
932: 930 2020/07/03(金)09:48 ID:hVBUXcHj(1) AAS
CSV は、ヘッダー行なしの設定です！
933: 2020/07/04(土)14:42 ID:xFbPiC8b(1) AAS
>>930 Ruby

require 'csv'
require 'json'

puts CSV.parse($<.read).to_json # => [["あ","い"],["1","2"]]
934(1): 2020/07/05(日)05:09 ID:w1OPzoRS(1/2) AAS
>>930
sh というか awk というか

( echo あ,い ; echo 1,2 ) | awk -F, 'BEGIN{print "["} { printf "[\"%s\"", $1; for (i = 2; i <= NF; i++) printf ",\"%s\"", $i; print "]"} END{print "]"}'
935: 2020/07/05(日)05:13 ID:w1OPzoRS(2/2) AAS
>>930
>>934はレコードごとのカンマが抜けてた。ちょっと修正。

( echo あ,い ; echo 1,2 ) | awk -F, 'BEGIN{print "["} {if(NR>1)print","; printf "[\"%s\"", $1; for (i = 2; i <= NF; i++) printf ",\"%s\"", $i; printf "]"} END{print "\n]"}'
936: 2020/07/05(日)19:57 ID:MQ9nuMmc(1) AAS
>>909
Java
外部ﾘﾝｸ:paiza.io
937: 2020/07/05(日)22:13 ID:HPvgh2UL(1) AAS
>>909
>>930
何気にPythonの仕様が気になったので。
import csv
import io
import json

with io.StringIO("""
1,abc,"def
ghi",4
2,abc,"def
省8
938(3): 2020/07/10(金)21:08 ID:+HNczGHj(1) AAS
お題："チューリングマシン"を使って一行CSVパーサーを作る
チューリングマシンも自作すること
【CSVの仕様】
・カラム値は「a」、「,」、「"」、の組み合わせ、または「」(値無し)しか取らない
・カラム値に「,」が含まれる場合は「"」で囲む必要がある、含まれない場合はどっちでもいい
・カラム値に「"」が含まれる場合は「\"」とエスケープする
入力例） "aa,a",aa,,"aa\"aa"
チューリングマシンからの出力例、Pythonの場合） [None, 'a', 'a', ',', 'a', None, 'X', 'a', 'a', 'X', 'X', None, 'a', 'a', None, '"', 'a', 'a', None]
（Noneは無視、'X'は区切りポイントを表している）
【開発規模】Pythonで１５行程度
939: 2020/07/11(土)11:44 ID:60oNEnIZ(1/6) AAS
チューリングマシンなのにPythonとは？
意味不明だ
940: 2020/07/11(土)11:48 ID:KPNFpi8s(1/4) AAS
メモリが無限にないので作れましぇん＞＜
941: 2020/07/11(土)11:50 ID:60oNEnIZ(2/6) AAS
正方形の面積を求める問題に対して
この世に正方形なんて存在しないから求められません
とか言っちゃう系？
942: 2020/07/11(土)11:51 ID:KPNFpi8s(2/4) AAS
比喩がとんちんかんだぞ
今回は「チューリングマシンも自作すること」って明言されてますやん
943: 2020/07/11(土)11:56 ID:8xOOoQBu(1/2) AAS
自作チューリングマシンを Pythonの改行15回程度で作れって？神だわ
944: 2020/07/11(土)11:57 ID:60oNEnIZ(3/6) AAS
動作を規定すればよくて
実際に動く機械を作る必要はない
945: 2020/07/11(土)11:59 ID:60oNEnIZ(4/6) AAS
と思ったが
Pythonでエミュレーターを作れって事か？
946(1): 2020/07/11(土)12:00 ID:60oNEnIZ(5/6) AAS
別に無限にメモリがある必要は無いけど
実際に動くどんなプログラムにも限界がある
947(1): 2020/07/11(土)12:01 ID:KPNFpi8s(3/4) AAS
>>946
メモリが有限だったらチューリングマシンとはいいましぇん＞＜
948: 2020/07/11(土)12:01 ID:2Qc0/uE/(1/2) AAS
適当な言語で状態遷移機械つくればええんちゃう
949: 2020/07/11(土)12:02 ID:8xOOoQBu(2/2) AAS
しかもCSVパーサーって
つまりはPython15行でExcelを再現しろと？
950: 2020/07/11(土)12:13 ID:6CWHpJ6z(1/2) AAS
>>938の生成言語
CSV → COL | COL ',' CSV
COL → '"' WCOM '"' | NCOM
WCOM → ε | 'a' WCOM | ',' WCOM | '\' '"' WCOM
NCOM → ε | 'a' NCOM | '\' '"' NCOM
状態セル10個前後でいけそう
951(2): 2020/07/11(土)12:46 ID:6CWHpJ6z(2/2) AAS
>>938 Perl 状態セル4個
$ cat input
"aa,a",aa,,"aa\"aa"
$ perl odai938 < input
[None, 'a', 'a', ',', 'a', None, 'X', 'a', 'a', 'X', 'X', None, 'a', 'a', None, '"', 'a', 'a', None]
$ cat odai938

%maton = (
'N' => { 'a' => ['N', q('a')] , ',' => ['N', q('X')] , '"' => ['Q', q(None)] , '\\' => ['E', q(None)] },
'Q' => { 'a' => ['Q', q('a')] , ',' => ['Q', q(',')] , '"' => ['N', q(None)] , '\\' => ['F', q(None)] },
'E' => { 'a' => ['N', q('a')] , ',' => ['N', q(',')] , '"' => ['N', q('"') ] , '\\' => ['N', q(None)] },
省11
952: 2020/07/11(土)13:08 ID:WonOAWfv(1) AAS
チューリングマシンわからんけどめっちゃ面白そう
上下前次1-新書関写板覧索設栞歴
あと 50 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.051s