約 2,235,764 件
https://w.atwiki.jp/wiki9_mh2/pages/38.html
第六章 氷解 パオラ草原・北 パオラ草原・北西 パオラ草原・西 パオラ草原・西・地下水道 パオラブール洞穴 漆黒の祭壇 パオラブール山道 ランブール古墳 ランブール古墳・地下道 ランブール古墳・遺跡地下 ランブール古墳・遺跡頂上
https://w.atwiki.jp/skypewiki/pages/81.html
COLORS
https://w.atwiki.jp/touhoukashi/pages/4937.html
【登録タグ Cryu EastNewSound Sacred Factor Y 上海紅茶館 ~ Chinese Tea 曲】 【注意】 現在、このページはJavaScriptの利用が一時制限されています。この表示状態ではトラック情報が正しく表示されません。 この問題は、以下のいずれかが原因となっています。 ページがAMP表示となっている ウィキ内検索からページを表示している これを解決するには、こちらをクリックし、ページを通常表示にしてください。 /** General styling **/ @font-face { font-family Noto Sans JP ; font-display swap; font-style normal; font-weight 350; src url(https //img.atwikiimg.com/www31.atwiki.jp/touhoukashi/attach/2972/10/NotoSansCJKjp-DemiLight.woff2) format( woff2 ), url(https //img.atwikiimg.com/www31.atwiki.jp/touhoukashi/attach/2972/9/NotoSansCJKjp-DemiLight.woff) format( woff ), url(https //img.atwikiimg.com/www31.atwiki.jp/touhoukashi/attach/2972/8/NotoSansCJKjp-DemiLight.ttf) format( truetype ); } @font-face { font-family Noto Sans JP ; font-display swap; font-style normal; font-weight bold; src url(https //img.atwikiimg.com/www31.atwiki.jp/touhoukashi/attach/2972/13/NotoSansCJKjp-Medium.woff2) format( woff2 ), url(https //img.atwikiimg.com/www31.atwiki.jp/touhoukashi/attach/2972/12/NotoSansCJKjp-Medium.woff) format( woff ), url(https //img.atwikiimg.com/www31.atwiki.jp/touhoukashi/attach/2972/11/NotoSansCJKjp-Medium.ttf) format( truetype ); } rt { font-family Arial, Verdana, Helvetica, sans-serif; } /** Main table styling **/ #trackinfo, #lyrics { font-family Noto Sans JP , sans-serif; font-weight 350; } .track_number { font-family Rockwell; font-weight bold; } .track_number after { content . ; } #track_args, .amp_text { display none; } #trackinfo { position relative; float right; margin 0 0 1em 1em; padding 0.3em; width 320px; border-collapse separate; border-radius 5px; border-spacing 0; background-color #F9F9F9; font-size 90%; line-height 1.4em; } #trackinfo th { white-space nowrap; } #trackinfo th, #trackinfo td { border none !important; } #trackinfo thead th { background-color #D8D8D8; box-shadow 0 -3px #F9F9F9 inset; padding 4px 2.5em 7px; white-space normal; font-size 120%; text-align center; } .trackrow { background-color #F0F0F0; box-shadow 0 2px #F9F9F9 inset, 0 -2px #F9F9F9 inset; } #trackinfo td ul { margin 0; padding 0; list-style none; } #trackinfo li { line-height 16px; } #trackinfo li nth-of-type(n+2) { margin-top 6px; } #trackinfo dl { margin 0; } #trackinfo dt { font-size small; font-weight bold; } #trackinfo dd { margin-left 1.2em; } #trackinfo dd + dt { margin-top .5em; } #trackinfo_help { position absolute; top 3px; right 8px; font-size 80%; } /** Media styling **/ #trackinfo .media th { background-color #D8D8D8; padding 4px 0; font-size 95%; text-align center; } .media td { padding 0 2px; } .media iframe nth-of-type(n+2) { margin-top 0.3em; } .youtube + .nicovideo, .youtube + .soundcloud, .nicovideo + .soundcloud { margin-top 0.75em; } .media_section { display flex; align-items center; text-align center; } .media_section before, .media_section after { display block; flex-grow 1; content ; height 1px; } .media_section before { margin-right 0.5em; background linear-gradient(-90deg, #888, transparent); } .media_section after { margin-left 0.5em; background linear-gradient(90deg, #888, transparent); } .media_notice { color firebrick; font-size 77.5%; } /** Around track styling **/ .next-track { float right; } /** Infomation styling **/ #trackinfo .info_header th { padding .3em .5em; background-color #D8D8D8; font-size 95%; } #trackinfo .infomation_show_btn_wrapper { float right; font-size 12px; user-select none; } #trackinfo .infomation_show_btn { cursor pointer; } #trackinfo .info_content td { padding 0 0 0 5px; height 0; transition .3s; } #trackinfo .info_content ul { padding 0; margin 0; max-height 0; list-style initial; transition .3s; } #trackinfo .info_content li { opacity 0; visibility hidden; margin 0 0 0 1.5em; transition .3s, opacity .2s; } #trackinfo .info_content.infomation_show td { padding 5px; height 100%; } #trackinfo .info_content.infomation_show ul { padding 5px 0; max-height 50em; } #trackinfo .info_content.infomation_show li { opacity 1; visibility visible; } #trackinfo .info_content.infomation_show li nth-of-type(n+2) { margin-top 10px; } /** Lyrics styling **/ #lyrics { font-size 1.06em; line-height 1.6em; } .not_in_card, .inaudible { display inline; position relative; } .not_in_card { border-bottom dashed 1px #D0D0D0; } .tooltip { display flex; visibility hidden; position absolute; top -42.5px; left 0; width 275px; min-height 20px; max-height 100px; padding 10px; border-radius 5px; background-color #555; align-items center; color #FFF; font-size 85%; line-height 20px; text-align center; white-space nowrap; opacity 0; transition 0.7s; -webkit-user-select none; -moz-user-select none; -ms-user-select none; user-select none; } .inaudible .tooltip { top -68.5px; } span hover + .tooltip { visibility visible; top -47.5px; opacity 0.8; transition 0.3s; } .inaudible span hover + .tooltip { top -73.5px; } .not_in_card span.hide { top -42.5px; opacity 0; transition 0.7s; } .inaudible .img { display inline-block; width 3.45em; height 1.25em; margin-right 4px; margin-bottom -3.5px; margin-left 4px; background-image url(https //img.atwikiimg.com/www31.atwiki.jp/touhoukashi/attach/2971/7/Inaudible.png); background-size contain; background-repeat no-repeat; } .not_in_card after, .inaudible .img after { content ; visibility hidden; position absolute; top -8.5px; left 42.5%; border-width 5px; border-style solid; border-color #555 transparent transparent transparent; opacity 0; transition 0.7s; } .not_in_card hover after, .inaudible .img hover after { content ; visibility visible; top -13.5px; left 42.5%; opacity 0.8; transition 0.3s; } .not_in_card after { top -2.5px; left 50%; } .not_in_card hover after { top -7.5px; left 50%; } .not_in_card.hide after { visibility hidden; top -2.5px; opacity 0; transition 0.7s; } /** For mobile device styling **/ .uk-overflow-container { display inline; } #trackinfo.mobile { display table; float none; width 100%; margin auto; margin-bottom 1em; } #trackinfo.mobile th { text-transform none; } #trackinfo.mobile tbody tr not(.media) th { text-align left; background-color unset; } #trackinfo.mobile td { white-space normal; } document.addEventListener( DOMContentLoaded , function() { use strict ; const headers = { title アルバム別曲名 , album アルバム , circle サークル , vocal Vocal , lyric Lyric , chorus Chorus , narrator Narration , rap Rap , voice Voice , whistle Whistle (口笛) , translate Translation (翻訳) , arrange Arrange , artist Artist , bass Bass , cajon Cajon (カホン) , drum Drum , guitar Guitar , keyboard Keyboard , mc MC , mix Mix , piano Piano , sax Sax , strings Strings , synthesizer Synthesizer , trumpet Trumpet , violin Violin , original 原曲 , image_song イメージ曲 }; const rPagename = /(?=^|.*
https://w.atwiki.jp/csjake/pages/173.html
Atolon スクリーンショット 内容 シンプルな小島マップで敵はおらず目標もない。沖の船の上にVTOLがある、以上。 評価 ボリューム ★☆☆☆☆ デザイン ★★☆☆☆ 面白さ ★☆☆☆☆ 難易度 ☆☆☆☆☆ ダウンロード(1.4MB) Crymod
https://w.atwiki.jp/nicoratch/pages/847.html
概要 DJコントローラー。 4 channel sound card搭載。Virtual DJ LE同梱。 スペック表 Product features Weight (incl. packaging)2.2 kg Dimensions (incl. packaging)42.0 x 25.2 x 7.5 cm Product specifications two-deck DJ MIDI controller power supply via USB or adapter (see tips) built-in low latency 4-channel 24-bit 96kHz audio interface no fewer than 82 controls smart loops, hot cues and needle drop function touch-sensitive jog wheels with red LED ring for positioning extensive loop function tilted section with effect filters and needle drop search pitch function with large fader, range and pitch bend 3 adjustable hot cues sync button per deck cue, set cue and play button track select browse button with load button per deck 3-band EQ per channel gain per channel CUE button per channel supple faders, supple crossover crossfader curve adjustable cue mix for the headphones master volume adjustable via rotary knob including Virtual DJ LE software microphone input 1/4-inch (6.35mm) jack with volume controls headphone input 1/4-inch (6.35mm) jack with volume controls outputs master out via XLR (balanced) and stereo RCA (unbalanced) power supply via USB or optional 5V adapter (see tips!) power consumption 5V DC, 1,000 mA dimensions 420 x 252 x 75 mm weight 2.2 kg included Virtual DJ LE software 価格 € 225前後(新品) Core Kontrol D2 http //www.highlite.nl/Shop/Products/Audio/Audio-Players/Midi-Controllers/CORE-Kontrol-D2
https://w.atwiki.jp/ameba_pigg/pages/1476.html
aq aqua azk bg bk bl black blue br brown ch copper darkyellow dazk dbl dbr dgn dol dorchd dpr dtg dtq fj gd gl glrd gm gn gold gr gray green gy hndw id ird ivygreen kh khaki lbl lbr lcy lgr lightpink lpk lpr slv lstbl lv mnbl navy nv ol or orange pink pk pkw pl pr purple rbl rd rdpr red sb sbw sdbr shpk silver sk slbl stbl sv sy tb tg th tl tm tq wh white wrd wt yellow yg yl yw ywgn ygn
https://w.atwiki.jp/c21coterie/pages/715.html
プロジェクトオイラーの問題を堀江伸一さんがPrologで解くページ Problem 61 「巡回図形数」 † http //odz.sakura.ne.jp/projecteuler/index.php?cmd=read page=Problem%2061 三角数, 四角数, 五角数, 六角数, 七角数, 八角数は多角数であり, それぞれ以下の式で生成される. 三角数P3,n=n(n+1)/2 1, 3, 6, 10, 15, ... 四角数P4,n=n^2 1, 4, 9, 16, 25, ... 五角数P5,n=n(3n-1)/2 1, 5, 12, 22, 35, ... 六角数P6,n=n(2n-1) 1, 6, 15, 28, 45, ... 七角数P7,n=n(5n-3)/2 1, 7, 18, 34, 55, ... 八角数P8,n=n(3n-2) 1, 8, 21, 40, 65, ... 3つの4桁の数の順番付きの集合 (8128, 2882, 8281) は以下の面白い性質を持つ. この集合は巡回的である. 最後の数も含めて, 各数の後半2桁は次の数の前半2桁と一致する それぞれ多角数である 三角数 (P3,127=8128), 四角数 (P4,91=8281), 五角数 (P5,44=2882) がそれぞれ別の数字で集合に含まれている 4桁の数の組で上の2つの性質をもつはこの組だけである. 三角数, 四角数, 五角数, 六角数, 七角数, 八角数が全て表れる6つの巡回する4桁の数からなる唯一の順序集合の和を求めよ. この問題は探索でといても十分間に合いますが。 スタック操作だけで動的計画法で解くというチャレンジをしてみました。 どの部分の処理も線形時間か n log(n)で終わるようになっています。 appendを使ってるところだけが効率が悪いくらいです。 calcP3(N1) -between(1,200,N),N1 is (N*(N+1))//2,999 N1,N1 10000. calcP4(N1) -between(1,100,N),N1 is N*N,999 N1,N1 10000. calcP5(N1) -between(1,100,N),N1 is (N*(3*N-1))//2,999 N1,N1 10000. calcP6(N1) -between(1,100,N),N1 is (N*(2*N-1)),999 N1,N1 10000. calcP7(N1) -between(1,100,N),N1 is (N*(5*N-3))//2,999 N1,N1 10000. calcP8(N1) -between(1,100,N),N1 is (N*(3*N-2)),999 N1,N1 10000. mysweep([],[]) -!. mysweep([[NNum,FNum,Sum]],[]) -integer(NNum),integer(FNum),integer(Sum),!. mysweep([[NNum,FNum,_],[NNum,FNum,Sum]|Rest],Result) -!, mysweep([[NNum,FNum,Sum]|Rest],Result). mysweep([_,Set|Rest],[Set|Result]) - !, mysweep([Set|Rest],Result). calc2([NN,FN,Sum],[[NN,NB]|_],[NB,FN,Sum1]) - Sum1 is Sum+NN*100+NB. calc2(Set,[_|Rest],Result) - calc2(Set,Rest,Result). calc([],_,Ans,Perm) -!,search(Ans,Perm). calc(_,[],Ans,Perm) -!,search(Ans,Perm). calc([[NN,FN,Sum]|Rest],[[NN,NB]|Rest1],Ans,Perm) - !, findall(Re1,calc2([NN,FN,Sum],[[NN,NB]|Rest1],Re1),List), append(Ans,List,Ans1), calc(Rest,[[NN,NB]|Rest1],Ans1,Perm). calc([[NN,_,_]|Rest],[[NF,NB]|Rest1],Ans,Perm) - NN NF,!, calc(Rest,[[NF,NB]|Rest1],Ans,Perm). calc(List,[_|Rest],Ans,Perm) - !, calc(List,Rest,Ans,Perm). check([[A,A,Ans]|_],Ans) -!. check([_|Rest],Ans) - check(Rest,Ans). search([],[]) -!,fail. search(Ans,[]) -check(Ans,Ans1),write([ansis,Ans1]). search(Ans,Perm) - sort(Ans,Ans1), [Top|_]=Ans1, mysweep(Ans1,Re1), Ans2=[Top|Re1], select(L,Perm,Rest1), calc(Ans2,L,[],Rest1). to_date3([],[]) -!. to_date3([Y|Rest],[[N2,N1,Y]|Result]) - N1 is Y // 100, N2 is Y mod 100, to_date3(Rest,Result). to_date2([],[]) -!. to_date2([Y|Rest],[[N2,N1]|Result]) - N2 is Y // 100, N1 is Y mod 100, to_date2(Rest,Result). to_date([],[]) -!. to_date(List,Re2) - member(L,List), to_date2(L,Re1), sort(Re1,Re2). main61 - findall(Y,calcP3(Y),L3), findall(Y,calcP4(Y),L4), findall(Y,calcP5(Y),L5), findall(Y,calcP6(Y),L6), findall(Y,calcP7(Y),L7), findall(Y,calcP8(Y),L8), findall(Re,to_date([L3,L4,L5,L6,L7],Re),Perm), to_date3(L8,L88), search(L88,Perm). Problem 62 「立方数置換」 † http //odz.sakura.ne.jp/projecteuler/index.php?cmd=read page=Problem%2062 立方数 41063625 (345^3) は, 桁の順番を入れ替えると2つの立方数になる 56623104 (384^3) と 66430125 (405^3) である. 41063625は, 立方数になるような桁の置換をちょうど3つもつ最小の立方数である. 立方数になるような桁の置換をちょうど5つもつ最小の立方数を求めよ. 解法 Nを小さい数字から始めN^3の各桁の数字の出現数でカウントしていき大きな数字へ続けます。 条件を満たせばそれを暫定解として探索していき暫定解*10<N^3となればそれより小さい答えはありません。 c++のstd mapにあたる機能がピュアPrologにはないので線形探索をしておりコード実行速度は遅いです。 std mapに当たる機能があったら非常に高速に解ける問題です。 mycount(0,Temp,Result) -sort(Temp,Result),!. mycount(N,Temp,Result) - N1 is N//10, M is N mod 10, (select([M,C],Temp,Rest) - C1 is C+1, mycount(N1,[[M,C1]|Rest],Result); mycount(N1,[[M,1]|Temp],Result)). search(N,Ans,_) - 0 Ans, T is Ans*10, N3 is N*N*N, T N3, !, write(Ans). search(N,Ans,Counts) - N3 is N*N*N, N1 is N+1, mycount(N3,[],Re1), select([Re1,C,Min],Counts,Rest),!, (4 = C - ((Ans Min;Ans= =0) - search(N1,Min,Counts); search(N1,Ans,Counts)); C1 is C+1, search(N1,Ans,[[Re1,C1,Min]|Rest]) ). search(N,Ans,Counts) - N3 is N*N*N, N1 is N+1, mycount(N3,[],Re1), search(N1,Ans,[[Re1,1,N3]|Counts]). Problem 63 「べき乗の桁の個数」 † http //odz.sakura.ne.jp/projecteuler/index.php?cmd=read page=Problem%2063 5桁の数 16807 = 7^5は自然数を5乗した数である. 同様に9桁の数 134217728 = 8^9も自然数を9乗した数である. 自然数を n 乗して得られる n 桁の正整数は何個あるか? 解法 この問題は10より大きな数を考えると10^2>2桁なのでそれより大きな数の乗数は考慮する必要はありません。 1~9まで検証すれば十分です。 Logを使った方がすっきりしますが桁数を簡単に数えてときました。 keta_size(0,0) -!. keta_size(N,Result) - N1 is N//10, keta_size(N1,Re), Result is Re+1. search2(A,B,N) -N is A^B,keta_size(N,L),B L,!,fail. search2(A,B,N) -N is A^B,keta_size(N,L),B= =L. search2(A,B,N) -B1 is B+1,search2(A,B1,N). search(N) - between(1,9,A), search2(A,1,N). main63 -findall(N,search(N),List),sort(List,List1),length(List1,Len),write(Len). 問い64 http //odz.sakura.ne.jp/projecteuler/index.php?cmd=read page=Problem%2064 10000以下の平方数でない数を平方根を連分数展開で計算する。 これを連分数展開した時、連分数展開が奇数周期になる物の個数を答えよ。 gcd(0, B, B) -!. gcd(A, B, G) - A \== 0, R is B mod A, gcd(R, A, G). calc(N,NSqrt,U,DR,Deep,List,Result) - D is N-DR*DR, gcd(D,U,G), D1 is D//G, U1 is U//G, L1 is floor((NSqrt+DR)*U1/D1), L2 is L1*D1, UR2 is L2-DR, Deep1 is Deep+1, (member([L1,UR2,Deep2,D1],List) - !,Result is (Deep1-Deep2) mod 2 ;calc(N,NSqrt,D1,UR2,Deep1,[[L1,UR2,Deep1,D1]|List],Result)). search(10001,Ans) -!,write(Ans). search(N,Ans) - sqrt(N,N1), N= = floor(N1)*floor(N1), !, N2 is N+1, search(N2,Ans). search(N,Ans) - sqrt(N,NSqrt), FloorSQ is floor(NSqrt), calc(N,NSqrt,1,FloorSQ,0,[],Result), Ans1 is Ans+Result, N1 is N+1, search(N1,Ans1). Problem 65 「e の近似分数」 † e についての連分数である近似分数の100項目の分子の桁の合計を求めよ. http //odz.sakura.ne.jp/projecteuler/index.php?cmd=read page=Problem%2065 詳細はリンク先を参照のこと。 解法 問題の指定通り求めてみました。 gcd(0, B, B) -!. gcd(A, B, G) - A \== 0, R is B mod A, gcd(R, A, G). add(U,D,U1,D1,ReU,ReD) - U2 is U*D1+U1*D, D2 is D*D1, gcd(U2,D2,G), ReU is U2//G, ReD is D2//G. calc([X],U,D) - integer(X), U is 1, D is X. calc([X|Rest],U1,D1) - calc(Rest,U,D), add(U,D,X,1,D1,U1). calc_list(M) - between(0,98,N), (1= =N mod 3- M is N //3*2+2; M is 1). keta_sum(0,0) -!. keta_sum(N,Result) - N1 is N//10, keta_sum(N1,Re), Result is Re+N mod 10. main65 - findall(M,calc_list(M),List),calc(List,U,D),add(U,D,2,1,U1,_), keta_sum(U1,Ans),write(Ans). Problem 66 「ディオファントス方程式」 † http //projecteuler.net/problem=66 2次のディオファントス方程式に関する問題 詳細はリンク先を参照のこと。 解法 この問題は色々式変形したり漸化式が立たないか考えたけど自力では解けなかった問題。 ネットに転がっていたjavascriptコードをPrologコードに翻訳して100%カンニングして解いた。 驚くほど高速に答えが出てすこし驚いた。 この手法は連分数展開というものらしい。 大雑把な考え方までは理解したけれど、細かい計算は理解してない状態。 D=(x^2-1)/y^2はyが大きくなると x^2/y^2と見分けがつかなくなってくる。 √D=x/yを満たす分数を求める問題で近似するという発想らしい。 聞けばなるほどの着想だが厳密解といいう考え方にこだわってると中々出てこない発想だな。 一つ勉強になった。 calc(_,_,_,_,E,F,K,N,_,P2,_,_,X,Result) - B1 is (X-E*E)/F, C1 is floor((K+E)/B1), A1 is C1, A1= =2*K,0= =N mod 2,!,Result is P2. calc(_,_,_,_,E,F,K,N,P1,P2,Q1,Q2,X,Result) - B1 is (X-E*E)/F, C1 is floor((K+E)/B1), D1 is C1*B1-E, A1 is C1, E1 is D1, F1 is B1, P3 is A1*P2+P1, Q3 is A1*Q2+Q1, N1 is N+1, calc(A1,B1,C1,D1,E1,F1,K,N1,P2,P3,Q2,Q3,X,Result). calc_first([Result,D]) - between(2,1000,D), sqrt(D,T), K is floor(T), K2 is K*K, D\==K2, A is K, E is K, F is 1, N is 1, P1 is 1, P2 is K, Q1 is 0, Q2 is 1, calc(A,_,_,_,E,F,K,N,P1,P2,Q1,Q2,D,Result). main66_2 - findall([D,X],calc_first([D,X]),List), sort(List,List1),write(List1). Problem 67 「最大経路の和 その2」 † http //odz.sakura.ne.jp/projecteuler/index.php?cmd=read page=Problem%2067 パスカルの三角形風味に数字が並んでいるので上から下までの経路の数字の和が最大になる経路の合計値をこたえよという問題。 問題自体は簡単。 ただPrologには破壊的代入がないせいで少しめんどくさいので只今効率的なコードとは何か熟慮中。 とりあえずProlog風味なファイル読み込みとは何かと考えてコーディングをしてみました。 データにゴミや入力ミスが入ってないから練習問題って楽でいいですね。 次の行の計算が少し混乱してるがまあ正しい答えが出てるからいいかな? one_read(Result,State) -get0(C),((C = = -1 ; C= =10;C= =32)- Result=[],State is C; one_read(Re,State),Result=[C|Re]). row_read([Re1|Result],ReState) - one_read(Re,State),(Re==[]- Re1=[];to_num(Re,0,Re1)),((State= = -1;State= =10)- ReState is State,Result=[]; row_read(Result,ReState)). all_read([Result|Re]) -row_read(Result,State),(State= = -1 - Re=[]; all_read(Re)). to_num([],Sum,Sum) -!. to_num([X|Rest],Sum,Result) - Sum1 is Sum*10+(X-48),to_num(Rest,Sum1,Result). calc_row(_,[],Re,Result) -!,reverse(Re,Result). calc_row([L,R|Rest],[Z|Sums],[RS|Rest1],Result) - !, L1 is L+Z, R1 is R+Z, (L1 RS - R2 is RS;R2 is L1), calc_row([R|Rest],Sums,[R1,R2|Rest1],Result). calc_row_first([L,R|Rest],[Z|Sums],Result) - L1 is L+Z, R1 is R+Z, calc_row([R|Rest],Sums,[R1,L1],Result). calc([[[]]],Sums) -!,write(a),sort(Sums,Sums1),write(Sums1). calc([Row|Rest],Sums) - calc_row_first(Row,Sums,Sums1), calc(Rest,Sums1). main67 -seen,see('e67.txt'),all_read(Re), [Sums|Rest]=Re, calc(Rest,Sums). Problem 68 「Magic 5-gon ring」 † 5角形の特殊な魔法陣を解く問題。 http //odz.sakura.ne.jp/projecteuler/index.php?cmd=read page=Problem%2068 解法 こういう探索系の問題はPrologは強いですね。 いかにもPrologらしいという感じで処理をかけた気がします。 search([],[],[],Sum,Sum,Ans) -!,write(Ans). search([],[L|Perm],Nums,Sum,Sum,Ans) -!, [Xi|L1]=L, [X1|_]=Ans, select(Xi,Nums,NumsRest), (X1= =10;X1 Xi), search(L1,Perm,NumsRest,Xi,Sum,Ans). search([Xi|Rest],Perm,Nums,NowSum,Sum,Ans) - integer(Xi), !, Xi 10, NowSum1 is NowSum+Xi, search(Rest,Perm,Nums,NowSum1,Sum,Ans). search([Xi|Rest],Perm,Nums,NowSum,Sum,Ans) - select(Xi,Nums,RestNum), NowSum1 is NowSum+Xi, search(Rest,Perm,RestNum,NowSum1,Sum,Ans). main68 - Ans=[X1,X2,X3, X4,X3,X5, X6,X5,X7, X8,X7,X9, X10,X9,X2], Perm=[[X4,X3,X5],[X6,X5,X7],[X8,X7,X9],[X10,X9,X2]], select(X1,[9,8,7,6,5,4,3,2,1,10],Rest), select(X2,Rest,Rest1), select(X3,Rest1,Rest2), X2 10, X3 10, Sum is X1+X2+X3, search([],Perm,Rest2,Sum,Sum,Ans). problem 69 「トーティエント関数の最大値」 † http //odz.sakura.ne.jp/projecteuler/index.php?cmd=read page=Problem%2069 この問題はわざわざプログラムを書くまでもありません。 φ(n)=n*(1-1/p1)*(1-1/p2),,,*(1-1/pn)なのですから A=n/φ(n)=1/(1-1/p1)*(1-1/p2),,,*(1-1/pn)です。 Aが最大化されるのは右辺の分母が最小になるとき。 素数を小さい方からかけていき、2,3,5,7,11,13、、、とかけていき100万を超える手前が答えとなります。 Problem 70 「トーティエント関数の置換」 † http //odz.sakura.ne.jp/projecteuler/index.php?cmd=read page=Problem%2070 オイラーのトーティエント関数 φ(n) (ファイ関数とも呼ばれる) とは, n 未満の正の整数で n と互いに素なものの個数を表す. 例えば, 1, 2, 4, 5, 7, 8 は9未満で9と互いに素であるので, φ(9) = 6 となる. 1 は全ての正の整数と互いに素であるとみなされる. よって φ(1) = 1 である. 面白いことに, φ(87109)=79180 であり, 87109は79180を置換したものとなっている. 1 n 10^7 で φ(n) が n を置換したものになっているもののうち, n/φ(n) が最小となる n を求めよ. 解法 1素因数は一ケタ目が必ず違うのであり得ない。 3素因数のこれ以上下は絶対ないと言える最小値は1.014 試しに10万までの答えを探ると 75841で1.0087、、、という答えが出てくる。 4素因数以上は3より大きくなることは確実。 よって2素因数だけを調べればよい。 とりあえず試しに計算したらこうなっただけで何で2素因数だけを調べればよいのかさっぱり理屈がわからない。 直感的には√1000万に近い値同士の掛け算のあたりに答えがあるのでそのあたりだけを調べればよいとわかるのですが。 厳密に説明しろと言われたら困る状態です。 is_prime(N) - between(1,N,N1), N2 is 2*N1+1, N3 is N2*N2, (N N3- !,true; 0= =N mod N2,!,fail). prime_list(N1) -between(5,4999,N),N1 is N*2+1,is_prime(N1). countN(0,Result,Result) -!. countN(N,Counts,Result) - M is N mod 10, N1 is N//10, Counts1 is Counts+8^M, countN(N1,Counts1,Result). check(N,M) - countN(N,0,Re1), countN(M,0,Re2), Re1= =Re2. calc2(_,[],Ps,Ans,AnsN) - !, calc1(Ps,Ans,AnsN). calc2(P,[P1|_],Ps,Ans,AnsN) - T is P*P1, 10000000= T, !, calc1(Ps,Ans,AnsN). calc2(P,[P1|Rest],Ps,Ans,AnsN) - T is (P*P1)/((P-1)*(P1-1)), Ans= T, !, calc2(P,Rest,Ps,Ans,AnsN). calc2(P,[P1|Rest],Ps,_,_) - N is P*P1, M is (P-1)*(P1-1), check(N,M), !, Ans is (P*P1)/((P-1)*(P1-1)), AnsN is P*P1, calc2(P,Rest,Ps,Ans,AnsN). calc2(P,[_|Rest],Ps,Ans,AnsN) - calc2(P,Rest,Ps,Ans,AnsN). calc1([],Ans,AnsN) -!,write([Ans,AnsN]). calc1(Ps,Ans,AnsN) - [P|Ps1]=Ps, T is (P+1)/P, Ans T, !, calc2(P,Ps,Ps1,Ans,AnsN). calc1([_|Ps],Ans,AnsN) - calc1(Ps,Ans,AnsN). main70 -findall(N,prime_list(N),Ps),calc1(Ps,2,2).
https://w.atwiki.jp/c21coterie/pages/763.html
プロジェクトオイラーという数学問題の掲載されたサイトの問題を堀江伸一さんがPrologで解くページ。 Prolog言語の特徴。 配列はない、stdコンテナにあたるものはもちろんない。 何があるかっていうとリストしかない。 凄く不便。 しかも破壊的代入がない、そのため動的計画法と物凄く相性が悪い、破壊的代入を前提としたデータ構造とも相性が悪いというか現実的な計算量で実装できない物が多数。 基本ローカル変数しかないから変数が増える問題では関数(Prologでは厳密に述語といい関数とわけて考える)の引数が凄いことになる。 引数を減らすと、解集合を巨大なリストで得てそこから一番いい解を探すような富豪プログラムになる。 利点はバックトラックがあるくらい、このバックトラックという機能は論理的処理には向いており、このためマサチューセッツ工科大学でも論理枠でPrologの講義が一応行われている。 Prologは論理的処理は得意だが、計算処理は苦手、よってプロジェクトオイラーのサイトの問題を解くには向いてない。 Prologという不便な言語でプロジェクトオイラーに挑戦してるのは多分私くらい。 何故Prologでやるかっていうかとこの言語、記述してると妙に楽しいから、それだけ、プロジェクトオイラーは趣味のサイトだからそれでもいいとおもってる。 C++が一番好きだけど書いてて楽しいのはProlog。 Javaは言語使用がヘビーで中々勉強する気にならない。 ちなみに私は整数論の教育を受けたことがないので整数論を中心としたプロジェクトオイラーのサイトでは平凡なコードです。 多様な問題がある会津大学オンラインジャッジ(AOJ)という競技プログラムの過去問を扱ったサイトでは私。 たまにですがコード実行速度1位を取ったり取った後で一月後位に1位を抜かれたりしています。 Problem 111 「重複桁を持つ素数」 † http //odz.sakura.ne.jp/projecteuler/index.php?cmd=read page=Problem%20111 この問題例えばMの値が正しいかは置いといて M(n,1)=2,M(n,2)=5でXは1を2個、2を5個持ち他に何個かの桁がそれ以外の数字で構成された素数があったとして、これが素数なら 1と2両方で足すのかという疑問があったが、計算してみると M(10,d)はdが6以下になることがないみたいなのでこの疑問は解消されないままアセプト。 解けたものの分かりにくい問題だ。 test述語で駆動。 出てきた答えをExcelで集計してアセプト。 not_prime(N) - S is floor(sqrt(N)), between(2,S,M), 0= =N mod M, !, true. is_prime(N) -not(not_prime(N)). create_perm(-1,_,_,_,_,_) -!,fail. create_perm(0,_,_,_,Num,Num) - is_prime(Num),!. create_perm(Rest,Nums,D,Rest,Num,Result) - !, Num1 is Num*10+D, Num1 0, Rest1 is Rest-1, create_perm(Rest1,Nums,D,Rest1,Num1,Result). create_perm(Rest,Nums,D,M,Num,Result) - member(N,Nums), (N= =D- M1 is M-1 ; M1 is M), M1 -1, Num1 is Num*10+N, Num1 0, Rest1 is Rest-1, create_perm(Rest1,Nums,D,M1,Num1,Result). search_m(Nums,D,Ans) - Keta is 10, between(1,9,T), M is Keta-T, findall(Num,create_perm(Keta,Nums,D,M,0,Num),Ans), length(Ans,Len), Len 0, %write([len,M]), !. sum([],0) -!. sum([X|Xs],Result) -sum(Xs,Re),Result is Re+X. test -Nums=[9,8,7,6,5,4,3,2,1,0], between(0,9,D), search_m(Nums,D,Ans), sum(Ans,Ans1), write(Ans1),nl,fail. %write(Ans),nl. Problem 112 「はずみ数」 † http //odz.sakura.ne.jp/projecteuler/index.php?cmd=read page=Problem%20112 とりあえず小さい方から全検証してみた。 割り算は遅いという太古の神話を思い出し、割り算を減らすために 数字を最初からリストにしたら少し早くなるかなと思って計算してみたけれど思ったより早くならなかった。 うーん逆に遅くなった? add([],0,[]) -!. add([],1,[1]) -!. add(Xs,0,Xs) -!. add([X|Xs],1,[X1|Result]) - Xt is (X+1), (Xt= =10- add(Xs,1,Result),X1=0;add(Xs,0,Result),X1 is Xt). check_up([X,X1]) -X1= X,!. check_up([X,X1|Xs]) -X1= X,check_up([X1|Xs]). check_down([X,X1]) -X= X1,!. check_down([X,X1|Xs]) -X= X1,check_down([X1|Xs]). check(Xs) -check_up(Xs),!. check(Xs) -check_down(Xs),!. calc(N,Ca,Cb,_) -Ca*99= =Cb,N1 is N-1,write([N1,Ca,Cb]),!. calc(N,Ca,Cb,Xs) - check(Xs), !, N1 is N+1, add(Xs,1,Xs1), !, Ca1 is Ca+1, calc(N1,Ca1,Cb,Xs1). calc(N,Ca,Cb,Xs) - N1 is N+1, add(Xs,1,Xs1), Cb1 is Cb+1, !, calc(N1,Ca,Cb1,Xs1). main -calc(100,99,0,[0,0,1]). Problem 113 「非はずみ数」 † http //odz.sakura.ne.jp/projecteuler/index.php?cmd=read page=Problem%20113 10^100以下のはずみ数出ない数の割合を求める問題。 答えは14桁。 sum([],0) -!. sum([X|Xs],Sum1) -sum(Xs,Sum),Sum1 is Sum+X. next_calc([],0,[]). next_calc([Count|Counts],Sum1,[Sum1|Result]) - next_calc(Counts,Sum,Result), Sum1 is Sum+Count. calc_up(100,_,Sum,Sum) -!. calc_up(N,Counts,Sum,Result) - next_calc(Counts,_,Counts1), sum(Counts1,Add), Sum1 is Sum+Add-1, N1 is N+1, !, calc_up(N1,Counts1,Sum1,Result). calc_down(100,_,Sum,Sum) -!. calc_down(N,Counts,Sum,Result) - next_calc(Counts,_,Counts1), [_|Counts2]=Counts1, sum(Counts2,Add), Sum1 is Sum+Add-1, N1 is N+1, !, calc_down(N1,Counts1,Sum1,Result). main113 -Counts=[10,9,8,7,6,5,4,3,2,1], calc_up(2,Counts,0,AnsUp), calc_down(2,Counts,0,AnsDown), Ans is AnsUp+AnsDown+99-8*98, write([AnsUp,AnsDown,Ans]). Problem 114 「ブロックの組み合わせ方の数え上げ その1」 † http //odz.sakura.ne.jp/projecteuler/index.php?cmd=read page=Problem%20114 長さ 7 ユニットからなる 1 列上に, 最低 3 ユニットの長さを持つ赤ブロックが置かれている. ただしどの赤ブロック同士も, 少なくとも 1 ユニットの黒い正方形が間にある(赤ブロックは長さが異なってもよい). これを敷き詰める方法は, ちょうど 17 通りある. 長さ50では何通りの敷き詰め方があるか? seed(1) - between(1,52,_). next_calc(_,_,[],[]) -!. next_calc(N,Count,[C1|Counts],[C1|Result]) - N 4, !, N1 is N+1, next_calc(N1,Count,Counts,Result). next_calc(N,Count,[C1|Counts],[C2|Result]) - C2 is C1+(N-3)*Count, N1 is N+1, next_calc(N1,Count,Counts,Result). calc([_,_,_,Ans]) -!,write(Ans). calc([Count|Counts]) - next_calc(1,Count,Counts,Counts1), calc(Counts1). main114 - findall(N,seed(N),Count), calc(Count). Problem 115 「ブロックの組み合わせ方の数え上げ その2」 † http //odz.sakura.ne.jp/projecteuler/index.php?cmd=read page=Problem%20115 リスト操作しかないのが逆転の発想を与えてくれた問題。 ユニットの長さを伸ばす操作を手前に一つ追加する操作だと考えればすっきりコードが書ける。 SF作家であり医療研究機関のプログラマでもあったグレッグイーガンが作中、セルオートマトンでセルの計算を行うにはセルオートマトンのサイズが巨大になるほど、近傍セルへのアクセス時間が延びるという記述があった。 多分彼は配列型言語ではなく、リスト操作型言語のプログラマだったんだろう。 配列ならアクセス速度は1のはずだからである。 まあそんなのはどうでもいいことなのでコード記述。 計算量はもう少し下げられる可能性はあるがまあ十分高速なのでいいかな。 next_calc(_,[],0) -!. next_calc(N,[Count|Counts],Sum1) - N= 0, !, next_calc(N,Counts,Sum), Sum1 is Sum+Count. next_calc(N,[_|Counts],Sum) - !, N1 is N-1, next_calc(N1,Counts,Sum). seed(1) - between(1,51,_). calc(N,Sum,_) -1000000= Sum,!,N1 is N-3,write(N1). calc(N,Sum,Counts) - N1 is N+1, next_calc(50,Counts,Sum1), Sum2 is Sum+Sum1, calc(N1,Sum2,[Sum2|Counts]). main115 - findall(N,seed(N),Counts), calc(52,1,Counts). Problem 116 「赤タイル, 緑タイル, あるいは青タイル」 † http //odz.sakura.ne.jp/projecteuler/index.php?cmd=read page=Problem%20116 %風をひいて頭がうまく動かない カユ ウマ とりあえず短いコードなので手っ取り早く書いてみた。 seed(1) - between(1,51,_). next_calc(_,_,[],[]) -!. next_calc(N,Add,[Count|Counts],[Count1|Result]) - N= 1, !, Count1 is Count+Add, next_calc(N,Add,Counts,Result). next_calc(N,Add,[Count|Counts],[Count|Result]) - N1 is N-1, next_calc(N1,Add,Counts,Result). calc(Len,Counts,Result) -length(Counts,Len),!,nth1(Len,Counts,Result). calc(Len,[Count|Counts],Result) - next_calc(Len,Count,Counts,Counts1), !, calc(Len,Counts1,Result). main116 - findall(Count,seed(Count),Counts), calc(2,Counts,Re1), calc(3,Counts,Re2), calc(4,Counts,Re3), Ans is Re1+Re2+Re3-3, write(Ans). problem 117 「赤タイル, 緑タイル, そして青タイル」 † http //odz.sakura.ne.jp/projecteuler/index.php?cmd=read page=Problem%20117 これも簡単。 seed(1) - between(1,51,_). next_calc(_,_,[],[]) -!. next_calc(N,Add,[Count|Counts],[Count1|Result]) - N= 1, !, Count1 is Count+Add, next_calc(N,Add,Counts,Result). next_calc(N,Add,[Count|Counts],[Count|Result]) - N1 is N-1, next_calc(N1,Add,Counts,Result). calc([_,Ans]) -!,write(Ans). calc([Count|Counts]) - next_calc(2,Count,Counts,Counts1), next_calc(3,Count,Counts1,Counts2), next_calc(4,Count,Counts2,Counts3), calc(Counts3). main117 -findall(N,seed(N),Counts), calc(Counts). Problem 118 「パンデジタル素数集合」 † http //odz.sakura.ne.jp/projecteuler/index.php?cmd=read page=Problem%20118 1 から 9 の全ての数字を使い, 自由につなげることで 10 進数の数字を作り, 複数の集合を作ることができる. 集合 {2,5,47,89,631} は面白いことに全ての要素が素数である. 1 から 9 の数字をちょうど 1 個ずつ含み, 素数の要素しか含まない集合はいくつあるか? うーん? 全探索してみましたが速度が出ません。 もう少し賢い方法があるのでしょうか? not_prime(N) -N 2,!. not_prime(N) - S is floor(sqrt(N)), between(2,S,M), 0= =N mod M, !, true. is_prime(N) -not(not_prime(N)). search_list(N,[],P,1) -!, (P N;N= =0), (N= =0;is_prime(N)). search_list(N,Nums,P,Result) - P N, is_prime(N), search_list(0,Nums,N,Result). search_list(N,Nums,P,Result) - select(N1,Nums,Nums1), N2 is N*10+N1, search_list(N2,Nums1,P,Result). main118 -findall(Add,search_list(0,[1,2,3,4,5,6,7,8,9],0,Add),Ans), length(Ans,Len),write(Len). Problem 119 「数字和のべき乗」 † http //odz.sakura.ne.jp/projecteuler/index.php?cmd=read page=Problem%20119 A^Bの桁数和がAになる数を探せばよい、それだけの問題。 適当に桁数上限を決め手抜きアセプト。 本当なら、最小値を確定しながら逐次的に答えを伸ばすべきなのだがそれをしないでも答えは出るのでいいかと思う。 それをするとコードがめんどくさいことになる。 それならいっそ大きな範囲を決めていっきに答えた方が楽。 keta_sum(0,0) -!. keta_sum(N,Sum1) -N1 is N//10,keta_sum(N1,Sum), Sum1 is Sum+(N mod 10). calc2(N,A,B) - between(2,100,B), N is A^B, (N 10^20 - (!,fail);true), keta_sum(N,Sum), Sum= =A. calc([N,A,B]) - between(2,180,A), calc2(N,A,B). print_ans(31,_) -!. print_ans(N,[Ans|Ansers]) -write([N,Ans]),nl, N1 is N+1, print_ans(N1,Ansers). main119 -findall(Ans,calc(Ans),Ansers), msort(Ansers,Ansers1), print_ans(1,Ansers1). Problem 120 「自乗で割った余り」 † http //odz.sakura.ne.jp/projecteuler/index.php?cmd=read page=Problem%20120 モード演算ですから計算結果は周期になります。 その時を捕まえれば一応全探索で答えが出ましたがそのコードは素朴すぎて却下。 もうちょっと頭のいい方法がありそうなので調べました。 http //www.mathblog.dk/project-euler-120-maximum-remainder/ とりあえず英語が読めないのですがこういうサイトくらいの解説は私のサイトも行うべきなのかもしれません。 リンク先の方法は2項定理で数式が打ち消し合ってその余りを取れば2anか2が残るところまでは理解。 ここで式は 2an=r mod a^2 となるので余りはaの倍数でしかありえない。 n=(a-1)/2の時余りは最大となるからこれが答えとなるようです。 というわけで今回はカンニングして解きました。 コードもシンプルなものです。 いかにもプロジェクトオイラーらしい答えですね。 これくらいなら良く考えれば自分でも思いつけたかも。 search(Result) - between(3,1000,A), Result is 2*A*((A-1)//2). sum([],0) -!. sum([X|Xs],Result) -sum(Xs,Re),Result is Re+X. main120 -findall(Ans,search(Ans),Ansers), sum(Ansers,Ans2),write(Ans2). 事実 会津大学オンラインジャッジでコード実行速度1位を取ったりすることもある私ですが。 兵庫県加古川市加古川町南備後在住の森元さんや藤村さんに言わせれば「AOJで一位を取るくらい馬鹿でもできる、ぷぷぷ笑い物」 だそうです、私より成績の悪い人も全員下等な見下された存在に分類されるそうです。 彼らは頭がいいんでしょうねきっと
https://w.atwiki.jp/vipderolo/pages/85.html
●おい王国と大地あるけどどっちやればいいんだカス →王国はストーリー、大地はLv上げとかモンハンみたいなミッションこなして装備品収集が目当て 王国は完結してないし人いないしLv50で打ち止めだしそういうの嫌なら大地やっとけ。 ●おい始めたけど街広すぎてわからねえぞカス →vipwikiの地図見ながら歩いて覚えろ 酒場とハンターユニオン、自分の部屋が分かればしばらく大丈夫 ●おいどのキャラ使えばいいんだカス →vipwikiで見て決めたらいい。こだわりが無ければ攻撃が強いキャラを選ぶと楽。 ●おい何したらいいんだカス →vipwikiメニューのゲーム紹介ゲームの進め方を見るといい。 あとはLvを上げながら次のRankに進めばいい 追々目的は増えていく(装備作ったり転職したり) ●おい最初のマップで死んだぞカス →もしチュートリアルをやっていなければやりなさい。 それが終わったら次は、戦闘訓練Iを練習がてらやってみるといい。短くて報酬も初心者にはありがたいものがもらえる。 ●おいミッションクリアーできねーぞカス →難易度下げろ、いきなりHARDとかNIGHTMAREとか無理ゲーにきまってんだろ クリア目的なら難易度はEASYで結構、ゆとりでおk、慣れてきてレベル上げする時とかには難易度あげていこう ●おいLv上げだるいぞカス →Lvと時刻添えてスレに書き込んだり、部屋のコメントにVIP書けば人も集まるかも ソロは余程鍛えられてないとだるい VIPコメ書いた時はパスを基本以外にしておかないと、IPPANが紛れてきたりするから注意、大体の部屋は鏡 ●おい合成とか精錬ってなんだよカス →書ききれないからwiki読め。良い補正の素材が出たら売らずに倉庫に取っておくか取引所にぶち込んどけ 他所にも書いてあるが、序盤は倉庫に余裕がある、全て倉庫にいれておいてもかまわない、いらないものは後に売却するといい ●おいコンボってなんだよカス →vipwikiのコンボ集みろカス、基本コンボからまずは試してみるといい (例:z1=武器チャージ1 x1=指輪チャージ1 zx=クラススキル1 zzzz=zを4回(通常攻撃) ) ●おい敵が硬すぎるだろ、ダメージ通らないぞカス →新しい装備の精錬やそれらの強化で随分と変わる、詳しくは本wiki参照 もしくはもっと楽な所でやるかレベル上げろ また、種族や属性によってダメージは異なる、弱点等はwikiで調べるか魔物辞典〔※該当する魔物の核が必要〕で確認な! ●おい何か武器のチャージ攻撃ができないぞ、どうなってんだカス →クラス〔例:フェルテスの1次クラスはソルジャー〕ごとに武器スキル、指輪スキルの使える範囲が異なる 武器は持つことすらできないこともあれば、持つことは出来るがチャージ攻撃が出来ないものもあるから注意 ●おいこれどうやってゲーム終了するんだカス →/exitや/retire、もしくは出口でアクションボタン(C)を押せば退出できる、/?でその他にも使えるコマンド一覧が見れる ━━━━━━━━ ●序盤取っておくべき素材 →素材は新たな装備を作り出したり、既存装備に称号【wiki参照】をつけて強化するために使う ・宝石、鉱石(アイアン、ガーネット等) ・鋭利な牙(STR)獣人の爪(DEX)蛇皮(VIT)尖った骨(INT)謎の液体(CON)古びた布(MEN)の各+4 ・魔獣の大牙(STR)鳥獣の翼、魔人の翼(DEX)魔人の頭骨(INT)不気味な体液(CON)呪われた布(MEN)魔獣の皮(VIT) の各+5~7 ↑は序盤は倉庫にも大分余裕があるので補正値・種類関係なく全部ぶちこんどいてもいい 中盤になって倉庫がきつくなったら、いらない素材から売却していくといい ●序盤の精錬に必要なものが多い素材のおおまかな場所 魔人の頭骨→フィーンド〔冒険者への依頼、推奨5Lv〕 魔獣の大牙→ガルム〔高みへの試練、推奨7Lv:魔獣の嘶き〕 ※ボスクラスに対する練習にもなる 不気味な体液→インペイルメント〔冒険者への依頼、推奨8Lv〕 呪われた布→デスノート〔冒険者への依頼、推奨9Lv〕 魔人の翼→シルヴィル〔伝説への挑戦、推奨10Lv:異界の住人〕 ※初心者なら余裕で死ねます 魔獣の皮、鳥獣の翼→グリフォン〔高みへの試練、推奨17Lv:翼を持つ獣〕 ※シルヴィルよりはマシ ※ ガルム、グリフォン、シルヴィルはボスクラスのため強敵 その他の素材で必要な物があれば、本家wikiで確認するなりするといい ●私新規だけど、部屋があっても高LvVIPPERばっかで・・・・その・・・>< →低Lvでもおk!初めは誰でもそうだよ!新規ちゃんは大歓迎してくれると思うが、中には~の素材とるお!みたいな部屋もある キャラ沢山いるから変更もできる、Lvはキャラ・クラスごとだからLv1でもおk!( ^ω^) それでも気になるようなら自分で鍵部屋立ててコメント欄にVIPと分かるようにしておくと暇なVIPPERが居たら遊びにいくお ●ホスト(部屋立てた)になった時スレで部屋に入れないって言われるんだけど →ttp //www.tomoshibi.net/guide/rolo/help/faq.html の 【繋がらない、誰も参加してこない、等 通信関連のトラブルについて】を参照、大抵はここで解決出来る ●↑で解決出来ない、部屋立てろよ →具体的な日時とレベルを添えてスレに書いてみる。 良い例:5/18 PM7 00に3LVでやりたいので部屋立ててください 悪い例:夕方に低レベルの部屋立てろカス(夕方って何時だよ低レベルっていくつだよ) レベルはともかく時刻は重要、曖昧な指定だと待つ側も困る。書いたからって必ず来るわけじゃない。 ●Lvあがりにくすぎるだろ・・・これなんてマゾゲー? →序盤は人数いても装備的に火力に乏しいことから高難易度(HARD,NIGHTMARE)でミッションに行くのは難しい、その為やはり上がりにくい 装備が整うと難易度も上げれて、得られる経験値も随分とかわってくる、そうするとほかのネトゲよりだいぶ早い れべる ミッション(フリーのみ) 1~10 戦闘訓練Ⅰ、白糸の渓谷、虚ろな街路、魔獣の嘶き 10~20 滅びの谷、古塔第一階層、破壊の化身 20~30 瞑想の回廊、救済の回廊 30~40 毒霧の岩屋、古塔第三階層、旧世界の邪神 40~ 忘却の墳墓、生命を刈取る鎌、古塔第四階層、秩序を破壊する者 環境が変わってどのへんが効率がいいかわからんが、このへんかね ちなみにソロでも2人~4人でも経験値は同じ〔Lv差によって若干違う〕、なのでこれがPTゲーとも言われる所以 また、PT内に初心者マークのついている人がいると1割程度ボーナスEXPが貰える ●おい新規だけどギルドいれろ、ぼっちだと飽きるだろカス →新規も歓迎したいのはやまやまだが、ギルドには人数枠(20人)があるから現状いっぱいおっぱいなギルドもある。 まず満員かどうかをスレでたずねてみるといい、空きがあれば恐らく入れる。 (※まずはある程度VIP部屋に入るなりして、顔見せしとくと信頼が得られてよろしい) また、新規が多くいるのなら新規同士で作ってしまうのもいい、新たなVIPギルド大歓迎 ●おい肝心のVIP部屋がねーぞ、どんだけ過疎ってんだよカス →申し訳ないところではあるが、近頃はIPを警戒して、部屋コメにVIPと書いてない場合がほとんどなのが現状 だからスレで新規アピールするか、自分で部屋たてれるのなら、「VIP部屋」と書いてれば暇なふるさん(笑)が遊びにいくお 鍵はかけておくこと もしくはwikiのギルドメンバー表などを見て、そいつの部屋に凸するのもいい、大抵鍵は鏡 ●おい何か色々教えてもらったけど、古参が何いってるのか全くわかんねぇぞカス →新規には分からないことだらけなのがネトゲにはよくあること、いきなりわかんない情報詰め込まれるとそれだけでクリアする奴もいる 指示厨UZEEEEEならスルーでいい、色々な意味で支援が必要なら出来るだけするお スレで聞いてもいいし、直接聞きにいってもいい(※自分で手探りプレイやってからを推奨、最初は誰も何も分からないのが面白い) ●おいコンボ割り込むなって言われて暇だぞカス →ダメージが落ちてしまうようなら割り込まない方がいい。慣れてきたら割り込むタイミングを計れば問題なくなる 悪い割り込み:割り込んだ結果、繋がるはずのコンボが途切れてダメージが落ちてしまった。 → とにかくダメージがかえって落ちるなら割り込まないべき 良い割り込み:コンボしている人が↓ → 叩きつけを持っていない → 落ちかけた時に代わりに叩きつけるとコンボが伸びてダメージうp → 吹き飛ばしを持っていない → コンボの〆に吹き飛ばしスキルを代わりにぶっ放すとダメージうp 飛ばすと厄介な時は傍観 → 吹き飛ばすが仕留め切れない → 吹き飛ぶ場所に先周りしておいて、自分のコンボに繋げるとダメージうp → 通信ラグやミスで敵が落ちてしまいそう → 浮かせや叩きつけで浮かせなおす。相手が間に合わないなら自分がコンボを引き継ぐとダメージ減少を抑えられる → 浮き難い敵に有効なコンボ持ちが居ない or 時間かかりすぎる → 要相談かもしれないが皆でスキル連打が良い事もある コンボ火力が低すぎる時は、割り込むと良いかどうか人によって分かれるので各自判断で。 火力に自信無い人は交代してほしいって定型文を作っておくといいお。相手から頼まれれば交代しやすいお ●おい精錬,強化 大きく仕様変更されたので一旦コメントアウト
https://w.atwiki.jp/smashbrosmoso/pages/73.html
血塗られた聖域 地下一階 マジックアカデミー モンキーアイランド