お題:世界のナベアツを作れ

プログラミングで解決してね 1~10の連続する数を順番に選択していき 素数の時だけ”アホになる‼️” とメッセージをだせ👍
素数 VBA 素数判定 話題 プログラミング初心者 テクノロジー アホ プログラミング イベント コード
16
ペンギン屋@ゆるく運営中 @penguincomcom
【よかったら遊んでください】✨🐧 プログラミングで解決してね❤️ お題:世界のナベアツを作れ / 1~10の連続する数を順番に選択していき 素数の時だけ ”アホになる‼️” とメッセージをだせ👍 \ #お題 #VBA #VBA仲間募集 #つながりたい #プログラミング初心者 #駆け出しエンジニアと繋がりたい
チン☆テクラ @akashi_keirin
素数判定メソッド自作済みなので、 Dim i As Long For i = 1 To 10 If isPrimeNumber( i ) Then _ Debug.Print "アホになる!!" Next でしまい。 ち~んw 😁 twitter.com/penguincomcom/…
ペンギン屋@ゆるく運営中 @penguincomcom
はやっ(笑)‼️ 素数判定メソッド自作済みって‼️🤣🤣🤣 すげーーーー‼️🌟 コードもすっきりしていてエレガント✨✨ twitter.com/akashi_keirin/…
チン☆テクラ @akashi_keirin
しもた。修正。 Dim i As Long For i = 1 To 10 If isPrimeNumber( i ) Then Debug.Print "アホになる!!" Else Debug.Print CStr( i ) End If Next ですな。
ペンギン屋@ゆるく運営中 @penguincomcom
素数判定メソッド完成✨✨✨🐧 (ほぼ#コピッペだけど) ニューコードもできた‼️ ちょっと成長✨👍👍🐧
ペンギン屋@ゆるく運営中 @penguincomcom
素数判定メソッド付き (メソッドはコピッペだけど!!) くやしくないんだからね‼️🐟🦐🐧 pic.twitter.com/60wJq0g0lZ
拡大
ペンギン屋@ゆるく運営中 @penguincomcom
気にいってるヤツ 簡単で見やすくいい✨🐧 Sub test()  Debug.Print "1"  MsgBox "2,アホになる!!"  MsgBox "3,アホになる!!"  Debug.Print "4"  MsgBox "5,アホになる!!"  Debug.Print "7"  MsgBox "7,アホになる!!"  Debug.Print "8"  Debug.Print "9"  Debug.Print "10" End Sub
ふくみみ@神主を諦めた社畜ITエンジニア @SE45365259
素数について整理しよう。 素数は、 下一桁が2,5を除いて 必ず1,3,5,9のいずれかである。 この事から i*10+(1,3,5,9)のいずれかに必ずなる。
ペンギン屋@ゆるく運営中 @penguincomcom
これ最高ですw////// VBA 私がコードを整理するときの思考プロセスを紹介 - t-hom’s diary thom.hateblo.jp/entry/2016/12/…
ペンギン屋@ゆるく運営中 @penguincomcom
@sakutan2020 ホントだ‼️ オチが一緒でしたwww みなさん同じく通る道なのかも知れませんねww 最高です🐧👍
ふみぞー🐰ADHD+少々のASD @teori_kimono
@penguincomcom 難しく考え過ぎました😅 1〜10の範囲なら、まだ計算しなくって良かったんですね(笑)
ペンギン屋@ゆるく運営中 @penguincomcom
@teori_kimono そうなんです。 私は、はじめてみた時”やられた感”がありましたw 大量でなければコピペで十分ですからw
ふみぞー🐰ADHD+少々のASD @teori_kimono
@penguincomcom 敢えて関数を探しちゃう辺りで、コケてるんですね😂
ペンギン屋@ゆるく運営中 @penguincomcom
@excelvba_diary Excel VBA Diaryさん こんばんは 簡潔で美しいコードっていいですよね。 書き直すたび少しづつ美しいコードになると小躍りしたくなりますw
ペンギン屋@ゆるく運営中 @penguincomcom
@teori_kimono 悪くはないと思いますよ!! ただもっと簡単な方法があるかもしれません コンビニ行くのにF1は必要ない的な(笑) チャリンコで十分w
ふくみみ@神主を諦めた社畜ITエンジニア @SE45365259
素数整理3 メイン a任意 if((a%10)=(1,3,7,9)) 素数(a) end if if(素数?) 素数 else not素数 if end endメイン 素数(a) Max =long(a/2) for i=1To Max if(a%(i*2+1)=0) 素数じゃない blank End if Next 1 if(not素数?) not素数 else 素数だ end if end 素数
ふくみみ@神主を諦めた社畜ITエンジニア @SE45365259
素数整理4 1,2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,51,53,59,61,67,71,73,79,83,91,97,
ことりちゅん@えくせるちゅんちゅん @KotorinChunChun
@penguincomcom @sakutan2020 空気読まずにごめんなさい。 単にオチと同じだとは言えない気がします。 曜日は7種類と言う定数だから、将来拡張する可能性がないから最適解がそうなった。 でも本題は拡張することが目に見えているので、forの方に優位があると思われます。 但し出題に答えるだけなら10なので問題なし!
ペンギン屋@ゆるく運営中 @penguincomcom
@KotorinChunChun @sakutan2020 いえいえ! ことりちゅんさん、こんばんは たしかに!!! 曜日は拡張する可能性がないですもんね。 拡張することを念頭に入れるならforで書いた方がいいかもしれません ただ10までなら問題なし!
さくたん@エクセルVBA @sakutan2020
@penguincomcom @KotorinChunChun 拡張は考えないで、1~10程度ならむしろ一般化しない方がよかろう、と解釈しました。まあ広めたかった、というのもありますw
さくたん@エクセルVBA @sakutan2020
@penguincomcom @teori_kimono コンセプト ①10通り書き並べる。 ②コード中に素数でない事をかけ算で明示しつつ、計算結果を表示させる。 pic.twitter.com/HsDrKBMz6y
拡大
残りを読む(10)

コメント

hayahon @hayahon1 2020年2月16日
ナベアツがアホになるのは3の倍数か3が入った数字では?
海◆eoxyl9RE @umi_eoxyl9RE 2020年2月16日
3の時だけアホになる脆弱性
ペンギン屋@ゆるく運営中 @penguincomcom 2020年2月16日
hayahon @hayahon1さん たしかに! あまり深く考えてないのでゆるしてください。
ペンギン屋@ゆるく運営中 @penguincomcom 2020年2月16日
海◆eoxyl9RE @umi_eoxyl9REさん 脆弱性ww かなり困る脆弱性ですww
ペンギン屋@ゆるく運営中 @penguincomcom 2020年2月16日
♬陽子(ようこ)♬@別の病で闘病開始 @youchan_0124さん  なんかごめんww次回はメッセージ送りますね!!
♬陽子(ようこ)♬@GWまでに東京落ち着いて欲しい @youchan_0124 2020年2月16日
penguincomcom いえいえいいんです…… 乗り遅れた私がマヌケなだけですので……orz 次こそは参加します!
ペンギン屋@ゆるく運営中 @penguincomcom 2020年2月16日
♬陽子(ようこ)♬@別の病で闘病開始 @youchan_0124さん 次のお題をアップしました!! ・・・お題:この猫なに猫?? ネコの模様から判別せよ!!・・・   ですよかったら遊んでください!
ログインして広告を非表示にする
ログインして広告を非表示にする