[過去ﾛｸﾞ]
プログラミングのお題スレ Part13 (1002ﾚｽ)
プログラミングのお題スレ Part13 http://mevius.5ch.net/test/read.cgi/tech/1549160513/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
7: デフォルトの名無しさん [] 2019/02/03(日) 18:10:24.69 ID:I0qputsI 途中で送っちゃった。。。 あれば簡単。 def isSqr(x): if sqrt(x) - int(sqrt(x)) == 0: return True else: return False def sqrt(x): return (x ** 0.5) http://mevius.5ch.net/test/read.cgi/tech/1549160513/7
264: デフォルトの名無しさん [sage] 2019/02/20(水) 02:51:47.69 ID:qYIek1dL >>255 ;; Common Lisp (let ((prime (list 2))) (defun primep (n) (loop for i from (1+ (car prime)) upto n unless (find-if (lambda (j) (zerop (mod i j))) prime :from-end t) do (push i prime)) (find n prime))) (defun nearest (i j) (/ (floor (+ (* i (expt 10 j)) 0.5)) (expt 10 j))) (loop with cards = (loop for i from 1 to 8 nconc (make-list (- 9 i) :initial-element i)) and n = 0 and p = 0 for one in cards do (loop for two in (remove one cards :count 1) do (incf n) if (primep (+ (* 10 one) two)) do (incf p)) finally (format t "~,3F~%" (nearest (* (/ p n)) 3))) http://mevius.5ch.net/test/read.cgi/tech/1549160513/264
479: デフォルトの名無しさん [sage] 2019/03/03(日) 18:55:07.69 ID:TjAANgsg >>476 ttps://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1263968897 このサイトは具体的な座標と半径について手計算で解いた例だけど、 座標と半径を一般化して連立二次方程式を解いて交点を求め、 三角形と円弧の面積の差を求めれば重なり合う2円弧の面積が算出できる。 小さい円の中心が大きい円の内側にある場合は、 三角形と円弧の面積の差の求め方を逆にする。 小さい円が大きい円の完全に内側にある場合は、小さい円の面積とする。 x,y座標で式を立てるより、曲座標で表して三角関数使うほうが楽かもしれない。 これをプログラム化すれば良い、筈【だと思う。 以上。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/479
600: デフォルトの名無しさん [sage] 2019/03/11(月) 09:18:51.69 ID:D2PSGRy3 >>571 Python def split3(s,p=1) : r0= s[:p]+'*'+s[p+1:] r1= '*'*p + s[p] + '*'*(len(s)-(p+1)) return r0+'\n'+r1 print(split3('abcd',2)) print(split3('abc',0)) '''結果 ab*d **c* *bc a** ''' http://mevius.5ch.net/test/read.cgi/tech/1549160513/600
630: デフォルトの名無しさん [] 2019/03/12(火) 18:21:10.69 ID:MLSq27aG >>623 Io f := method(s, s split("\n\n")map(splitNoEmpties("[","]","\n",=")join(":")) ) http://mevius.5ch.net/test/read.cgi/tech/1549160513/630
943: デフォルトの名無しさん [age] 2019/05/17(金) 14:08:19.69 ID:gFFtTihX >>940 アスペ http://mevius.5ch.net/test/read.cgi/tech/1549160513/943
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.037s