底辺私立医大を卒業した医者って頭悪いよね？ Part8

1 名前：卵の名無しさん mailto:sage [2018/08/06(月) 08:06:39.63 ID:FjCNwKqQ.net] タイトルまんまです すなわち、タイトルの正しさを検証するスレです。 ※前スレ 底辺私立医大を卒業した頭悪いよね？ egg.2ch.net/test/read.cgi/hosp/1472273747/ 底辺私立医大を卒業した医者って頭悪いよね？ Part2 egg.2ch.net/test/read.cgi/hosp/1520807375/ 底辺私立医大を卒業した医者って頭悪いよね？ Part3 egg.2ch.net/test/read.cgi/hosp/1522967067/ 底辺私立医大を卒業した医者って頭悪いよね？ Part4 egg.2ch.net/test/read.cgi/hosp/1526677794/ 底辺私立医大を卒業した医者って頭悪いよね？ Part5 egg.2ch.net/test/read.cgi/hosp/1529666055/ 底辺私立医大を卒業した医者って頭悪いよね？ Part6 egg.5ch.net/test/read.cgi/hosp/1531305684/ 底辺私立医大を卒業した医者って頭悪いよね？ Part7 egg.2ch.net/test/read.cgi/hosp/1532472024/ 866 名前：卵の名無しさん mailto:sage [2018/08/27(月) 20:34:57.11 ID:dp8t1y8e.net] >>826 駅弁落ちてシリツｗｗｗ 867 名前：卵の名無しさん mailto:sage [2018/08/27(月) 20:38:41.08 ID:dp8t1y8e.net] 開業医もシリツを蔑む正しい評価。 362 卵の名無しさん 2018/08/27(月) 20:23:33.43 ID:fLJyflVu レイパーも佐賀医に落ちて仕方なく大阪にいったんだろう 高い銭を支払って それこそレクサスが買いまくれる 868 名前：卵の名無しさん mailto:sage [2018/08/27(月) 21:42:24.23 ID:dp8t1y8e.net] 現在も通用する、不朽の名投稿を再掲 (quote) 私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、慶応以外の私立医は特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。 常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んで私立医に行く同級生は一人もいませんでした。 本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８−９割は私立卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と 869 名前：心の底で軽蔑し、嘲笑しているよ。当の本人には面と向かっては絶対にそんなことは言わないけどね。 (unquote) [] [ここ壊れてます] 870 名前：卵の名無しさん mailto:sage [2018/08/27(月) 23:14:20.63 ID:MYjYaPU2.net] 自称医科歯科で国試に２３回も落ちて くるくるぱーの裏口バカに なっちゃうのらぁあぁぁ 濃ゆぅぅい事務員の生ガキ汁 ド底辺の臭いが落ちないよぉ んほおぉぉぉおぉぉ 医科歯科板で宣伝してきた https://egg.5ch.net/test/read.cgi/hosp/1324726435/l50 871 名前：卵の名無しさん mailto:sage [2018/08/28(火) 03:10:14.88 ID:ajSYk/Fw.net] gcd <- function(a,b){ # a=bq+r, r=b*0+r a%%b=b%%r r=a%%b if(!r) return(b) gcd(b,r) } 872 名前：卵の名無しさん mailto:sage [2018/08/28(火) 03:11:14.11 ID:ajSYk/Fw.net] hanoi <- function(n,a='A',b='B',c='C'){ if(n > 0){ Recall(n-1,a,c,b) cat('move',n,'from',a,' to ',c,'\n') Recall(n-1,b,a,c) } } 873 名前：卵の名無しさん mailto:sage [2018/08/28(火) 09:04:13.42 ID:ajSYk/Fw.net] >>833 最初の再帰呼び出しでb,cが入れ替わるから n枚での移動はn-2枚の移動からの続きだな。 874 名前：卵の名無しさん mailto:sage [2018/08/28(火) 10:03:53.52 ID:ajSYk/Fw.net] >>832 ifelse使えば1行ですむな gcd <- function(a,b) ifelse(!a%%b,b,gcd(b,a%%b)) gcd( 349163 ,7599867) 875 名前：卵の名無しさん [2018/08/28(火) 11:28:07.98 ID:2E4bqhXE.net] ↑ これ貼ってるウリュウ事務員さんの定員割れ長崎に裏口入学のカラクリ わろた ↓ 定員割れしてても、一応試験あるんだわ。 その試験うけたわいーわ、 ウリュウの答案見たセンセーに、 ウリュウの箸にも棒にもかからんザマばれたら さすがに合格させる事も出来んだろ？ その事実を隠すための、 定員割れ長崎の裏口入学だよ。 ウリュウ事務員さんは入学試験受けて無いんだよ。 まさかの長崎無試験入学！ 裏口の中の更に裏口！ 876 名前：卵の名無しさん [2018/08/28(火) 11:32:36.14 ID:n6x/6oCN.net] こんどは、ウリュウの 温情裏口進級、温情裏口卒業のカラクリワロタ ↓ 国試に受からんようなバカ学生は留年または卒延の方針の長崎に紛れたウリュウ、 やはり、毎年毎年、留年を繰り返してたそうなw 長崎は、同学年に3年超えたら放校だもんで、 ６回生までなんとか温情進級させて、更に 学生会の情けで勉強会に参加させたはいいが、 案の定、毎回変な算数とか英語論で、勉強会ぶち壊して、 意見した同級生にバカ高校卒やら底辺高卒やら暴言吐いて、 週に2回は、教授室や学長室にもどなりこんだり、学部全体からハミゴにされたそうな ちなみに、長崎は１２年間超えて在学できず、それ以上は放校、いわばクビ寸前w こいつを放校して、暴れてられてもやーこいし、やむを得ず卒業させたワケだ まあ、ウリュウは卒業しても医師にはなれんから、学校としては馬鹿医者の誕生に関与せんし、安心してたみたいやけどね 纏めるとウリュウ事務員さんは、厄介払いの温情進級かつ、温情卒業させてもらった特例中の特例だってよ 長崎じゃいまだに語り草だそうで 877 名前：卵の名無しさん mailto:sage [2018/08/28(火) 14:44:03.31 ID:tep78gti.net] 数学板でOCamlでのシミュレーション解や漸化式が投稿されることが時々ある。 大筋の流れはわかるのでRに移植するか、処理速度が必要なときはCに移植していた。 調べてみたらOCamlってコンパイルできるとのこと。 https://ocaml.org/learn/tutorials/compiling_ocaml_projects.ja.html 早速、勉強して5人を25部屋に割り付ける方法を再帰呼び出しで プログラムして算出させてみた。 Rだと > system.time(Allocate.rooms(5,25)) user system elapsed 175.41 0.22 178.81 ３分以上かかる。 Cの標準ライブラリだとオーバーフローして誤動作する。 D:\>d:\c/rooms 5 25 -1252110712 Ocamlでやってみた、算出は瞬時。 D:\>d:\Ocaml/ml/mrooms 5 25 292402196893290120 まあ、系統的に場合分けして５部屋割付の一般項を出してしまえば Rでも１００人でも [1] 7888609044175427832827488050325371948323939443774588997500879173300000 と瞬時に計算できる。 878 名前：卵の名無しさん [2018/08/28(火) 15:01:01.26 ID:VsWetxV7.net] ウリュウ事務員さん 国試の勉強は？ 879 名前：卵の名無しさん mailto:sage [2018/08/28(火) 16:37:43.57 ID:tep78gti.net] ハノイの塔のプログラムを書いてみた。 let rec hanoi(n,a,b,c) = if n=1 then print_string("move "^string_of_int(n)^" from "^a^" to "^c^"\n") else begin hanoi(n-1,a,c,b); print_string("move "^string_of_int(n)^" from "^a^" to "^c^"\n"); hanoi(n-1,b,a,c); end;; let() = hanoi(int_of_string Sys.argv.(1),Sys.argv.(2),Sys.argv.(3),Sys.argv.(4));; (* to compile ocamlc.opt -o hanoi.exe hanoi.ml to execute hanoi 5 裏口バカ イカサマ入試 底辺シリツ *) 日本語対応しているかなぁ？ 880 名前：卵の名無しさん mailto:sage [2018/08/28(火) 16:50:32.14 ID:tep78gti.net] ちゃんと日本語対応していた。 i.imgur.com/D2X9zCw.png 881 名前：卵の名無しさん [2018/08/28(火) 17:09:51.43 ID:bI0H/fPN.net] ウリュウ事務員さん 国試の勉強は？ 882 名前：卵の名無しさん [2018/08/28(火) 17:44:55.22 ID:PG6dBidm.net] 医者になることはもう諦めました 国試はもう受けてません 皆さん今まで生意気言って 大変申し訳ない 反省してます by事務員 883 名前：卵の名無しさん mailto:sage [2018/08/28(火) 17:47:42.81 ID:oLI3O6Mu.net] >>843 んで、あんたどこ卒？ 884 名前：卵の名無しさん mailto:sage [2018/08/28(火) 17:48:29 ] [ここ壊れてます] 885 名前：.86 ID:ajSYk/Fw.net mailto: おーい、ド底辺！ 宿題から逃げんなよ。 ド底辺シリツ医はpulseless VTにcardioversionしないで何するんだい？ 私立医三年生の正答率ほぼ100％なんだろ？ ネットにド底辺シリツ医大卒の馬鹿の証を保存しておきました。 http://imagizer.imageshack.com/img922/2025/fiDLdf.png pulseless VTにド底辺シリツ医大はcardioversionせずに何をするんだ？ PEAをpulseless VTと混同するような馬鹿は医師ではないだろう。 いや、ド底辺シリツ医大卒の裏口バカならありうるかもしれん。 [] [ここ壊れてます] 886 名前：卵の名無しさん mailto:sage [2018/08/28(火) 17:52:13.83 ID:ajSYk/Fw.net] 専門医様に部屋割りの式を尋ねたら >資格がない馬鹿よりマシ。 という返事がきたが、 こいつもシリツの裏口入学の疑いがあるな。 このスレのド底辺シリツ医大卒は確定だが。 これ、何度読んでもバカ過ぎるなぁ。 ド底辺シリツ医大卒が裏口入学なのがよくわかる。 これが現実　１次方程式もできないド底辺シリツ医大卒の記録 imagizer.imageshack.com/img923/2715/RosCsf.jpg ド底辺シリツ医大卒の裏口バカは自分が馬鹿だという自覚がないから、与えられた数値から計算できない、問題が悪いと言い張るんだよなぁ。悪いのはそいつの頭なのに。 887 名前：卵の名無しさん mailto:sage [2018/08/28(火) 18:04:31.95 ID:ajSYk/Fw.net] >>838 android用のOCamlもあったので 移動時間とかに遊べていいな。 888 名前：卵の名無しさん [2018/08/28(火) 18:24:40.46 ID:dG00gWat.net] >>844 僕は長崎です 12ねん留年繰り返しました って、それ、あんたじゃん でもウリュウ事務員さんみたいに 23回医師国試失敗せずに 1回で受かりました で？ ウリュウ事務員さん、国試の勉強は？ 889 名前：卵の名無しさん [2018/08/28(火) 18:26:37.84 ID:pYiWHCBF.net] >>844 俺は医科歯科！ ただし、自称！ 近所に住んでいるだけー でウリュウ事務員さん、医師国試の勉強せなあかんやん 890 名前：卵の名無しさん [2018/08/28(火) 18:27:25.90 ID:pYiWHCBF.net] てかそれおまえだよ ウリュウ事務員！ 891 名前：卵の名無しさん [2018/08/28(火) 20:05:13.15 ID:PG6dBidm.net] すいません すいません 私はバカなのでなかなか悪い癖が抜けません 今後は事務員として 一生懸命医師の先生方の お手伝いをする所存です 今までの無礼を謝罪いたします また悪い癖が出るかもしれませんが お許しください その時は 厳しいご指摘をよろしくお願い申し上げます また 892 名前：卵の名無しさん mailto:sage [2018/08/28(火) 20:08:30.11 ID:ajSYk/Fw.net] >>851 馬鹿と言えばド底辺シリツ医大卒。 部屋割の場合の数は数え終えたのか？ 誰も教えてくれる人はいないのか？ 全員、ド底辺シリツ卒かよｗｗｗｗ 893 名前：卵の名無しさん mailto:sage [2018/08/28(火) 20:08:45.41 ID:ajSYk/Fw.net] おーい、ド底辺！ 宿題から逃げんなよ。 ド底辺シリツ医はpulseless VTにcardioversionしないで何するんだい？ 私立医三年生の正答率ほぼ100％なんだろ？ ネットにド底辺シリツ医大卒の馬鹿の証を保存しておきました。 imagizer.imageshack.com/img922/2025/fiDLdf.png pulseless VTにド底辺シリツ医大はcardioversionせずに何をするんだ？ PEAをpulseless VTと混同するような馬鹿は医師ではないだろう。 いや、ド底辺シリツ医大卒の裏口バカならありうるかもしれん。 894 名前：卵の名無しさん mailto:sage [2018/08/28(火) 20:12:06.83 ID:ajSYk/Fw.net] let rec facti (n, a) = if n = 0 then a else facti (n - 1, a * n);; let fact m = facti(m,1);; fact 10;; のほうが fact n = let rec facti (n, a) = if n = 0 then a else facti (n - 1, a * n) in fibo;; fact 10;; より可読性がいいと思うなぁ。 895 名前：卵の名無しさん mailto:sage [2018/08/28(火) 20:20:21.44 ID:ajSYk/Fw.net] let fact n = let rec facti (n, a) = if n = 0 then a else facti (n - 1, a * n) in facti(n,1);; fact 10;; 896 名前：卵の名無しさん [2018/08/28(火) 20:22:50.86 ID:PG6dBidm.net] すいません すいません また勝手に悪い癖が出てしまいます なかなか治りません 現在治療中なのですが 自分のコントロールができないのです 医学部は出てますが医師には 医者になることを諦めるようにと 言われてます たしかに自分でもそう思ってます 医者への憧れはありますが。。。 実は国試は何年も前から 諦めて受験しておりません 卒後は20年以上たっておりまして もう無理だなと自覚はあります 悪い癖は治したいのですが。。。 897 名前：卵の名無しさん mailto:sage [2018/08/28(火) 20:34:57.88 ID:ajSYk/Fw.net] 国試なんて中学入試より簡単。 これ、何度読んでもバカ過ぎるなぁ。 ド底辺シリツ医大卒が裏口入学なのがよくわかる。 これが現実　１次方程式もできないド底辺シリツ医大卒の記録 imagizer.imageshack.com/img923/2715/RosCsf.jpg ド底辺シリツ医大卒の裏口バカは自分が馬鹿だという自覚がないから、与えられた数値から計算できない、問題が悪いと言い張るんだよなぁ。悪いのはそいつの頭なのに。 なんど読んでも馬鹿すぎる。 898 名前：卵の名無しさん mailto:sage [2018/08/28(火) 20:37:05.63 ID:ajSYk/Fw.net] let rec fibo (n, a1, a2) = if n = 0 then a1 else fibo (n - 1, a1 + a2, a1);; let fibonacci m = fibo(m,1,0);; fibonacci 10;; let fibonacci n = let rec fibo (n, a1, a2) = if n = 0 then a1 else fibo (n - 1, a1 + a2, a1) in fibo (n, 1, 0) ;; fibonacci 10;; 後者のコードはだと外に移植しにくいな。 変数が重複してエラーが出そう。 タブレットで走らせられるから寝っ転がって頭の運動ができるな。 899 名前：卵の名無しさん [2018/08/28(火) 20:53:24.43 ID:zNTGqCf6.net] お前らに可能性があるとすれば コレ以外は1000％ない！！！ blog.livedoor.jp/f 900 名前：or_middle_age-energetic_agent/archives/11580361.html [] [ここ壊れてます] 901 名前：卵の名無しさん mailto:sage [2018/08/28(火) 21:00:06.74 ID:ajSYk/Fw.net] >>858 while使えば リソース奪う再帰呼び出しは不要とわかった。 地元国立に入れる学力があれば寄付金や縁故でド底辺シリツに行く必要がないのに似ているかもｗ fibo <- function(n,a1,a2){ while(n){ tmp=a1 a1=a1 + a2 a2=tmp n=n-1 } return(a1) } fibonacci=function(m) fibo(m,1,0) fibonacci(10) 902 名前：卵の名無しさん mailto:sage [2018/08/28(火) 21:15:05.77 ID:ajSYk/Fw.net] >>860 論理展開の練習に関数の中に再帰関数を埋め込んで移植してみた。 fibonacci <- function(m){ fibo<-function(n,a1,a2){ if(n==m) return(a1) else fibo(n+1,a1+a2,a1) } fibo(1,1,1) } fibonacci(10) 903 名前：卵の名無しさん [2018/08/28(火) 21:15:23.60 ID:PG6dBidm.net] あー 医師の先生方のように 頭が良かったらなぁ もっと自制心があればなぁ 医師になることを諦めるのは 悔しかったです わかりますか？私の気持ちを。。。 904 名前：卵の名無しさん mailto:sage [2018/08/28(火) 21:19:37.58 ID:ajSYk/Fw.net] カウントダウンするなら fibonacci <- function(m){ fibo<-function(n,a1,a2){ if(!n) return(a1) else fibo(n-1,a1+a2,a1) } fibo(m,1,0) } fibonacci(10) 905 名前：卵の名無しさん mailto:sage [2018/08/28(火) 21:21:28.50 ID:ajSYk/Fw.net] >>862 ド底辺シリツ医大生の脳内キャラやってて楽しい？ 俺はOcamlが使えるようになって( ・∀・)ｲｲ!! 906 名前：卵の名無しさん [2018/08/28(火) 21:23:45.16 ID:PG6dBidm.net] 医学部を卒業して 事務員の仕事を せざるを得ない 悲しみが あなた達には わからないでしょうね！ 悔しい ほんとうに 悔しいです 907 名前：卵の名無しさん mailto:sage [2018/08/28(火) 21:26:01.92 ID:VS64hjWM.net] >>864 国試浪人２３回を超えるド底辺は存在しないだろＷ https://m.youtube.com/watch?v=FVtd3JQ8nzE 908 名前：卵の名無しさん mailto:sage [2018/08/28(火) 21:31:12.77 ID:ajSYk/Fw.net] >>866 誰のことかしらんが、23回も国試に落ちた人物の存在ソースは？ ド底辺シリツ医大の裏口バカの脳内ソースじゃだめだぞ。 > ド底辺シリツ医大卒の裏口バカ医って 患者から診断や治療の根拠を求められたときも こんな対応をしているのかな？ 高須院長は特待生だという裏口バカの根拠なき主張に対して ソース出せと言われた時ののやりとり。 imagizer.imageshack.com/img923/1194/h1BLms.jpg imagizer.imageshack.com/img924/6420/5Yksm9.jpg 人間のクズだな。 909 名前：卵の名無しさん [2018/08/28(火) 21:34:52.83 ID:PG6dBidm.net] 精神の不調さえなければ 今頃は 医師として 活躍できたんだが。。。 事務作業は辛い いつクビを切られるのか 不安です でも生きていかねば！ 910 名前：卵の名無しさん mailto:sage [2018/08/28(火) 21:35:04.34 ID:ajSYk/Fw.net] 留年ビジネスで大繁盛のようですなぁ。 開業医スレより 385 卵の名無しさん 2018/08/28(火) 19:07:53.82 ID:PuOHuye+ 川崎は合格費・学費（卒業まで10年）・寄付金で3億かかるよ。 911 名前：卵の名無しさん mailto:sage [2018/08/28(火) 21:53:19.65 ID:ajSYk/Fw.net] (* OCaml *) let sum_of_integer(m,n) = let rec sumint(m,n,r) = if m>n then r else sumint(m+1,n, r+m) in sumint(m,n ,0);; sum_of_integer(1,100);; #R sum_of_integer <- function(m,n){ sumint <- function(a,b,r){ if(a>b) return(r) else sumint(a+1,b,r+a) } sumint(m,n, 0) } sum_of_integer(1,100) 912 名前：卵の名無しさん [2018/08/28(火) 21:53:47.59 ID:PG6dBidm.net] 国試通りたかった 医学は 私の能力では ついていけなかった もっと頭が良かったらなぁ 単純作業が 私には向いてるのかなぁ 残念です 913 名前：卵の名無しさん mailto:sage [2018/08/28(火) 21:59:53.87 ID:ajSYk/Fw.net] これでも動作したな。 変数名が衝突するかと危惧したが杞憂だった。 ド底辺シリツ医大卒は仮にも大学に入ったのだから場合の数くらい数えられると思ったが予想通りだったな。 専門医資格自慢のアホも今日中に答えるのは無理だろな。 sum_of_integer <- function(m,n){ sumint <- function(m,n,r){ if(m>n) return(r) else sumint(m+1,n,r+m) } sumint(m,n,0) } sum_of_integer(1,100) 914 名前：卵の名無しさん mailto:sage [2018/08/28(火) 22:30:48.80 ID:ajSYk/Fw.net] let square x = x * x ;; let cube x = x * x * x ;; let rec sum_of (f,m,n, r) = if m>n then r else sum_of (f, m+1,n, r+f m);; sum_of (square, 1,10,0);; sum_of (cube, 1,10,0);; 915 名前：卵の名無しさん [2018/08/28(火) 22:47:54.29 ID:PG6dBidm.net] 国試は難しい 頭の良さと 多くの勉強量 に耐える知性が 必要なのか？ 国試に通って 医師になる人は 凄い 事務員の仕事は 誰でもできるから 私は負けたんだ 916 名前：卵の名無しさん [2018/08/28(火) 23:16:54.37 ID:PG6dBidm.net] 医学部時代 周りの連中は 友人を作ったり 恋人を作ったりして 羨ましかった 私は孤独だった しかも他の医学部生は 国試をあっさり合格していった 知性も欠如し 性格も悪い 私は ついに落伍者になってしまった 皆さん ご指摘のように 今はある病院で事務をしている 嫉妬心から いろいろと書き込む私は 医師の先生方に相手をして欲しくている ダメだな私は。。。 今までの無礼を謝罪いたします ですからせめて掲示板では 相手をして欲しいです 917 名前：卵の名無しさん mailto:sage [2018/08/28(火) 23:22:14.44 ID:ah19Yj+/.net] 開業医の息子も事務長にしかなれないと悲惨だよな 理事長が事務長で赤字経営になって 乗っ取られた法人病院を知ってるわ 非医師の経営者の言うことをマトモに聞くような 医師は居ないからな 918 名前：卵の名無しさん mailto:sage [2018/08/29(水) 07:06:31.27 ID:GEprdfGA.net] 裏口入学が都市伝説だとか過去の話というのは 嘘だと全国民が知りつくしたのが東京医大の事件だね。 縁故や寄付金じゃなくて試験データの改竄。 シリツ＝裏口バカが確定。 他のシリツ医大卒も裏口入学と明言していた。 まあ、当事者はずっと前に認識していたようだ。　 ガチの裏と呼んでその存在を認めている。 imagizer.imageshack.com/img923/7955/w1bWeN.jpg ガチの裏ｗｗｗｗｗｗｗ 919 名前：卵の名無しさん [2018/08/29(水) 07:14:28.61 ID:C+yLx53+.net] こら ウリュウ、いじめられるの嫌なら 23回の医師国試失敗談書いて笑わせろよ あとは裏口入学裏口卒業の本人談とか、 放校リミット学生12ねん目の気持ちとか ウリュウ事務員さんしかわからねえ事 たくさんあるだろ 妙な算数はって お医者さんにマウントしようとしても 医師免許を取得しないあんたは 負けなんだから 920 名前：卵の名無しさん mailto:sage [2018/08/29(水) 07:16:14.05 ID:GEprdfGA.net] >>876 ワタミって病院経営していたはず。 民間病院の二代目三代目ってたいていシリツ 多くはド底辺シリツ 921 名前：卵の名無しさん mailto:sage [2018/08/29(水) 07:19:03.10 ID:GEprdfGA.net] >>873 ほぼ同型でRに移植 square = function(x) x^2 cube = function(x) x^3 sum_of <- function(f,m,n, r){ if(m>n) return(r) else sum_of (f, m+1,n, r+f(m)) } sum_of (square, 1,10,0) sum_of (cube, 1,10,0) 922 名前：卵の名無しさん mailto:sage [2018/08/29(水) 07:37:09.35 ID:GEprdfGA.net] >>880 mからのnまでの冪乗和だからwhileを使う方が 初期値の0の入力が不要でメモリー効率もいいな。 square = function(x) x^2 cube = function(x) x^3 sum_of <- function(f,m,n){ r=m while(m<n){ m=m+1 r=r+f(m) } return(r) } sum_of (square, 1,10) sum_of (cube, 1,10) 923 名前：卵の名無しさん mailto:sage [2018/08/29(水) 07:51:23.64 ID:GEprdfGA.net] 第三引数は冪数にした方が汎用性があるな。 sum_of <- function(m,n,i){ pow<-function(x) x^i r=m while(m<n){ m=m+1 r=r+pow(m) } return(r) } sum_of (1,10,2) sum_of (1,10,3) 924 名前：卵の名無しさん mailto:sage [2018/08/29(水) 07:54:20.24 ID:FkipPE46.net] これ便利だな。検索する手間が随分と省ける。 説明のないとってもシンプルなサンプルプログラム集 simplesandsamples.com/index.html 925 名前：卵の名無しさん mailto:sage [2018/08/29(水) 08:32:19.38 ID:dCROSesS.net] >>862 >医師の先生方のように >頭が良かったらなぁ このスレを読んでド底辺シリツ医大卒の頭の出来が理解できてないとは。 国試なんて中学入試より簡単。 これ、何度読んでもバカ過ぎるなぁ。 ド底辺シリツ医大卒が裏口入学なのがよくわかる。 これが現実　１次方程式もできないド底辺シリツ医大卒の記録 imagizer.imageshack.com/img923/2715/RosCsf.jpg ド底辺シリツ医大卒の裏口バカは自分が馬鹿だという自覚がないから、与えられた数値から計算できない、問題が悪いと言い張るんだよなぁ。悪いのはそいつの頭なのに。 なんど読んでも馬鹿すぎる。 926 名前：卵の名無しさん mailto:sage [2018/08/29(水) 08:34:42.50 ID:dCROSesS.net] 今日配信のm3クイズの声帯麻痺の国試問題なんて 左右がわかるかを問うような馬鹿問題だったな。 分数の約分や場合の数も数えられない馬鹿でも受かるはずだぜ。 927 名前：卵の名無しさん [2018/08/29(水) 09:08:17.58 ID:cGWfTxPz.net] ↑ でもさ、ウリュウ、 あんたは 国試失敗23回の 単なる 事務員さんだよな 928 名前：卵の名無しさん mailto:sage [2018/08/29(水) 13:10:21.31 ID:FkipPE46.net] 数学板の質問スレの問題をこのスレの趣旨に合わせてみた。 ド底辺シリツ医大コンサルタントが２つの選択肢を提示してきた。 （１）ド底辺裏口シリツ医大：寄付金３０００万で３０％の合格確率 （２）ド底辺ガチ裏シリツ医大：寄付金８０００万で６０％の合格確率 ド底辺シリツ医大に合格するのに必要な費用の期待値はどちらが少ないか？ 計算を可能にするため、浪人中の経費は算定しないことにする。 929 名前：卵の名無しさん [2018/08/29(水) 13:11:44.36 ID:X1LYSJ74.net] ↑ ウリュウ事務員さん あちこちでアンタユーメーだよなぁ 930 名前：卵の名無しさん mailto:sage [2018/08/29(水) 13:30:50.73 ID:FkipPE46.net] >>887 予想通り、 数学板では負の二項分布の特殊な場合である幾何分布の期待値の公式からの答が、即答された。 寄付金の期待値をだすシミュレーションスクリプトを書いてみた。 invest <- function(p=0.30,q=3000){ win=sample(1:0,1,prob=c(p,1-p)) try=1 while(!win){ win=sample(1:0,1,prob=c(p,1-p)) try=try+1 } return(try*q) } k=1e5 re.3=replicate(k,invest(0.30,3000)) hist(re.3,freq=FALSE,col='lightblue') summary(re.3) re.6=replicate(k,invest(0.60,8000)) hist(re.6,freq=FALSE,col='lightblue') summary(re.6) 十万回のシミュレーションでの寄付金の値の分布のサマリーがこれ > summary(re.3) Min. 1st Qu. Median Mean 3rd Qu. Max. 3000 3000 6000 10025 12000 96000 > summary(re.6) Min. 1st Qu. Median Mean 3rd Qu. Max. 8000 8000 8000 13296 16000 56000 931 名前：卵の名無しさん mailto:sage [2018/08/29(水) 13:58:39.81 ID:FkipPE46.net] >>889 平均値で考えたときの判断は幾何分布を使っての答通りになるけど シミュレーションで最頻値を出してみると面白いなぁ。 数学版は遊びネタを提供してくれてい( ・∀・)ｲｲ!! 932 名前：卵の名無しさん mailto:sage [2018/08/29(水) 14:00:23.29 ID:FkipPE46.net] >>887 応用問題　：　合格しない場合、生活費とド底辺シリツ医大進学予備校費用が１年で１０００万かかると設定してシミュレーションしてみよ。 933 名前：卵の名無しさん mailto:sage [2018/08/29(水) 14:05:55.79 ID:YqrotoXF.net] >>891 応用問題　：　国試に合格しない場合、事務員の生活費とド底辺国試浪人予備校費用が１年で１０００万かかると設定してシミュレーションしてみよ。 回答は　みさくら語に限定する 934 名前：卵の名無しさん mailto:sage [2018/08/29(水) 14:18:42.38 ID:FkipPE46.net] 合格までの年ｎと卒業に要する年数ｍとの関係をm=6+(n-1)^2 に想定してド底辺シリツ医大の学費をかけてシミュレーションするとか いろいろできるな。 935 名前：卵の名無しさん mailto:sage [2018/08/29(水) 14:20:37.05 ID:FkipPE46.net] >>892 １０人を５部屋に空室なしで割り付ける場合の数の計算式はだせたのか？ バカは地道に数えるしかないだろ。 数え方は既述。 936 名前：卵の名無しさん mailto:sage [2018/08/29(水) 14:25:06.92 ID:FkipPE46.net] 最近の医師国家試験ってほんと簡単だな。 昭和の御代の頃は正解は非公表で出版社によって正解が別れていた。 医事新報の答が一番権威があるとか言われてていた。 いまじゃ、左右がわかれば馬鹿でも答えられる問題だから、堂々と正解が公表されている。 場合の数や分数の約分すらできないようなバカでも通るはずだよ。 937 名前：卵の名無しさん mailto:sage [2018/08/29(水) 14:26:43.04 ID:Lw9cTPoz.net] >>894 ド底辺事務員は相変わらず昼間から暇人だねぇ 938 名前：卵の名無しさん mailto:sage [2018/08/29(水) 14:58:04.04 ID:GEprdfGA.net] >>896 今日は午前の内視鏡で仕事は終了。 androidで動くc言語c4droidの使い方を勉強中。 #include<stdio.h> #include<stdlib.h> long factorial(long n) { long re = 1; long k; for(k=1;k <=n;k++) {re *= k;} return re; } long rooms(long m, long n){ if(m==n) { return factorial(m);} else if(m==1){ return 1;} else{ return m * rooms(m,n-1) + m * rooms(m-1,n-1); } } int main( int argc, char *argv[] ){ int m=6,n=12; long ways; ways=rooms(m,n); printf("%d\n",ways); return(0); } 939 名前：卵の名無しさん mailto:sage [2018/08/29(水) 14:59:57.78 ID:GEprdfGA.net] コンソールからの m=atoi(argv[1]); n=atoi(argv[2]); を受けてくれないので使い勝手は良くない。 940 名前：卵の名無しさん mailto:sage [2018/08/29(水) 15:05:51.73 ID:GEprdfGA.net] main()をvoidで返すなとかエラーメッセージはうるさいね。 atoiも標準装備じゃないし。処理速度が必要な時だけCに移植いたけど 数学板で教わったコンパイルできるOCamlって便利そう。 とりあえずandroidでもネット接続なしでcが動かせて( ・∀・)ｲｲ!! 12人6部屋割の数は正しく計算できた。 953029440 941 名前：卵の名無しさん mailto:sage [2018/08/29(水) 15:12:29.96 ID:GEprdfGA.net] >>892 プログラムでシミュレーションできると楽しいぞ。 解析解の糸口になるし。 数学による平均値だけでなくばらつきのある結果が返ってくるから現実に近くて面白い。 >887-888の最頻値出してみると面白いぞ。 ド底辺裏口シリツの方が平均では安いけど最高値はド底辺ガチ裏シリツより高い。 942 名前：卵の名無しさん [2018/08/29(水) 15:23:03.82 ID:XCzCczPu.net] ↑ こいつ事務員さんだよな 943 名前：卵の名無しさん mailto:sage [2018/08/29(水) 15:31:11.78 ID:GEprdfGA.net] >>901 その設定だと事務員以下の馬鹿がド底辺シリツ医大卒の裏口バカｗ 944 名前：卵の名無しさん mailto:sage [2018/08/29(水) 15:37:28.74 ID:GEprdfGA.net] >>892 数学板では >887-888の答は平均値で(1)の裏口シリツが安いという結論になるのだけど シミュレーションでの最大値比較では(2)のガチ裏医大の方が安いんだね。 費用の分布や最頻値をみる方が現実の判断に役立つというのが俺の考えだな。 解析解はおろかシミュレーションすら出来ないような馬鹿って恥ずかしいよな。 945 名前：卵の名無しさん [2018/08/29(水) 16:07:03.66 ID:Y03d8LMk.net] ↑ また医師真似事務員のウリュウだよなぁ 946 名前：卵の名無しさん mailto:sage [2018/08/29(水) 16:12:43.14 ID:GEprdfGA.net] >>887 裏口シリツの合格率を30%が最頻値となるようなβ分布 ガチ裏口シリツの合格率を60%が最頻値となるようなβ分布にして シミュレーションする方が面白そうだが、kappa値の情報がないね。 947 名前：卵の名無しさん mailto:sage [2018/08/29(水) 16:20:21.13 ID:GEprdfGA.net] /* ウカウカ＋ウサギ＋ノソノソ＋カメ＋キヨウソウ＝ウサギトカメ */ #include<stdio.h> #include<stdlib.h> int compare_int(const void *a, const void *b){ return *(int*)a - *(int*)b; } int unique(int num[]){ int i,j,n=10; qsort(num,n,sizeof(int),compare_int); for(i=0;i<n;i++){ for(j=0;j<i;j++){ if(num[j]==num[j+1]){ return 0; }}} return 1; } main(){ int u,ka,sa,gi,no,so,me,ki,yo,to; for(u = 1; u < 10; u++){ for(ka = 1; ka < 10; ka++){ for(sa = 0; sa < 10; sa++){ for(gi = 0; gi < 10; gi++){ for(no = 1; no < 10; no++){ for(so = 0; so < 10; so++){ for(me = 0; me < 10; me++){ for(ki = 1; ki < 10; ki++){ for(yo = 0; yo < 10; yo++){ for(to = 0; to < 10; to++){ 948 名前：卵の名無しさん mailto:sage [2018/08/29(水) 16:20:44.74 ID:GEprdfGA.net] /* ウカウカ＋ウサギ＋ノソノソ＋カメ＋キヨウソウ＝ウサギトカメ */ if(u*1000+ka*100+u*10+ka +u*100+sa*10+gi +no*1000+so*100+no*10+so +ka*10+me +ki*10000+yo*1000+u*100+so*10+u == u*100000+sa*10000+gi*1000+to*100+ka*10+me){ int num[]={u,ka,sa,gi,no,so,me,ki,yo,to}; if(unique(num)==1){ printf("%d%d%d%d + %d%d%d + %d%d%d%d + %d%d + %d%d%d%d%d = %d%d%d%d%d%d\n",u,ka,u,ka,u,sa,gi,no,so,no,so,ka,me,ki,yo,u,so,u,u,sa,gi,to,ka,me); }} }}}}}}}}}} } 949 名前：卵の名無しさん mailto:sage [2018/08/29(水) 16:24:09.67 ID:GEprdfGA.net] #include <stdlib.h> を行頭に追加したらエラーメッセージがでなくなってコンパイルできた。 結果は 1313 + 104 + 6262 + 35 + 97121 = 104835 で 950 名前：/* ウカウカ＋ウサギ＋ノソノソ＋カメ＋キヨウソウ＝ウサギトカメ */ に合致。 スマホでCができるのは( ・∀・)ｲｲ!! [] [ここ壊れてます] 951 名前：卵の名無しさん mailto:sage [2018/08/29(水) 16:35:02.74 ID:GEprdfGA.net] >>898 run with args という項目があった。 俺が知らないだけだった。 使い勝手が( ・∀・)ｲｲ!! #include<stdio.h> #include<stdlib.h> long factorial(long n) { long re = 1; long k; for(k=1;k <=n;k++) {re *= k;} return re; } long rooms(long m, long n){ if(m==n) { return factorial(m);} else if(m==1){ return 1;} else{ return m * rooms(m,n-1) + m * rooms(m-1,n-1); } } int main( int argc, char *argv[] ){ int m=10,n=10; long ways; ways=rooms(m,n); printf("%d\n",ways); return(0); } 952 名前：卵の名無しさん mailto:sage [2018/08/29(水) 16:44:00.13 ID:GEprdfGA.net] >>892 学生時代に高輪でシリツ医大進学予備校でバイトしていたけど ほんとうに馬鹿だらけだったな。 場合の数も数えられない、あんたのような馬鹿揃い。 953 名前：卵の名無しさん mailto:sage [2018/08/29(水) 16:51:08.70 ID:GEprdfGA.net] >>909 #include<stdio.h> #include<stdlib.h> long factorial(long n) { long re = 1; long k; for(k=1;k <=n;k++) {re *= k;} return re; } long rooms(long m, long n){ if(m==n) { return factorial(m);} else if(m==1){ return 1;} else{ return m * rooms(m,n-1) + m * rooms(m-1,n-1); } } int main( int argc, char *argv[] ){ int m,n; m=atoi(argv[1]); n=atoi(argv[2]); long ways; ways=rooms(m,n); printf("%d\n",ways); return(0); } 954 名前：卵の名無しさん mailto:sage [2018/08/29(水) 16:54:20.54 ID:GEprdfGA.net] /* 　　底辺私立 　×　　　５ ------------ 　　裏口馬鹿 各々の漢字は１〜８までの数字を表します。 同じ数字は使われません。 底辺私立・裏口馬鹿に数字をいれて筆算を２通り完成させてください。 */ #include<stdio.h> #include<stdlib.h> int compare_int(const void *a, const void *b){ return *(int*)a - *(int*)b; } int unique(int num[]){ int i,j,n=8; qsort(num,n,sizeof(int),compare_int); for(i=0;i<n;i++){ for(j=0;j<i;j++){ if(num[j]==num[j+1]){ return 0; }}} return 1; } 955 名前：卵の名無しさん mailto:sage [2018/08/29(水) 16:54:51.02 ID:GEprdfGA.net] main(){ int A,B,C,D,E,F,G,H; for(A = 1; A < 9; A++){ for(B = 1; B < 9; B++){ for(C = 1; C < 9; C++){ for(D = 1; D < 9; D++){ for(E = 1; E < 9; E++){ for(F = 1; F < 9; F++){ for(G = 1; G < 9; G++){ for(H = 1; H < 9; H++){ if((A*1000+B*100+C*10+D)*5==E*1000+F*100+G*10+H){ int num[]={A,B,C,D,E,F,G,H}; if(unique(num)==1){ printf("底辺私立 = %2d%2d%2d%2d 裏口馬鹿 = %2d%2d%2d%2d\n", A,B,C,E,F,G,H); }} }}} }}} }} } 底辺私立 = 1 2 8 6 裏口馬鹿 = 4 3 5 1 底辺私立 = 1 6 4 8 裏口馬鹿 = 2 3 5 1 956 名前：卵の名無しさん mailto:sage [2018/08/29(水) 16:55:52.75 ID:GEprdfGA.net] コメント以外に日本語を入れても動作している。 AndroidでのRは日本語入れたら暴走する。 957 名前：卵の名無しさん mailto:sage [2018/08/29(水) 17:19:48.42 ID:FkipPE46.net] rm(list=ls()) MODE <- function(x) { dens <- density(x) mode_i <- which.max(dens$y) mode_x <- dens$x[mode_i] mode_y <- dens$y[mode_i] c(mode=mode_x, value=mode_y) } invest <- function(p,q){ win=sample(1:0,1,prob=c(p,1-p)) try=1 while(!win){ win=sample(1:0,1,prob=c(p,1-p)) try=try+1 } return(try*q) } par(mfrow=c(2,1)) k=1e6 re.3=replicate(k,invest(0.30,300)) hist(re.3,freq=FALSE,col='lightblue') summary(re.3) MODE(re.3)[1] re.6=replicate(k,invest(0.60,800)) hist(re.6,freq=FALSE,col='lightblue') summary(re.6) MODE(re.6)[1] 958 名前：卵の名無しさん mailto:sage [2018/08/29(水) 17:31:46.94 ID:YqrotoXF.net] >>910 >医大進学予備校でバイトしていたけど ほんとうに馬鹿だらけだったな。 そいつらは私立医大生ではなく、高校生もしくは高卒の予備校生ということだろ そのうちの何割が合格できたのかは知らんが 勉強した結果、合格できたんだから立派なことじゃないか 国試にいつまでも合格できないのより遥かに立派だ あ、ちなみに俺はオマエと違って宮廷卒だからＷ 959 名前：卵の名無しさん mailto:sage [2018/08/29(水) 17:56:38.51 ID:GEprdfGA.net] >>916 これまだできんの？ 　空室を許さず10人を5部屋に割り当てる方法は何通りあるか？ の数も数えられないのか？ 系統的場合分けはバカには無理だから、数えればいいのに？ 960 名前：卵の名無しさん mailto:sage [2018/08/29(水) 17:58:19.57 ID:GEprdfGA.net] >>916 違うよ、ド底辺シリツ医大進学予備校だよ。 都内国立医学生に割のいいバイトだった。 961 名前：卵の名無しさん mailto:sage [2018/08/29(水) 18:01:17.36 ID:GEprdfGA.net] >>916 ド底辺シリツ医大の裏口バカならともかく 宮廷卒でこれができないのは想定できんぞ。 二期校の医科歯科卒の俺より馬鹿じゃん。 日本人の血液型のA,O,B,ABの比を４：３：２：１とする。 各々の血液型を最低１人集めるためには必要な人数の期待値はいくらか？ 分数で解答せよ。（小数点表示は開業医スレで俺が自答）。 962 名前：卵の名無しさん mailto:sage [2018/08/29(水) 18:04:29.63 ID:GEprdfGA.net] >>916 どうせ通ることが決まっているんだから勉強しなくていいんだ、 それより先生、空手教えてやろうかという生徒と喧嘩してやめた講師もいたよ。 予言通り合格するから裏口の存在は確信してたな。 東京医大の話でやっぱりなという感想しかないね。 963 名前：卵の名無しさん [2018/08/29(水) 21:00:20.36 ID:J7ImUV8x.net] 先生方 お願い 964 名前：です 私の 相手をしてください よろしくお願いします by 医者になれなかった医学部卒の事務員 [] [ここ壊れてます] 965 名前：卵の名無しさん mailto:sage [2018/08/29(水) 21:54:07.30 ID:GEprdfGA.net] >>921 >>916 これまだできんの？ 　空室を許さず10人を5部屋に割り当てる方法は何通りあるか？ 系統的場合分けはバカには無理だから、数えればいいのに？ 966 名前：卵の名無しさん mailto:sage [2018/08/30(木) 06:24:20.28 ID:WRrKmlGk.net] 中学幾何の方が医師国家試験より難しいな。 rio2016.2ch.net/test/read.cgi/math/1534342085/405-415 967 名前：卵の名無しさん mailto:sage [2018/08/30(木) 08:07:35.17 ID:WRrKmlGk.net] 正答率低すぎ。 ド底辺シリツ医大卒の影響だろうな。 imagizer.imageshack.com/img924/4992/InxlLt.jpg 968 名前：卵の名無しさん [2018/08/30(木) 08:42:58.93 ID:KeGlIXuC.net] >>910 >>918 作文を書く事務員さん 969 名前：卵の名無しさん [2018/08/30(木) 08:44:26.74 ID:HcPjrrvk.net] >>925 わかってますよ でもそんなトドメ刺したら また算数はじまる 970 名前：卵の名無しさん mailto:sage [2018/08/30(木) 08:57:37.94 ID:fLx+5IZm.net] >>916 部屋割数の計算できないド底辺シリツ並みの頭脳が宮廷卒って 想定し難いんだが、どこの宮廷よ？ 971 名前：卵の名無しさん mailto:sage [2018/08/30(木) 09:17:19.97 ID:fLx+5IZm.net] >>925 あんたも都内国立に進学すれば羨む必要もないのに。 二期校当時、名目倍率19倍だったな。 試験会場は代ゼミだった。 浪人はしたくなかったので模試判定Aのところしか受けなかった。 972 名前：卵の名無しさん [2018/08/30(木) 10:24:34.28 ID:wwI46kxM.net] >>928 それ誰の話？ まぁウリュウ事務員さんじゃねえな 973 名前：卵の名無しさん mailto:sage [2018/08/30(木) 18:45:53.11 ID:WRrKmlGk.net] 数学板の問題を難化改変してみた。 私立医大の予約入学権のクジが発売されたとする。 選んだクジは当たりがでるまでクジをひく。 途中で乗り換えるのはできない。 裏口シリツ医大では100本のクジのうち30本が当たりでクジを1本が引くのに1000万円要する。 ガチ裏シリツ医大では50本のクジのうち30本が当たりでクジを1本が引くのに2000万円要する。 いずれも、はずれクジは戻さずにくじ引きを続ける。 どちら安く予約入学権を得ることができるか。 974 名前：卵の名無しさん mailto:sage [2018/08/30(木) 19:40:56.17 ID:WRrKmlGk.net] 数学板の問題を難化改変してみた。 私立医大の予約入学権のクジが発売されたとする。 選んだクジは当たりがでるまでクジをひく。 途中で乗り換えるのはできない。 裏口シリツ医大では100本のクジのうち30本が当たりでクジを1本引くのに1000万円要する。 ガチ裏シリツ医大では50本のクジのうち30本が当たりでクジを1本引くのに2000万円要する。 いずれも、はずれクジは戻さずにくじ引きを続ける。 どちら安く予約入学権を得ることができるか。 975 名前：卵の名無しさん [2018/08/30(木) 20:47:57.16 ID:T/o4AYRY.net] ほんとうにすみません 私は他人から頭が良いと 思われたいのです 医者はとっくに諦めてます 医師は凄いと思います だからこそ みなさんに 私の相手をしていただければ 幸いです 今までの悪態はお許しください それでも自分のコントロールができません これからもみなさんが 嫌がる書き込みもあると思います どうぞご容赦ください よろしくお願いします 976 名前：卵の名無しさん mailto:sage [2018/08/30(木) 21:19:29.22 ID:WRrKmlGk.net] >>932 >医師は凄いと思います その通り！ ド底辺シリツ医大卒の頭は凄いぞ！！！！ これ、何度読んでもバカ過ぎるなぁ。 ド底辺シリツ医大卒が裏口入学なのがよくわかる。 これが現実　１次方程式もできないド底辺シリツ医大卒の記録 imagizer.imageshack.com/img923/2715/RosCsf.jpg ド底辺シリツ医大卒の裏口バカは自分が馬鹿だという自覚がないから、与えられた数値から計算できない、問題が悪いと言い張るんだよなぁ。悪いのはそいつの頭なのに。 なんど読んでも馬鹿すぎる。 977 名前：卵の名無しさん mailto:sage [2018/08/30(木) 21:23:25.16 ID:WRrKmlGk.net] >>931 更に難問化してみる。 クジが３本当たらないとド底辺シリツ医大への裏口入学予約ができない、とルールが変更された。 裏口シリツ医大では100本のクジのうち30本が当たりでクジを1本引くのに1000万円要する。 ガチ裏シリツ医大では50本のクジのうち30本が当たりでクジを1本引くのに2000万円要する。 いずれも、はずれクジは戻さずにくじ引きを続ける。 どちら安く予約入学権を得ることができるか。 978 名前：卵の名無しさん mailto:sage [2018/08/30(木) 21:34:55.56 ID:9jLRmK1l.net] >>930 裏口シリツ医大では100本のクジのうち30本が当たりでクジを1本が引くのに1000万円要する。 の方で1本の当たりくじ引くのに必要な費用の期待値を数式を立てて計算してみた。 3258.065万円 シミュレーションするプログラムを組んで100万回シミュレーションしたときの費用は > summary(re) Min. 1st Qu. Median Mean 3rd Qu. Max. 1000 1000 2000 3256 4000 33000 理論値とシミュレーションが一致していて気持ちが( ・∀・)ｲｲ!! 979 名前：卵の名無しさん mailto:sage [2018/08/30(木) 21:44:58.63 ID:9jLRmK1l.net] >>934 引いたクジが当たりか外れかで次に当たる確率が変わるから、ベルヌーイ試行ではないな。 数式を書き出したらわりと簡単に答がだせた。 シミュレーションプログラムの改造の方が手間だった。 クジが３本当たらないとド底辺シリツ医大への裏口入学予約ができない、とルールが変更された。 ガチ裏シリツ医大では50本のクジのうち30本が当たりでクジを1本引くのに2000万円要する。 クジを３本あててガチ裏シリツ医大への裏口入学予約に要する費用の期待値を算出させてみた。 [1] 9870.968 > re1=replicate(1e6,lottery_sim(50,0.6,2000,hit=3)) > summary(re1) Min. 1st Qu. Median Mean 3rd Qu. Max. 6000 8000 10000 9869 12000 34000 理論値とシミュレーションが合致している。 まさに、ド底辺シリツ医大卒と裏口バカの合致のようだｗｗｗｗｗ 980 名前：卵の名無しさん [2018/08/30(木) 22:21:58.25 ID:szkUhwgB.net] ↑ ウリュウ事務員さん、おつかれ てか、 今までの 医師真似を ようやく カミングアウトしたのか これからは 事務員さんらしく すごせよ わかったな？ 981 名前：卵の名無しさん [2018/08/30(木) 22:27:56.12 ID:T/o4AYRY.net] ありがとうございます やはり 嘘はバレますよね 私の悪い癖は なるべく治そうと思います 今後も みなさんが不愉快になることを 書き込んでしまうでしょう 誠に申し訳ないです でも医師のふりだけは お許しください 私の悲しさを わかってください よろしくお願いします 982 名前：卵の名無しさん mailto:sage [2018/08/30(木) 23:32:48.11 ID:WRrKmlGk.net] >>938 ド底辺シリツ医大卒の願望を自演して嬉しいのかね。 哀れな奴だな。 数学板の質問スレに偏微分で答を出したら質問者は高校生だったので偏微分の答を出してからの平方完成した。 最近はシミュレーションであたりをつけて解析解を出すという横着を覚えてしまった。 983 名前：卵の名無しさん mailto:sage [2018/08/30(木) 23:51:17.95 ID:WRrKmlGk.net] ここでシミュレーション解を書いたらスレが終了してしまった。 結論よりも初等幾何学での議論をしたかったらしい。 一辺の長さ1の正五角形の頂点を全て結ぶ分岐あり曲線の長さの最小値を求めよ rio2016.2ch.net/test/read.cgi/math/1532824890/ 984 名前：卵の名無しさん [2018/08/31(金) 08:12:35.46 ID:1BbKjU/w.net] ウリュウ事務員さん ようやくてめーをカミングアウトか これからは 真面目に事務員の仕事しろよ わかったか？ 985 名前：卵の名無しさん [2018/08/31(金) 08:48:53.69 ID:t6733nK8.net] しかしよー、いまだに医科歯科という自称ネタで勝負しようとするウリューかよwホントコジキだな ま、裏口入学したとしてもウリュウの例のように 留年留年します 挙句、退学なり、放校なりで 、たいがいは医学部辞めます でも厚顔無恥のウリュウ事務員さんみたいに12年間通う猛者もいますがね(笑笑) 辞めたらそもそも国試受験資格得れません 万が一にもウリュウ事務員さんのように 裏口卒業しても国試に受かりません 23回失敗したからねえにははは(笑笑) ウリュウ事務員さんが、現在国試浪人進行中なのが裏口卒業の理由です そして、万、いや、億に１つ、 医師免許を取得したとしても それ以上の研究論文が必要な医学博士の取得など夢です あと、さらに勉強して症例経験を重ね 極めて難しい試験に合格しなくてはならない専門医資格取得など夢の夢です そして、これは、臨床で超多忙な若手医師の時代に経験しなくてはならないのです ウリュウ事務員さんみたいに、裏口で楽チンにクリアしてきたバカに務まるとは思えません まとめますと、 段階的に ・まずは医学部卒業したか、 ・次に医師免許を取得したか、 ・さらに医学博士持ってるか、 ・さらにさらに何らかの専門医か、 ですね ウリュウ事務員さんみたいに63歳という、ある程度の歳で、 これらが無い医師あるいは ウリュウ事務員さんみたいな医師真似老人に遭遇したら いろいろと疑っても良いでしょう 986 名前：卵の名無しさん [2018/08/31(金) 10:26:14.34 ID:D/gmxAbP.net] >>690 な、また論破されたネタをしつこくしつこく貼るだろ、ウリュウの頭わるいのにも呆れるな てか、クズはおまえだよウリュウ おまえの貼った>>690のコピーな、 そのお医者さんは、 おまえレベルの対応しただけだよw そろそろ気づけよ、バカw てかよ、 何が患者にも…だよ！ まず、患者様だろ？ たかが事務員のコジキウリュウの分際で 何様だ！ それに、コジキが俺たちの患者さんと同等のわけねえだろ！ 勝手に患者様レベルにあがるな� 987 名前：I 裏口のクズのくせによ！ [] [ここ壊れてます] 988 名前：卵の名無しさん mailto:sage [2018/08/31(金) 10:41:39.09 ID:oV/gFYsR.net] >>925 文章を書くとか、作文するとか、表現するけど 作文を書くって この一文だけでド底辺シリツ医大卒の学力がわかるなあ。 裏口入学なんだろうね。 989 名前：卵の名無しさん [2018/08/31(金) 11:00:04.96 ID:jvDTlKSH.net] ↑ ↑ 事務員さん本日も作文を書く 990 名前：卵の名無しさん mailto:sage [2018/08/31(金) 11:15:35.67 ID:oV/gFYsR.net] 数学スレでの中高生の入試問題質問は大抵、できるけど これは難しかった。 試験時間内に32-11-17/2と正答できそうもない。 >> だれかこれ教えてください △ABEの面積です https://i.imgur.com/CEWGYMT.jpg https://i.imgur.com/LNdV7o9.jpg こっちは答の出し方がアホだと思う。 わざわざ場合分けして複雑にしている。 >> https://i.imgur.com/AybCWI1.jpg https://i.imgur.com/NeApfsu.jpg 7*2!*5! 7*4!*3! で答がでる。 部屋割の数すら算出できないド底辺シリツ医大卒には難問だろな。 991 名前：卵の名無しさん mailto:sage [2018/08/31(金) 13:13:16.55 ID:/RQVlo61.net] >>946 あなたの書き込みを見てると　シリツ　という単語がよく出てきてますが 私立の事でしょうか？ 小学校で教える漢字の中に入っていると思いますが ひょっとしてあなたは小学校レベルの漢字も使えないような低学歴なのでしょうか？ 992 名前：卵の名無しさん [2018/08/31(金) 13:18:14.25 ID:NP+qi/Vm.net] >>947 相手は医師になりそこないの バカ事務員さんだ 言うたんな 993 名前：卵の名無しさん mailto:sage [2018/08/31(金) 14:45:34.36 ID:F0nmV/5C.net] >>947 慶應を除くためにシリツと書いているのも理解できないんだな。 さすがド底辺シリツ医大卒なだけあるな。 994 名前：卵の名無しさん [2018/08/31(金) 15:08:08.82 ID:8qIuNT+j.net] で？ あんたは どこで お医者さんしてんの？ あははははははははははははははははははははははははははははははははははははははははははははは 995 名前：卵の名無しさん mailto:sage [2018/08/31(金) 15:08:31.13 ID:F0nmV/5C.net] >>949 自治医も除いていいな。 俺が受けた唯一の私立 ≠シリツ 通ったけど医科歯科合格の自信があったから期日までに手続きしなかった。 996 名前：卵の名無しさん mailto:sage [2018/08/31(金) 15:09:23.33 ID:F0nmV/5C.net] >>950 第三法則実証乙。 おーい、ド底辺！ 宿題から逃げんなよ。 ド底辺シリツ医はpulseless VTにcardioversionしないで何するんだい？ 私立医三年生の正答率ほぼ100％なんだろ？ ネットにド底辺シリツ医大卒の馬鹿の証を保存しておきました。 imagizer.imageshack.com/img922/2025/fiDLdf.png pulseless VTにド底辺シリツ医大はcardioversionせずに何をするんだ？ PEAをpulseless VTと混同するような馬鹿は医師ではないだろう。 いや、ド底辺シリツ医大卒の裏口バカならありうるかもしれん。 997 名前：卵の名無しさん [2018/08/31(金) 15:12:17.99 ID:95IVSWBk.net] >>951 >>952 で？あんたはいまどこで お医者さんしてんのかね？ ウリュウ事務員さんw あはははははははははははははははははははははははははは 998 名前：卵の名無しさん mailto:sage [2018/08/31(金) 15:13:37.19 ID:dQmojtaG.net] これ解決できないかった。マクローリン展開が必要になりそうなんだが、これ中学数学の問題かな。 【中学数学】分からない問題を教えてください！ [無断転載禁止]&#169;2ch.net https://rio2016.5ch.net/test/read.cgi/math/1472224860/1 1 名前：１３２人目の素数さん[sage] 投稿日：2016/08/27(土) 00:21:00.34 ID:P+YAsdGm 2桁の数を思い浮かべてください。 1桁目と2桁目の数を足してください。 それに5555を足してください。 それを264倍してください。 それの平方根を取ってください。 出てきた少数の第一位と第三位を足してください。 それは9ですね？ これの原理を教えてください！ よろしくお願いします！ 検証するだけなら、簡単 > options(digits=8 999 名前：) > n=10:99 > table(n%/%10+n%%10) 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 1 2 3 4 5 6 7 8 9 9 8 7 6 5 4 3 2 1 > x=1:18 > (y=sqrt((x+5555)*264)) [1] 1211.1086 1211.2176 1211.3265 1211.4355 1211.5445 1211.6534 1211.7624 1211.8713 [9] 1211.9802 1212.0891 1212.1980 1212.3069 1212.4158 1212.5246 1212.6335 1212.7423 [17] 1212.8512 1212.9600 > z=y-floor(y) > floor(10*z)+floor(1000*z)%%10 [1] 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 [] [ここ壊れてます] 1000 名前：卵の名無しさん [2018/08/31(金) 15:20:08.12 ID:DtKcvkUz.net] でも おまえは お医者さん違うだろう ウリュウ事務員さん 1001 名前：卵の名無しさん mailto:sage [2018/08/31(金) 16:15:20.62 ID:/RQVlo61.net] >>949 一般的な日本語では　市立　も　シリツ　ですね 私立をシリツと書くのは、あなた特有の単語の使用方法ですが、 世間との交流を絶たれた特殊な地域ででも暮らしてこられたのでしょうか？ ちなみに、宮廷卒の目で見れば、慶応も自治医も、単なる私立大学の一つにすぎません 自治医大は学費がかからない点、防衛医大と同様に貧乏な家庭には人気がありますね 1002 名前：卵の名無しさん mailto:sage [2018/08/31(金) 16:21:35.02 ID:F0nmV/5C.net] >>956 ド底辺市立医大はないから誤解されることもない。 あんたもド底辺学力だろ？ 部屋割数を数え終わったか？ 数え方は既述。 算出式を書いてくれてもいいぞ。 1003 名前：卵の名無しさん mailto:sage [2018/08/31(金) 16:36:35.81 ID:F0nmV/5C.net] >>934 これクジの本数ｎとしてｎ→∞にしたときは負の二項分布になるな。 Ent2 <- function(P,Q,hit=1){ N=P+Q nPr=function(n,r) choose(n,r)*factorial(r) re=numeric(hit+Q) for(i in hit:(hit+Q)) { re[i]=i*choose(i-1,hit-1)*nPr(Q,i-hit)*nPr(P,hit)/nPr(N,i) } return(sum(re)) } ent2 = function(N,p=0.3,hit=3) Ent2(N*p,N*(1-p),hit) 1004 名前：卵の名無しさん mailto:sage [2018/08/31(金) 16:38:55.08 ID:F0nmV/5C.net] ド底辺シリツ医大は誰にも人気がないね。 ナマポからも蔑まれる。 貧困の象徴たるナマポからも蔑まれるのがド底辺シリツ医大卒。 東京医大の事件で裏口どころか裏口バカであることが全国民の知るところとなった。 裏口シリツを選択せざるをえなかった生き方そのものが蔑まれているんだよね。 ナマポも蔑むド底辺シリツ医大卒。 実例↓ 517 卵の名無しさん 2018/02/25(日) 11:36:00.56 ID:gq76tAvs 福岡のあの歯科大かな？ 歯科口腔外科で抜歯依頼したら爺ちゃんが〇〇歯科大卒の先生は避けて下さいねがあった けど。 この爺ちゃん、聖マリ卒の先生もよけて下さいと初診時に言ってた札付き爺さん。 生保受給者のくせにね。 1005 名前：卵の名無しさん mailto:sage [2018/08/31(金) 16:40:11.85 ID:F0nmV/5C.net] 不朽の名投稿を再掲 東京医大の事件で裏口バカが今も実在しているのが明らかになりましたねぇ。 (quote) 私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、慶応以外の私立医は特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。 常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られる 1006 名前：のをわかって好き好んで私立医に行く同級生は一人もいませんでした。 本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８−９割は私立卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。当の本人には面と向かっては絶対にそんなことは言わないけどね。 (unquote) [] [ここ壊れてます] 1007 名前：卵の名無しさん mailto:sage [2018/08/31(金) 16:41:21.17 ID:F0nmV/5C.net] 裏口入学が都市伝説だとか過去の話というのは 嘘だと全国民が知りつくしたのが東京医大の事件だね。 縁故や寄付金じゃなくて試験データの改竄。 シリツ＝裏口バカが確定。 まあ、当事者はずっと前に認識していたようだ。　 ガチの裏と呼んでその存在を認めている。 imagizer.imageshack.com/img923/7955/w1bWeN.jpg ガチの裏ｗｗｗｗｗｗｗ ガチの裏ｗｗｗｗｗｗｗｗｗｗｗ あははははははははははははははははははははははははははははははははははははははははははははは 1008 名前：卵の名無しさん mailto:sage [2018/08/31(金) 16:52:00.57 ID:F0nmV/5C.net] >>958 シミュレーションで確認できるけど 解析的には p=0.3 P=p*N Q=(1-p)*N hit=3 として Σ[hit,hit+Q]i*nCr(i-1,hit-1)*nPr(Q,i-hit)*nPr(P,hit)/nPr(N,i) N→無限大でhit/pに収束することが言えればいい。 階乗がいっぱいでてきて変形が大変そう。 1009 名前：卵の名無しさん mailto:sage [2018/08/31(金) 17:10:03.45 ID:F0nmV/5C.net] このスレの趣旨に合わせた問題にしてもド底辺シリツ医大卒は答えないね。 数学板の問題を改変。 私立医大の予約入学権のクジが発売されたとする。 選んだクジは当たりがでるまでクジをひく。 途中で乗り換えるのはできない。 　裏口シリツ医大では100本のクジのうち30本が当たりでクジを1本が引くのに1000万円要する。 　ガチ裏シリツ医大では50本のクジのうち30本が当たりでクジを1本が引くのに2000万円要する。 いずれも、はずれクジは戻さずにくじ引きを続ける。 どちら安く予約入学権を得ることができるか。 問題の意味くらいわかるだろうけど。 なんで答られないのかなぁ。 検索すれば答えられる問題じゃないからね。 大学でているのに中卒レベルの数学ができないなんて馬鹿なのだろうか？ 馬鹿なのにどうして大学に入れたんだろう？ いくらド底辺シリツ医大とはいえ数学というより算数ができないってどういうこと？ やっぱり、あれ？　う　ら　ぐ　ち 1010 名前：卵の名無しさん [2018/08/31(金) 17:16:22.83 ID:q60CT9Ri.net] ↑ 事務員さん 1011 名前：卵の名無しさん mailto:sage [2018/08/31(金) 18:43:17.01 ID:tPKlFmWI.net] >>964 その仮定だと事務員にも劣る馬鹿が ド底辺シリツ医大卒の裏口バカということになる。 くじの問題の意味くらいわかるだろうけど。 なんで答られないのかなぁ。 大学でているのに中卒レベルの数学ができないなんて馬鹿なのだろうか？ 馬鹿なのにどうして大学に入れたんだろう？ いくらド底辺シリツ医大とはいえ数学というより算数ができないってどういうこと？ やっぱり、あれ？　 う　ら　ぐ　ち imagizer.imageshack.com/img923/7955/w1bWeN.jpg ガチの裏ｗｗｗｗｗｗｗ ガチの裏ｗｗｗｗｗｗｗｗｗｗｗ あははははははははははははははははははははははははははははははははははははははははははははは 1012 名前：卵の名無しさん mailto:sage [2018/08/31(金) 18:49:10.36 ID:/RQVlo61.net] この事務員さんという方は発達障害か何かを患っておられるのですか？ この方の書き込みからは 精神病院に長期入院している方に類似した印象しか得られません https://www.youtube.com/watch?v=ckO9d_-qiPw 1013 名前：卵の名無しさん mailto:sage [2018/08/31(金) 18:59:14.98 ID:dQmojtaG.net] OCamlもPrologに似たようなところがあるなぁ。 let rec append x y = if x=[] then y else (List.hd x)::append (List.tl x) y ;; let x = [1;2;3;4];; let y = [5;6;7;8];; append x y ;; let x = [1;2;3;4];; val x : int list = [1; 2; 3; 4] # let y = [5;6;7;8];; val y : int list = [5; 6; 7; 8] # append x y ;; - : int list = [1; 2; 3; 4; 5; 6; 7; 8] 1014 名前：卵の名無しさん [2018/08/31(金) 19:29:40.35 ID:ozgp/LxB.net] ほんとうにすみません 自分が医師になってると 思い込みたいのです 医師になることは 長年の憧れなのです 国試はどうしても 合格できません 悔しいです どうか 私の悲しみを わかってください よろしくお願いします by 医師になれなかった事務員 1015 名前：卵の名無しさん mailto:sage [2018/08/31(金) 19:38:38.54 ID:F0nmV/5C.net] let rec append x y = if x= [] then y else (List.hd x) :: append (List.tl x) y ;; 2バイト文字でも、こちらは正しく動作するのだが append ["Ｔ";"Ｍ"] ["Ｄ";"Ｕ"] ;; こちらは正常に動作しないな。 append ["ド";"底辺" ;シリツ";"医大"] ["裏口";"バカ"] ;; 汚らわしいモノを扱うのをプログラムが拒否しているんだろうｗｗｗ こんなのと付き合いたくないよな。 陽性率から検査感度や有病 1016 名前：率の区間推定法を問われたときのド底辺シリツ医大卒のレスを御覧ください。 http://imagizer.imageshack.com/img924/6258/HZL6Ij.jpg [] [ここ壊れてます] 1017 名前：卵の名無しさん mailto:sage [2018/08/31(金) 19:41:06.16 ID:F0nmV/5C.net] >>966 >発達障害 といえばド底辺シリツ医大卒の頭脳。 あんたもその一人だろね。 10人を5部屋空室なしの割りつけ法の数を書いてみ！ 1018 名前：卵の名無しさん mailto:sage [2018/08/31(金) 20:07:21.90 ID:/RQVlo61.net] >>970 専門医スレで事務員を見つけたので このスレを宣伝してきてさしあげた ありがたく思いなさい ふはははははは 1019 名前：卵の名無しさん [2018/08/31(金) 20:16:41.35 ID:ozgp/LxB.net] すいません すみません 自分のコントロールができないのです 誰か私のことを 頭がいいね と言ってくれませんでしょうか？ 自信が欲しいのです 皆さんがご承知のとうり 国試に合格できない コンプレックスを 穴埋めしたいのです どうかみなさん よろしくお願いします 1020 名前：卵の名無しさん [2018/08/31(金) 21:47:01.57 ID:tRtzefrw.net] 女子中学生の胸を触った疑い　佐賀県警巡査を逮捕 2018年8月30日00時48分 佐賀県警は２９日、女子中学生にわいせつな行為をしたとして、県警鹿島署地域２課巡査の萩原陽介容疑者（２３）＝同県江北町＝を強制わいせつ容疑で逮捕し、発表した。 容疑を否認しているという。 1021 名前：卵の名無しさん mailto:sage [2018/08/31(金) 22:57:30.69 ID:dQmojtaG.net] 数学板で　三点の座標を入力したら三角形の面積を計算するプログラム組めばいんじゃない？　と書いたら 四点の座標を入力して四面体の体積をだすプログラムを組みたくなった。 垂線の足の座標の算出式の連立方程式の一般解をWolforam先生に出して貰おうと思ったら式が複雑過ぎて返答なし。 パッケージ使ってニュートン法での近似計算で出すことにした。 library(nleqslv) Tetra <- function(O=c(1/2,sqrt(3)/6,sqrt(2/3)),A=c(0,0,0),B=c(1,0,0),C=c(cos(pi/3),sin(pi/3),0)){ fn <- function(x,O,A,B,C){ AO=A-O BO=B-O CO=C-O HO=x[1]*AO+x[2]*BO+(1-x[1]-x[2])*CO # H on triangle ABC AB=B-A AC=C-A c(HO%*%AB,HO%*%AC) # HO vertial to AB and AC } fn1 <- function(x) fn(x,O,A,B,C) x=nleqslv::nleqslv(c(1/3,1/3),fn1)$'x' AO=A-O BO=B-O CO=C-O HO=x[1]*AO+x[2]*BO+(1-x[1]-x[2])*CO h=sqrt(sum(HO^2)) a=sqrt(sum((B-C)^2)) b=sqrt(sum((C-A)^2)) c=sqrt(sum((A-B)^2)) s=(a+b+c)/2 base=sqrt(s*(s-a)*(s-b)*(s-c)) V=1/3*base*h return(V) } 1022 名前：卵の名無しさん mailto:sage [2018/09/01(土) 01:27:14.40 ID:KmDWwgIe.net] >>974 ベクトルの三十積を教わったら、僅か４行で済んだ。 tetrahedron <- function(O=c(1/2,sqrt(3)/6,sqrt(2/3)),A=c(0,0,0),B=c(1,0,0),C=c(cos(pi/3),sin(pi/3),0)){ AO=A-O BO=B-O CO=C-O as.numeric(abs(pracma::cross(AO,BO) %*% CO)/6) } まあ、結果が一致したから、バグなしが確認できたのは収穫。 数学板は勉強になるなぁ。 > sqrt(2)/12 [1] 0.1178511301977579 > Tetra() [1] 0.1178511301977579 > tetrahedron() [1] 0.1178511301977579 1023 名前：卵の名無しさん mailto:sage [2018/09/01(土) 01:28:50.86 ID:KmDWwgIe.net] >>971 部屋割りの数も数えられないド底辺頭脳のアホ？ 1024 名前：卵の名無しさん mailto:sage [2018/09/01(土) 01:38:14.49 ID:KmDWwgIe.net] ド底辺シリツ医大の題材に合わせた問題。 でも、ド底辺シリツ医大卒には解けないと思う。 裏口学生とその斡旋者４組８人が事情聴取されることになったとする。 一列に並んで待つことになったが、斡旋した業者と斡旋された裏口学生が並ぶと 口裏を合わせる可能性がある。 無作為に並んだ場合に、斡旋した業者と斡旋された裏口学生が隣り合わせにならない確率はいくらか？ ここで一句、裏口の　口裏をあわせる　ド底辺 1025 名前：卵の名無しさん mailto:sage [2018/09/01(土) 01:42:58.31 ID:KmDWwgIe.net] 修正 裏口の　口裏あわせる　ド底辺 1026 名前：卵の名無しさん mailto:sage [2018/09/01(土) 01:44:05.95 ID:KmDWwgIe.net] >>971 このスレタイみて書き込む、シリツ卒がいたら、本物のアホだと思わない？ 1027 名前：卵の名無しさん mailto:sage [2018/09/01(土) 06:10:50.10 ID:/q5d+A3a.net] >>979 小学生レベルのかんじが書けないとは さては国試浪人の事務員だな 1028 名前：卵の名無しさん mailto:sage [2018/09/01(土) 08:12:09.38 ID:FaItGeuF.net] >>980 かんじ？ 1029 名前：卵の名無しさん mailto:sage [2018/09/01(土) 08:26:21.26 ID:KmDWwgIe.net] # 4組のカップル(合わせて8人)が無作為に横一列に並ぶ。 # どのカップルについても彼氏と彼女が隣り合わない確率を求めよ。 library(gtools) x=c(1:4,-1:-4) lx=length(x) perm=permutations(n=lx,r=lx,v=x,set=FALSE) head(perm) ; tail(perm) contact <- function(x){ n=length(x) i=1 y=x[1]+x[2] if(y==0) return(TRUE) while(y!=0 & i<n){ y=x[i]+x[i+1] if(y==0) return(TRUE) i=i+1 } return(FALSE) } cnt=sum(apply(perm, 1, contact)) # contact (a=nrow(perm)-cnt) (b=nrow(perm)) gcd <- function(a,b) ifelse(!a%%b,b,gcd(b,a%%b)) a/b a/gcd(a,b) b/gcd(a,b) 1030 名前：卵の名無しさん mailto:sage [2018/09/01(土) 08:27:50.47 ID:KmDWwgIe.net] >>980 部屋割りの数は数え終わったのか？ ライフワークにでもしろｗ 1031 名前：卵の名無しさん mailto:sage [2018/09/01(土) 13:20:36.81 ID:KmDWwgIe.net] 講義が新しくなってた。 https://www.youtube.com/watch?v=iFaIpe9rFR0 1032 名前：卵の名無しさん mailto:sage [2018/09/01(土) 13:59:23.45 ID:VElYkxJX.net] 訂正、こっちだった https://www.youtube.com/watch?v=RwCQdlPzn0Y&list=PLFryQ-K6iv6Xpenhh18EPsPnQWvmGzm0b&index=5 1033 名前：卵の名無しさん [2018/09/01(土) 18:43:12.33 ID:XiBEvPfz.net] 私立医は　ばか　あほ　たわけ 1034 名前：卵の名無しさん [2018/09/02(日) 06:11:12.18 ID:Jp+zFUEg.net] >>987 ワロタｗ なんか強烈なインパクトのある一文だなｗ 1035 名前：卵の名無しさん [2018/09/02(日) 13:56:50.67 ID:OozDBXdX.net] 女医タレント偏差値 西川史子（聖マリアンナ医科大学卒）入学時偏差値47.5 友利新（東京女子医科大学卒）入学時偏差値57.5 おおたわ史絵（東京女子医科大学卒）入学時偏差値52.5 脇坂英理子（東京女子医科大学卒）入学時偏差値57.5 男医タレント偏差値 木下博勝（杏林大学医学部卒）入学時偏差値42.5 1036 名前：卵の名無しさん mailto:sage [2018/09/03(月) 19:02:51.35 ID:x1Tp+ePT.net] 協調性といえば　これな！ 底辺私立医大卒が国立大学医学部卒を妬むスレ [転載禁止](c)2ch.net potato.2ch.net/test/read.cgi/hosp/1424846816/695 695 名前：卵の名無しさん[] 投稿日：2016/09/25(日) 22:04:25.53 ID:FzuOCpqV 匿名先生 精神科 ▲ 1 評価 私立出でも、素晴らしい医師がいるし、国立でも、どうしようもないのもいる。 そんなのは、あくまで個人の資質差と思ってました。 が、 今いる病院（医師の大部分が、いわゆる底辺私立）に来て、その考えは変わりました。 とある、気に食わない医師の白衣やサンダルを隠す、机の上にゴミを置く、など、小学生じみた嫌がらせをしている医師というのを、はじめて見ました。 国立出の変人も多々みてきましたが、こんな、小学生のイタズラみたいなことをする人は、いませんでした。 やはり、底辺私立は、それなりなんだと思いました。 2016年09月02日 00時21分09秒 1037 名前：卵の名無しさん mailto:sage [2018/09/04(火) 22:10:24.14 ID:w0nHKOtH.net] 埋め 1038 名前：卵の名無しさん mailto:sage [2018/09/11(火) 12:02:24.05 ID:DPX9K4Dn.net] + 1/(c+f+g+h+i+j) + 1/(d+e+f+g+h+i) + 1/(d+e+f+g+h+j) + 1/(d+e+f+g+i+j) + 1/(d+e+f+h+i+j) + 1/(d+e+g+h+i+j) + 1/(d+f+g+h+i+j) + 1/(e+f+g+h+i+j) + 1/(a+b+c+d+e+f+g) + 1/(a+b+c+d+e+f+h) + 1/(a+b+c+d+e+f+i) + 1/(a+b+c+d+e+f+j) + 1/(a+b+c+d+e+g+h) + 1/(a+b+c+d+e+g+i) + 1/(a+b+c+d+e+g+j) + 1/(a+b+c+d+e+h+i) + 1/(a+b+c+d+e+h+j) + 1/(a+b+c+d+e+i+j) + 1/(a+b+c+d+f+g+h) + 1/(a+b+c+d+f+g+i) + 1/(a+b+c+d+f+g+j) + 1/(a+b+c+d+f+h+i) + 1/(a+b+c+d+f+h+j) + 1/(a+b+c+d+f+i+j) + 1/(a+b+c+d+g+h+i) + 1/(a+b+c+d+g+h+j) + 1/(a+b+c+d+g+i+j) + 1/(a+b+c+d+h+i+j) + 1/(a+b+c+e+f+g+h) + 1/(a+b+c+e+f+g+i) + 1/(a+b+c+e+f+g+j) + 1/(a+b+c+e+f+h+i) + 1/(a+b+c+e+f+h+j) + 1/(a+b+c+e+f+i+j) + 1/(a+b+c+e+g+h+i) + 1/(a+b+c+e+g+h+j) + 1/(a+b+c+e+g+i+j) + 1/(a+b+c+e+h+i+j) + 1/(a+b+c+f+g+h+i) + 1/(a+b+c+f+g+h+j) + 1/(a+b+c+f+g+i+j) + 1/(a+b+c+f+h+i+j) + 1/(a+b+c+g+h+i+j) + 1/(a+b+d+e+f+g+h) + 1/(a+b+d+e+f+g+i) + 1/(a+b+d+e+f+g+j) + 1/(a+b+d+e+f+h+i) + 1/(a+b+d+e+f+h+j) + 1/(a+b+d+e+f+i+j) + 1/(a+b+d+e+g+h+i) + 1/(a+b+d+e+g+h+j) + 1/(a+b+d+e+g+i+j) + 1/(a+b+d+e+h+i+j) + 1/(a+b+d+f+g+h+i) + 1/(a+b+d+f+g+h+j) + 1/(a+b+d+f+g+i+j) + 1/(a+b+d+f+h+i+j) + 1/(a+b+d+g+h+i+j) + 1/(a+b+e+f+g+h+i) + 1/(a+b+e+f+g+h+j) + 1/(a+b+e+f+g+i+j) + 1/(a+b+e+f+h+i+j) + 1/(a+b+e+g+h+i+j) + 1/(a+b+f+g+h+i+j) + 1/(a+c+d+e+f+g+h) + 1/(a+c+d+e+f+g+i) + 1/(a+c+d+e+f+g+j) + 1/(a+c+d+e+f+h+i) + 1/(a+c+d+e+f+h+j) + 1/(a+c+d+e+f+i+j) + 1/(a+c+d+e+g+h+i) + 1/(a+c+d+e+g+h+j) + 1/(a+c+d+e+g+i+j) + 1/(a+c+d+e+h+i+j) + 1/(a+c+d+f+g+h+i) + 1/(a+c+d+f+g+h+j) + 1/(a+c+d+f+g+i+j) + 1/(a+c+d+f+h+i+j) + 1/(a+c+d+g+h+i+j) + 1/(a+c+e+f+g+h+i) + 1/(a+c+e+f+g+h+j) + 1/(a+c+e+f+g+i+j) + 1/(a+c+e+f+h+i+j) + 1/(a+c+e+g+h+i+j) + 1/(a+c+f+g+h+i+j) + 1/(a+d+e+f+g+h+i) + 1/(a+d+e+f+g+h+j) + 1/(a+d+e+f+g+i+j) + 1/(a+d+e+f+h+i+j) + 1/(a+d+e+g+h+i+j) + 1039 名前：卵の名無しさん mailto:sage [2018/09/11(火) 12:03:02.82 ID:DPX9K4Dn.net] 1/(a+d+f+g+h+i+j) + 1/(a+e+f+g+h+i+j) + 1/(b+c+d+e+f+g+h) + 1/(b+c+d+e+f+g+i) + 1/(b+c+d+e+f+g+j) + 1/(b+c+d+e+f+h+i) + 1/(b+c+d+e+f+h+j) + 1/(b+c+d+e+f+i+j) + 1/(b+c+d+e+g+h+i) + 1/(b+c+d+e+g+h+j) + 1/(b+c+d+e+g+i+j) + 1/(b+c+d+e+h+i+j) + 1/(b+c+d+f+g+h+i) + 1/(b+c+d+f+g+h+j) + 1/(b+c+d+f+g+i+j) + 1/(b+c+d+f+h+i+j) + 1/(b+c+d+g+h+i+j) + 1/(b+c+e+f+g+h+i) + 1/(b+c+e+f+g+h+j) + 1/(b+c+e+f+g+i+j) + 1/(b+c+e+f+h+i+j) + 1/(b+c+e+g+h+i+j) + 1/(b+c+f+g+h+i+j) + 1/(b+d+e+f+g+h+i) + 1/(b+d+e+f+g+h+j) + 1/(b+d+e+f+g+i+j) + 1/(b+d+e+f+h+i+j) + 1/(b+d+e+g+h+i+j) + 1/(b+d+f+g+h+i+j) + 1/(b+e+f+g+h+i+j) + 1/(c+d+e+f+g+h+i) + 1/(c+d+e+f+g+h+j) + 1/(c+d+e+f+g+i+j) + 1/(c+d+e+f+h+i+j) + 1/(c+d+e+g+h+i+j) + 1/(c+d+f+g+h+i+j) + 1/(c+e+f+g+h+i+j) + 1/(d+e+f+g+h+i+j) + 1/(a+b+c+d+e+f+g+h) + 1/(a+b+c+d+e+f+g+i) + 1/(a+b+c+d+e+f+g+j) + 1/(a+b+c+d+e+f+h+i) + 1/(a+b+c+d+e+f+h+j) + 1/(a+b+c+d+e+f+i+j) + 1/(a+b+c+d+e+g+h+i) + 1/(a+b+c+d+e+g+h+j) + 1/(a+b+c+d+e+g+i+j) + 1/(a+b+c+d+e+h+i+j) + 1/(a+b+c+d+f+g+h+i) + 1/(a+b+c+d+f+g+h+j) + 1/(a+b+c+d+f+g+i+j) + 1/(a+b+c+d+f+h+i+j) + 1/(a+b+c+d+g+h+i+j) + 1/(a+b+c+e+f+g+h+i) + 1/(a+b+c+e+f+g+h+j) + 1/(a+b+c+e+f+g+i+j) + 1/(a+b+c+e+f+h+i+j) + 1/(a+b+c+e+g+h+i+j) + 1/(a+b+c+f+g+h+i+j) + 1/(a+b+d+e+f+g+h+i) + 1/(a+b+d+e+f+g+h+j) + 1/(a+b+d+e+f+g+i+j) + 1/(a+b+d+e+f+h+i+j) + 1/(a+b+d+e+g+h+i+j) + 1/(a+b+d+f+g+h+i+j) + 1/(a+b+e+f+g+h+i+j) + 1/(a+c+d+e+f+g+h+i) + 1/(a+c+d+e+f+g+h+j) + 1/(a+c+d+e+f+g+i+j) + 1/(a+c+d+e+f+h+i+j) + 1/(a+c+d+e+g+h+i+j) + 1/(a+c+d+f+g+h+i+j) + 1/(a+c+e+f+g+h+i+j) + 1/(a+d+e+f+g+h+i+j) + 1/(b+c+d+e+f+g+h+i) + 1/(b+c+d+e+f+g+h+j) + 1/(b+c+d+e+f+g+i+j) + 1/(b+c+d+e+f+h+i+j) + 1/(b+c+d+e+g+h+i+j) + 1/(b+c+d+f+g+h+i+j) + 1/(b+c+e+f+g+h+i+j) + 1040 名前：卵の名無しさん mailto:sage [2018/09/11(火) 12:03:21.40 ID:DPX9K4Dn.net] 1/(b+d+e+f+g+h+i+j) + 1/(c+d+e+f+g+h+i+j) + 1/(a+b+c+d+e+f+g+h+i) + 1/(a+b+c+d+e+f+g+h+j) + 1/(a+b+c+d+e+f+g+i+j) + 1/(a+b+c+d+e+f+h+i+j) + 1/(a+b+c+d+e+g+h+i+j) + 1/(a+b+c+d+f+g+h+i+j) + 1/(a+b+c+e+f+g+h+i+j) + 1/(a+b+d+e+f+g+h+i+j) + 1/(a+c+d+e+f+g+h+i+j) + 1/(b+c+d+e+f+g+h+i+j) + 1/(a+b+c+d+e+f+g+h+i+j) 1041 名前：卵の名無しさん mailto:sage [2018/09/13(木) 10:17:29.42 ID:uSH5j28o.net] これ使ってみてください！ 上手くいってます。 https://store.line.me/stickershop/author/540272/ja 1042 名前：卵の名無しさん [2018/09/19(水) 10:23:08.61 ID:1suS2aSW.net] 学会じゃ私立医卒講師の演題とか　もうバカバカしくて聞く気にならない それどころか私立医の発表も聞く気にならない 1043 名前：卵の名無しさん [2018/09/22(土) 17:11:11.20 ID:10VHuF+G.net] 東京大学かしわぎしょうこ https://medaka.5ch.net/test/read.cgi/kouri/1535780742/l50 1044 名前：卵の名無しさん [2018/09/22(土) 17:11:49.84 ID:10VHuF+G.net] 東京大学かしわぎしょうこ https://medaka.5ch.net/test/read.cgi/kouri/1535780742/l50 1045 名前：卵の名無しさん [2018/09/22(土) 17:12:22.48 ID:10VHuF+G.net] 東京大学かしわぎしょうこ https://medaka.5ch.net/test/read.cgi/kouri/1535780742/l50 1046 名前：卵の名無しさん [2018/09/22(土) 17:12:42.89 ID:10VHuF+G.net] 東京大学かしわぎしょうこ https://medaka.5ch.net/test/read.cgi/kouri/1535780742/l50 1047 名前：卵の名無しさん [2018/09/22(土) 17:20:57.21 ID:RpOH1hss.net] 板復帰(OK!:Gather .dat file OK:moving DAT 738 -> 728:Get subject.txt OK:Check subject.txt 737 -> 735:Overwrite OK)2.14, 2.22, 2.35 age subject:735 dat:728 rebuild OK! 1048 名前：1001 [Over 1000 Thread.net] このスレッドは１０００を超えました。 新しいスレッドを立ててください。 life time: 47日 9時間 14分 18秒 1049 名前：過去ログ ★ [[過去ログ]] ■ このスレッドは過去ログ倉庫に格納されています

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef