コラッツの問題をVBScriptで検証！！
数論の未解決問題で
「正の数nを取り、これが奇数なら3倍して1を足す。偶数なら2で割る。これを繰り返すとはじめにどんなnを選んでも、いつかは1→4→2→1を繰り返す」
というのがコラッツの問題だとか。
4兆まではコンピュータで合ってるって確認されてるらしいけどこれから間違いが見つかるかも。
ヒマだったので、とりあえずVBscriptで検証できるようなのを作った。
------------------------------------------------------------------------------
Dim n
n=InputBox("好きな正の整数をどうぞ！")
If n>0 And n-CLng(n)=0 Then
n=CLng(n)
Dim s
s=""&n
Do until n=1 Or n=2 Or n=4
i=i+1
If n Mod 2=0 Then
n=n/2
Else
n=3*n+1
End If
s=s&" "&n
loop
MsgBox(s)
Else
MsgBox("正の整数を入力してください")
End if
------------------------------------------------------------------------------
ウィンドウズのパソコンを持ってたら、この青い部分のテキストをコピーして、メモ帳に貼りつけて
拡張子を「.vbs」にすれば、すぐに検証出来るぜ♪
ダブルクリックで開いて数を入れると検証出来るけど・・・
素人の作ったヤツなんで何が起きても保証は出来ない。すみません
あ、あと、
「正の数nを取り、これが奇数なら3倍して1を足す。偶数なら2で割る。これを繰り返すとはじめにどんなnを選んでも、いつかは1→4→2→1を繰り返す」
というのがコラッツの問題だとか。
4兆まではコンピュータで合ってるって確認されてるらしいけどこれから間違いが見つかるかも。
ヒマだったので、とりあえずVBscriptで検証できるようなのを作った。
------------------------------------------------------------------------------
Dim n
n=InputBox("好きな正の整数をどうぞ！")
If n>0 And n-CLng(n)=0 Then
n=CLng(n)
Dim s
s=""&n
Do until n=1 Or n=2 Or n=4
i=i+1
If n Mod 2=0 Then
n=n/2
Else
n=3*n+1
End If
s=s&" "&n
loop
MsgBox(s)
Else
MsgBox("正の整数を入力してください")
End if
------------------------------------------------------------------------------
ウィンドウズのパソコンを持ってたら、この青い部分のテキストをコピーして、メモ帳に貼りつけて
拡張子を「.vbs」にすれば、すぐに検証出来るぜ♪
ダブルクリックで開いて数を入れると検証出来るけど・・・
素人の作ったヤツなんで何が起きても保証は出来ない。すみません
あ、あと、
漫画とかの名言を色々。
厨二病を病気みたいにゆーな！
閑話休題、名言とかその他色々と使う場面について並べたw
全力について
・今ここで全力で戦わなかったおれにあいつらと同じ船に乗る資格なんてあるはずねェ!あいつらと本気で笑いあっていいはずがねェ!(ONE PIECE)
・本気で勝負すると、何かが決壊するんだ。(20世紀少年)
・端っから本気で来るんだな 相手は竜だぜ(戦国BASARA)
・座右の銘は極限！！(家庭教師ヒットマンリボーン)
技の多さとか自慢する時
・ワシの波動球は108式まであるぞ
・ぼくには7932兆1354億4152万3222個の異常性と4925兆9165億2611万643個の過負荷、合わせて1京2858兆519億6763万3865個のスキルがあるんだぜ(めだかボックス)
他人に責任を押し付ける時など
・間違っていたのは俺じゃない 世界の方だ(コードギアス)
・馬鹿野郎そいつがルパンだ(ルパン三世 カリオストロの城 )
首を落とされた時など
・首をもがれたのは久しぶりだ(HELLSING)
・まだだ！たかがメインカメラをやられただけだ！(機動戦士ガンダム めぐりあい宇宙)
処刑される前などに
・あら、おやつの時間だわ(悪ノ娘)
・俺の財宝か?欲しけりゃくれてやる。探せ！この世の全てをそこに置いてきた(ONE PIECE)
執事が使うセリフ
・ファントムハイヴ家の執事たるもの、この程度の技が使えなくてどうします?(黒執事)
・小便はすませたか？ 神様にお祈りは？ 部屋の隅でガタガタふるえて命乞いをする心の準備はOK?(HELLSING)
光り輝く物を使う時などに
・太陽拳！(ドラゴンボール)
・バルス！(天空の城ラピュタ)
・目に頼りすぎだ！ブラッドレイ！(鋼の錬金術師)
極端に使いづらいツッコミ
・お前はトマトか(ギャグマンガ日和)
・エゴだよそれは(逆襲のシャア)
・これでは道化だよ(逆襲のシャア)
今思いつくのはこれくらいかな。
そういえば、男がBL漫画を読んでるから同性愛者ってやっぱりヘンだよな。
戦争映画見てる人もだいたい戦争したくないだろうし
野球とかのスポーツ見てる人もやってるとは限らないし
ONE PIECEとかパイレーツ・オブ・カリビアン見てるからって略奪をしたい人は少ないし
ハットリくんとかNARUTOとか忍たま乱太郎が大好きだからって忍者になりたいワケじゃないし
ゲームやりたい人と作りたい人は全然違うしリストカット見たい人とやりたい人も全然違う
まぁ、直感的にはそう思ってしまいやすいのだろうけどなー
これで終わりです！じゃーねー☆彡
閑話休題、名言とかその他色々と使う場面について並べたw
全力について
・今ここで全力で戦わなかったおれにあいつらと同じ船に乗る資格なんてあるはずねェ!あいつらと本気で笑いあっていいはずがねェ!(ONE PIECE)
・本気で勝負すると、何かが決壊するんだ。(20世紀少年)
・端っから本気で来るんだな 相手は竜だぜ(戦国BASARA)
・座右の銘は極限！！(家庭教師ヒットマンリボーン)
技の多さとか自慢する時
・ワシの波動球は108式まであるぞ
・ぼくには7932兆1354億4152万3222個の異常性と4925兆9165億2611万643個の過負荷、合わせて1京2858兆519億6763万3865個のスキルがあるんだぜ(めだかボックス)
他人に責任を押し付ける時など
・間違っていたのは俺じゃない 世界の方だ(コードギアス)
・馬鹿野郎そいつがルパンだ(ルパン三世 カリオストロの城 )
首を落とされた時など
・首をもがれたのは久しぶりだ(HELLSING)
・まだだ！たかがメインカメラをやられただけだ！(機動戦士ガンダム めぐりあい宇宙)
処刑される前などに
・あら、おやつの時間だわ(悪ノ娘)
・俺の財宝か?欲しけりゃくれてやる。探せ！この世の全てをそこに置いてきた(ONE PIECE)
執事が使うセリフ
・ファントムハイヴ家の執事たるもの、この程度の技が使えなくてどうします?(黒執事)
・小便はすませたか？ 神様にお祈りは？ 部屋の隅でガタガタふるえて命乞いをする心の準備はOK?(HELLSING)
光り輝く物を使う時などに
・太陽拳！(ドラゴンボール)
・バルス！(天空の城ラピュタ)
・目に頼りすぎだ！ブラッドレイ！(鋼の錬金術師)
極端に使いづらいツッコミ
・お前はトマトか(ギャグマンガ日和)
・エゴだよそれは(逆襲のシャア)
・これでは道化だよ(逆襲のシャア)
今思いつくのはこれくらいかな。
そういえば、男がBL漫画を読んでるから同性愛者ってやっぱりヘンだよな。
戦争映画見てる人もだいたい戦争したくないだろうし
野球とかのスポーツ見てる人もやってるとは限らないし
ONE PIECEとかパイレーツ・オブ・カリビアン見てるからって略奪をしたい人は少ないし
ハットリくんとかNARUTOとか忍たま乱太郎が大好きだからって忍者になりたいワケじゃないし
ゲームやりたい人と作りたい人は全然違うしリストカット見たい人とやりたい人も全然違う
まぁ、直感的にはそう思ってしまいやすいのだろうけどなー
これで終わりです！じゃーねー☆彡