約 2,235,785 件
https://w.atwiki.jp/c21coterie/pages/702.html
コード製作者 堀江伸一 ナイトの交換というパズルを解くPrologプログラム。 盤面サイズは3*4。 move_t(0,5). move_t(0,7). move_t(1,6). move_t(1,8). move_t(2,3). move_t(2,7). move_t(3,8). move_t(3,10). move_t(4,9). move_t(4,11). move_t(5,6). move_t(5,10). move_t(6,11). move_t(8,9). move_perm(From,To) -move_t(From,To). move_perm(From,To) -move_t(To,From). print_path([]). print_path(State) -state_chain(OldState,State),print_path(OldState), one_print(State,[0,1,2,n,3,4,5,n,6,7,8,n,9,10,11,n,n]). print_rev_path([]). print_rev_path(State) -one_print(State,[0,1,2,n,3,4,5,n,6,7,8,n,9,10,11,n,n]), state_chain(State,NextState),print_rev_path(NextState). one_print([],[]) -!. one_print(Log,[n|Rest]) -!,nl,one_print(Log,Rest). one_print([[P,C]|Rest],[P|Rest1]) -!,write(C),one_print(Rest,Rest1). one_print(Log,[_|Rest]) -write(s),one_print(Log,Rest). all_next_search(N) - N1 is N+1, state_list(N,State), move_perm(From,To), select([From,Color],State,Rest1), not(member([To,_],Rest1)), Temp=[[To,Color]|Rest1], sort(Temp,NextState), not(state_chain(_,NextState)), assert(state_chain(State,NextState)), assert(state_list(N1,NextState)), state_rev_list(_,NextState), print_path(State), print_rev_path(NextState), read(A),write(A). all_old_search(N) - N1 is N+1, state_rev_list(N,State), move_perm(From,To), select([From,Color],State,Rest1), not(member([To,_],Rest1)), Temp=[[To,Color]|Rest1], sort(Temp,OldState), not(state_chain(OldState,_)), assert(state_chain(OldState,State)), assert(state_rev_list(N1,OldState)), state_list(_,OldState), print_path(OldState), print_rev_path(State), read(A),write(A). next_search(N) - N 12, not(all_next_search(N)), not(all_old_search(N)), findall(State,state_list(N,State),List),length(List,Len),write([Len,l]), N1 is N+1, write(N1),nl, next_search(N1). main - State=[[0,b],[1,b],[2,b],[9,w],[10,w],[11,w]], StateRev=[[0,w],[1,w],[2,w],[9,b],[10,b],[11,b]], assert(state_rev_list(0,StateRev)), assert(state_list(0,State)), assert(state_chain([],State)), retractall(state_list(_,_)), retractall(state_chain(_,_)), retractall(state_rev_list(_,_)), assert(state_list(0,State)), assert(state_chain([],State)), assert(state_chain(StateRev,[])), assert(state_rev_list(0,StateRev)), next_search(0). http //blog.goo.ne.jp/handbill-puzzle/e/f5d4013bfeefba4607977c1faebbb05a こちらのサイトにあったじゃんけんパズルその5を解かせた。 多分手作業で問いたら1分で解ける気もする。 コードももっと短くならないかなこれ? con(1,[0,2]). con(0,[1,3]). con(3,[0,1,2,3,4,5]). con(1,[2,6]). con(1,[3,5,7]). con(1,[4,6,7]). te(1,pa) -!. te(7,gu) -!. te(_,gu). te(_,tyoki). te(_,pa). v_count([Gu,Tyoki,Pa],0) -0 Gu,0 Tyoki,0 Pa,!. v_count([_,0,0],0) -!. v_count([0,_,0],0) -!. v_count([0,0,_],0) -!. v_count([Gu,_,0],Gu) -!. v_count([_,0,Pa],Pa) -!. v_count([0,Tyoki,_],Tyoki). add(gu,Gu,Tyoki,Pa,ReGu,Tyoki,Pa) - ReGu is Gu+1. add(tyoki,Gu,Tyoki,Pa,Gu,ReTyoki,Pa) - ReTyoki is Tyoki+1. add(pa,Gu,Tyoki,Pa,Gu,Tyoki,RePa) - RePa is Pa+1. te_count(_,[],[0,0,0]) -!. te_count(List,[P|Rest],[ReGu,ReTyoki,RePa]) - member([P,Te],List), te_count(List,Rest,[Gu,Tyoki,Pa]), add(Te,Gu,Tyoki,Pa,ReGu,ReTyoki,RePa). ans_check(Ans,[]) -write(Ans). ans_check(List,[[V,Perm]|Rest]) - te_count(List,Perm,TeCount), v_count(TeCount,NowV), V= =NowV, ans_check(List,Rest). search(N,List) - N= =8,!, reverse(List,List1), findall([V,Perm],con(V,Perm),AllSet), ans_check(List1,AllSet). search(N,List) - te(N,Te), N1 is N+1, search(N1,[[N,Te]|List]). 28日目 Fn4パズルを解く http //torito.jp/shopping/_fn4puzzle.shtml 探索空間が小さいパズルなのでピースの右端になる4点をcombin述語で求めその向きを指定して全探索してみた。 計算量を抑えることを考えたらこんな無駄な処理はいらないがこれはコードがわかりやすいという利点がある。 round90([],[]). round90([[X,Y]|Rest],[[X1,Y1]|Result]) - Y1 is X,X1 is -Y,round90(Rest,Result). slide(_,_,[],[]). slide(DX,DY,[[X1,Y1]|Rest],[[X2,Y2]|Result]) - X2 is X1-DX,Y2 is Y1-DY,slide(DX,DY,Rest,Result). round(Piece,Result) -round90(Piece,Piece1), sort(Piece1,Piece2), [[DX,DY]|_]=Piece2, slide(DX,DY,Piece2,Result). rounds(P,P). rounds(P,P1) -round(P,P1). rounds(P,P2) -round(P,P1),round(P1,P2). rounds(P,P3) -round(P,P1),round(P1,P2),round(P2,P3). reverse([],[]). reverse([[X,Y]|Rest],[[X1,Y1]|Result]) - X1 is -X,Y1 is Y,reverse(Rest,Result). reverse_exe(P,P). reverse_exe(P,Result) -reverse(P,P1),sort(P1,P2), [[DX,DY]|_]=P2,slide(DX,DY,P2,Result). assert_piece - P=[[0,0],[0,1],[0,2],[1,-1],[1,0],[1,1],[1,2],[2,0],[2,1],[3,1]], assert(piece(P)), retractall(piece(_)), reverse_exe(P,P1), rounds(P1,P2), sort(P2,P3), assert(piece(P3)),fail. insert(_,_,_,[],Ans,Ans) -!. insert(X,Y,No,[[DX,DY]|Rest],Ans,[[X1,Y1,No]|Result]) - X1 is X+DX, Y1 is Y+DY, 0= X1, 0= Y1, X1 7, Y1 7, not(member([X1,Y1,_],Ans)), insert(X,Y,No,Rest,Ans,Result). combin([],_) -!. combin([X|Rest],[X|Rest1]) -combin(Rest,Rest1). combin(Perm,[_|Rest]) -combin(Perm,Rest). print_ans(_,_,[]) -!. print_ans(X,Y,Ans) - Y= =7,!, nl, Y1 is 0, X1 is X+1, print_ans(X1,Y1,Ans). print_ans(X,Y,[[X,Y,No]|Rest]) - write(No),!,Y1 is Y+1, print_ans(X,Y1,Rest). print_ans(X,Y,Ans) - Y1 is Y+1, write(s), print_ans(X,Y1,Ans). search([],[],Ans) -!,sort(Ans,Ans1),write(Ans1),nl, print_ans(0,0,Ans1). search([No|Rest1],[[X,Y]|Rest2],Ans) - piece(P1), insert(X,Y,No,P1,Ans,NextAns), search(Rest1,Rest2,NextAns). main -not(assert_piece), combin([A,B,C,D], [[0,0],[0,1],[0,2],[0,3],[0,4],[0,5], [1,0],[1,1],[1,2],[1,3],[1,4],[1,5], [2,0],[2,1],[2,2],[2,3],[2,4],[2,5], [3,0],[3,1],[3,2],[3,3],[3,4],[3,5]]), search([0,1,2,3],[A,B,C,D],[]). http //torito.jp/shopping/_lpuzzle.shtml リンク先Lパズルを解く。 回転解が4つでてこないとおかしいような、あれ何か変だ? piece(s,[[0,0],[0,1],[0,2],[1,2]]). piece(s,[[0,0],[1,0],[2,0],[2,-1]]). piece(s,[[0,0],[1,0],[1,1],[1,2]]). piece(s,[[0,0],[0,1],[1,0],[2,0]]). piece(l,[[0,0],[0,1],[0,2],[0,3],[1,3]]). piece(l,[[0,0],[1,0],[2,0],[3,0],[3,-1]]). piece(l,[[0,0],[1,0],[1,1],[1,2],[1,3]]). piece(l,[[0,0],[0,1],[1,0],[2,0],[3,0]]). piece(r,[[0,0],[0,1],[1,1],[2,1]]). piece(r,[[0,0],[0,1],[0,2],[-1,2]]). piece(r,[[0,0],[1,0],[2,0],[2,1]]). piece(r,[[0,0],[0,1],[0,2],[1,0]]). to_hex(N,N) -N 10. to_hex(10,a). to_hex(11,b). print_ans(_,_,[]) -!. print_ans(X,Y,Ans) - Y= =7,!, nl, Y1 is 0, X1 is X+1, print_ans(X1,Y1,Ans). print_ans(X,Y,[[X,Y,No]|Rest]) - to_hex(No,S), write(S),!,Y1 is Y+1, print_ans(X,Y1,Rest). print_ans(X,Y,Ans) - Y1 is Y+1, write(s), print_ans(X,Y1,Ans). insert(_,_,_,[],Ans,Ans) -!. insert(X,Y,No,[[DX,DY]|Rest],Ans,[[X1,Y1,No]|Result]) - X1 is X+DX, Y1 is Y+DY, 0= X1, 0= Y1, X1 7, Y1 7, not(member([X1,Y1,_],Ans)), insert(X,Y,No,Rest,Ans,Result). search(_,_,_,0,0,Ans,[]) - !, sort(Ans,Ans1), nl,print_ans(0,0,Ans1). search(X,Y,No,L,R,Ans,PList) - Y= =7,!, Y1 is 0, X1 is X+1, search(X1,Y1,No,L,R,Ans,PList). search(X,Y,No,L,R,Ans,PList) - member([X,Y,_],Ans),!, Y1 is Y+1, search(X,Y1,No,L,R,Ans,PList). search(X,Y,No,L,R,Ans,[_|Rest]) - piece(s,P1), insert(X,Y,No,P1,Ans,NextAns), No1 is No+1, search(X,Y,No1,L,R,NextAns,Rest). search(X,Y,No,1,R,Ans,[_|Rest]) - piece(l,P1), insert(X,Y,No,P1,Ans,NextAns), No1 is No+1, search(X,Y,No1,0,R,NextAns,Rest). search(X,Y,No,L,1,Ans,[_|Rest]) - piece(r,P1), insert(X,Y,No,P1,Ans,NextAns), No1 is No+1, search(X,Y,No1,L,0,NextAns,Rest). main -search(0,0,0,1,1,[],[s,s,s,s,s,s,s,s,s,s,s,l]).
https://w.atwiki.jp/248102/pages/111.html
role麻雀(街角アンケート)ルール ~基本事項~ 夜時間にGMが参加者全員に質問をするので、参加者は質問へ回答する ※人狼は役職実行時間に回答をおこなう事とする 昼時間になったら、GMが質問に対する回答結果を穴空きで発表する 昼時間になったら、参加者は全員【cast】を1回おこない、【Z】が出たらヒントを得られる 回答時間になったら参加者は穴空きに当てはまる答えを回答する 不正解者は【dice】をおこない、最小値を殺害・最大値を吊り対象とする ~その他~ 噛みはGMアナウンス後、護衛は即実行OK 全員正解の場合、全員が【dice】をおこなうものとする 自分が何を回答したかの発言は禁止とする ヒントを他言する事は許可する(メリットは無い) ~例題~ 【質問】あなたが一番好きな役満は何ですか? ~ヒント【Z】が出た方~ 指定した1名の回答結果をささやきで聞く事が出来ます 【回答】狼和 狐和 狼和 村士無双 色和 色和 狼和 狐和 【出題】 【A】 3票 狐和 2票 【B】 2票 村士無双 1票 A・Bを答えよ
https://w.atwiki.jp/shirokane/pages/9.html
color構文 文字色を変える デフォルトは黒? color(カラーコード){本文} とやると色付きの文章になる color(カラーネーム){本文} でも可能のはず color(#ffffff){白い文字 とやると色付きの文章になる} color(red){赤い文字 でも可能のはず} 白い文字 とやると色付きの文章になる←背景が白だと見えません 赤い文字 でも可能のはず カラーコードはここを参照 色つき文字を使いすぎるとテンプレ変更がしづらくなるから要注意だお( ^ω^) デフォにしとくのが無難だお
https://w.atwiki.jp/nostradamus/pages/2225.html
Solonne は詩百篇第9巻の21番(未作成)、23番のみに登場する単語。 第9巻21番ではブロワとともに登場しており、23番では au temple saint Solonne という形で登場している。 マリニー・ローズは Solemne と同一視し、エドガー・レオニやリチャード・シーバースは Solenne と同一視している。 ブロワのサン=ルイ大聖堂は、16世紀にはサン=ソレンヌ教会(参事会聖堂)と呼ばれており、それのことと理解される(*1)。 ジャン=ポール・クレベールは au temple saint Solonne を「ソローニュ (Sologne) の聖なる殿堂で」と読んでいる。 ソローニュ地方はパリ盆地南部の地名で、ブロワはその中心都市の一つである。 ゆえに、クレベールもこれをブロワのサン=ルイ大聖堂と理解しており、意味するところは同じである(*2)。 ソローニュと読んでいても意味合いが違うのはロジェ・プレヴォで、彼はソローニュ地方のフェリエール大修道院 (l abbaye de Ferrières) と理解している(*3)。 この読み方を採っているピーター・ラメジャラーは、Saint-Sologne と英訳しているが(*4)、根拠がよくわからない。 いずれにせよ、Solonne は2度とも行末で使われており、Sologne ないし Solenne の押韻のための変形もしくはそれら2語の合成語と解釈するのが妥当だろう。 ※記事へのお問い合わせ等がある場合、最上部のタブの「ツール」>「管理者に連絡」をご活用ください。
https://w.atwiki.jp/anison-rap/pages/865.html
【曲名】 MEGALOPOLIS PATROL 【アーティスト】 SOUL d OUT 【歌詞】 http //www.kasi-time.com/item-16740.html 【作詞】 Diggy-MO , Bro.Hi 【作曲】 Diggy-MO , Shinnnosuke 【編曲】 Shinnnosuke 【作品】 ブーンドックス 【メディア】 TVアニメ 【テーマ】 日本版テーマソング 【初出】 2007年 【備考】 合衆国のカルチャーや政治を風刺した米国産アニメの日本語版主題歌。(アニマックスで放送) おまけ ブーンドックス予告
https://w.atwiki.jp/hololiveocg/pages/40.html
hololive OFFICIAL CARD GAME スタートエールセット 概要 発売日 2024年9月20日(金) メーカー希望小売価格 990円(税込) セット内容 デッキを作るときに必要な『推しホロメンカード』や『エールカード』がセットになって登場! hololive OFFICIAL CARD GAMEを始めたい方や、たくさんのデッキを作りたい方へおすすめの商品です。 収録タレント <ホロメンカード> カード固定84枚 推しホロメンカード:4種×1枚=4枚 エールカード:4種×20枚=80枚 ※全てノーマル加工のカードとなります カード詳細 ■推しホロメンカード(4種) <収録タレント> 七詩ムメイ/兎田ぺこら/小鳥遊キアラ/星街すいせい <収録レアリティ> OC(推しホロメンコモン):4種 C(コモン):4種 パッケージ担当 七詩ムメイ/兎田ぺこら/小鳥遊キアラ/星街すいせい 収録カードリスト カードナンバー 名前 カードタイプ 色・タイプ 収録枚数 カードナンバー 名前 カードタイプ 色・タイプ 収録枚数 hYS01-001 七詩ムメイ 推しホロメンカード 白 1 hYS01-002 兎田ぺこら 推しホロメンカード 緑 1 hYS01-003 小鳥遊キアラ 推しホロメンカード 赤 1 hYS01-004 星街すいせい 推しホロメンカード 青 1 hY01-001 白エール エールカード 白 20 hY02-001 緑エール エールカード 緑 20 hY03-001 赤エール エールカード 赤 20 hS04-001 青エール エールカード 青 20
https://w.atwiki.jp/hmiku/pages/16829.html
【登録タグ 作A 作り手】 【ニコニコ動画】 特徴 2009年8月、『Days』 にてボカロデビュー。 使用ボカロは今のところ、ミク・ルカ。 作風はロック。まったり聴ける感じの曲が多め。 リンク between the colors(作者ホームページ) PIAPRO Twitter 曲 Fly away/Sky Palette half sleep little dreamer/ashcolor live on lost and found Lz Re Re /ashcolor Thank you all thanksgiving song voice by voice アルクガラクタ セツナダクト 僕が僕であるために CD lost and found ガラクタ概論 動画 コメント 好きです!応援してます! wikiおめでとです! -- やみくろ (2011-11-11 17 18 19) 名前 コメント
https://w.atwiki.jp/maid_kikaku/pages/989.html
(投稿者:怨是) 1944年3月。 訪れた春は随分と灰色がかっているが、それでもハンチング帽とくすんだ臙脂色のコートに身を包むこの男にとっては、至極どうでも良い事だった。 まだ冬の冷たさの残る雨がベーエルデー連邦首都、ベオングラドのメインストリートの石畳を叩く。 ここは、ベーエルデー連邦。クロッセル連合王国の属国のひとつだ。 ベーエルデー連邦は隣国のエントリヒ帝国と民族も殆ど近いが、立憲君主制の議会政治である。 そのためエントリヒよりも幾らか開けた印象があった。 「雨、まだ止まないのか」 ――道に迷っちまった。 未だ訪れた事のないこの国は、あまりに広大だ。 焼き菓子の甘い臭いに釣られながら屋台を追いかけたものの見失ってしまったし、傘も持たずにホテルを出てしまったものだから濡れた上着が重たい。 ついこの間から吸い始めたばかりの煙草を取り出し、火をつける。 男は緩慢な足取りで周囲を見回しながら、煙をあちこちに振りまいていた。 ふと、看板が視界に入る。 目を凝らせば、“歩行喫煙を禁ず。喫煙は指定喫煙所で”とある。 「げぇ……」 得てして、こういう決まりの定められているところは罰金もセットになっているものだ。 辺りを見回せば警察官も居ない。よしよし。 排水溝に吸いかけの煙草を放り込み、近くの街頭に寄りかかる。 「……」 この脳ミソは、いつの間に明瞭な思考を放棄してしまったのだろう。 今となっては何かを考える気力も無ければ、理由や目的を考えるような余裕も無い。 ふらふらと足を進めて、ただ、ただ、靴の濡れる感覚と、靴下が水分を吸い上げて足の皮膚に冷たい感触を伝えるのみである。 呆然と、シャワーを浴びたいが、ホテルに戻らねば浴びる事もできず、まぁいいやなどと放棄してしまう。 道行く人に戻り方を訊ねるのも何だか億劫になってしまった。他人の為に開ける口など、当に失って久しい。 「雨ェはヒドいーな、冷たいなァーっと……」 服はきちんと洗濯しているから別段、どうという事でもない。 ただ、伸ばしたままの無精ひげや不健康な顔色はどう見ても浮浪者の様相だった。 思考はまたもや脈絡の無い方向へと奇妙な三千世界回転自動式運動乙種をはじめ、雨に濡れたベンチに勢い良く突っ込んで昼寝でもしてしまいたい衝動に駆られる。 横を見る。 横を見れば、首輪の付いた犬がフェンスにくくりつけられていた。犬種はダックスフンド系か。毛色は茶色だ。 パン屋の近くのフェンスだから、おそらくは飼い主はパン屋で買い物の最中か。曜日の感覚がない。今日は何曜日だ。 そんな事もどうだっていい。近寄って撫でてみようとしたら吼えられたので、メインストリート沿いのカフェまで足を進める。 犬は、可愛い。 愛情さえ与えてやれば飼い主に懐き、尻尾をふりながら愛嬌を振りまく。 蹴飛ばせばブルブルと震えて許しを請う。そのときに首根っこを引っつかんでやると、震えが両腕から伝わってくるのだ。あの特有のガクガクとした震えが。 見開いた双眸が「許して、許して!」と叫びを発し、鼻を高く鳴らして涙の音を形作る。そういうものだ。 男が15になる時には寿命を全うして死んでしまったが、今となっては良い思い出であったと同時に、もっと愛せなかったものかと罪悪感に駆られる。 だが、愛情という存在は、対象と一緒に居る間は得てして麻痺を起こし、存在を隠す。 特に彼のような怠惰な人間はそういう素晴らしい事態に陥りやすい。 「やっぱ、無理だよ。俺は生きるのに向いてないよ」 手頃な雨宿りのできるアーケード商店街に辿り着くと、ポケットの中に地図があることを思い出し、それを取り出す。 この町の親切な警官が無料で配布していたもので、このベオングラドの美しい町並みをゆっくり見て行って欲しいとの事だった。 実に親切である。男の生まれ育った国ではそういうものは一切無縁だったし、あの国の地図は精密でこそあれど、どれも無駄に分厚くて持ち歩けたものではなかった。 地図を眺めながら歩いていると、またしても雨音が帽子を叩く。 インクの滲んでしまった地図ではどうにも役に立たない。どうしてしまおうか。口を開くのも億劫だ。 そうこうしていれば、青なのか、紺色なのか、天気のせいで暗く見えるだけなのか。 とにかくそういう色の給仕服に身を包んだ女性が、横合いから声をかけてきた。 「あ、あの」 「どうかしたのかい。道を訊かれても俺は答えられないぜ」 「いえ、道に迷っていらっしゃるのでしたら、お教えしようと思いまして……その、よろしければお手伝いしましょうか?」 ……天使だ! レモンの香りの天使が訪れたぞ! 「そうだね」 返答としては実に精彩を欠くどころか、それを通り越して人としての最低ラインをとうに下回っているであろう言葉が口の端から涎のように垂れ下がる。 自分を好きになれないのなら、他人を好きになれるはずも無い。 まして、この男にとって、その服装はあまり良い思い出が無かったのだ。たとえ相手が天使だとしてもそれは同じであった。 「でも残念だ。足が疲れちまった。俺は今、すごく、コーヒーが呑みたい」 「でしたら、喫茶店にでも案内しますね」 はて。喫茶店など近くにあったか。 浮浪者風の無精ひげにつつまれた顎に手を当てて思案し、顔を上げる。 「それってすごく遠かったりしない?」 「すぐ近くですよ」 普通の人から見れば、一目惚れするであろうその笑顔はしかし、この男にとっては風景か何かと同じようなものであった。 店内は閑散としているが、従業員の表情は大盛況のそれとほとんど変わらない。 この勤勉性はエントリヒによく似ている。やはり両国は兄弟国家というものに近しいものではないだろうか。 男の脳裏の、歴史学やら民俗学やらの知識が次々とアクセスを始める。その間に従業員と、その女性との会話が始まっていた。 「トリアさん、そちらの殿方は? 恋人?」 「違いますよ! 道に迷ってしまったそうでして。道のりを教えたら私はパトロール任務に戻るところです」 「あァ、そうなんだ。お客様、雨の中大変だったでしょう。ゆっくりしていってね!」 声のベクトルがこちらへ向いたか? 窓の外を眺めているせいで、飲み込めない。耳に入った“音の羅列”は、反対側の耳へと零れ落ちていった。 「……ひょっとしてお客さんお疲れ気味かな、トリアさん」 「あはは。そう、みたい……ですね」 「ありゃりゃ。困っちゃったねェ。まぁ注文が決まったら呼んでちょうだい」 苦笑する声が胸に突き刺さる。 何だ。俺の事か? ゆっくりも何も、していくに決まっているだろう。でもどうせもう二度と会う事のない連中に、愛想など振りまいていられるか。 そんな余裕は無いんだ。放っといてくれ。 しかし、男のそうした欲求が叶えられるのも、一人で歩いている時だけだ。 孤独ではない時間が、無慈悲に欲望をひねり潰す。目の前の天使の、鈴のような声によってひねり潰される。 「あの、そろそろ地図をお借りしてもいいですか?」 「あぁハイ」 緩慢な動作でテーブルに地図を広げるのを見ると、トリアと呼ばれたその女性がエプロンの裏側からペンを取り出し、書き込んで行く。 「まず、現在地がここですね」 メインストリートから数ブロックほど離れたところに位置する喫茶店が、この現在地。 そしてすぐ近くには鉄道が走っており、ときおり響く轟音が全身の体液を小刻みに揺らした。 「それで、どこまで戻りたいですか?」 「ホテル」 「えと……この近くのホテルですと、二十件ほどあるんですけど……その中のどれになりますかね」 ベーエルデーは他のクロッセル連合王国の属国にその存在感をアピールするといった、自己顕示欲旺盛な国家としても知られている。 当然、空戦MAIDの存在を各国に身近に知らしめるために沢山のホテルを用意していた。 ここは首都、ベオングラドなのだ。首都を名乗るからには相応の設備の充実もまた、当然ではないか。 「ド・アレーラって所だったかな」 「でしたら、ここの店を出たらすぐに右に曲がって、真っ直ぐ行けば交差点に当たるので……」 地図の上を走るペンの動きを呆然と見つめる。 このトリアとかいう女性も、MAIDなのだろうか。パトロールと云っていたな、雨の日は大変だ、など。 無感動な思考をどうにかして脳の指先でくるくると廻しているうちに、どうやら説明が終わったらしい。 「この道順で行けば辿り着けます。良かったらこの地図を元にこのお店にも遊びに来てくださいね。私のお気に入りのお店なんです」 はっはっは。商魂旺盛で何よりだ。 見ず知らずの男にお気に入りのお店を教えるやつがあるか。 「……うん、明日にはチェックアウトしなきゃだけど、またそのうちね」 二度と来るまい。 「では私はこれにて失礼しますね」 「ぁ、お嬢さん。ありがとうついでに、二、三ほど訊いておきたいんだけど、いいかな」 立ち去ろうとするトリアに、後ろから声をかける。 声音が鋭すぎたか。ビックリさせてしまった。 「! はい」 鋭い声音に蹴飛ばされた女性が、こちらに振り向く。ああ、今この瞬間に彼女の首を引っつかめば、きっと震えが伝わってくるのだろう。 昔飼っていた犬と、同じように。 「……あんた、MAIDか」 「ええ、そうですけども」 それがどうかしたかといった風情だ。国民性の違いをよく思い知らされる。 なんだかな。こんな開けっ広げでいいのか。良くないのか。いや、いいか。いいのか。 「いいのか。俺なんかに付き合わされちまってて」 「困っている人を助けるのも、私達の役目ですから。全部はお助けできなかったみたいですけどね」 「充分、助かったよ」 男は嘘をついた。助かったなどとは思っていなかったし、恩義も別段感じない。 遠くから何かを見ていたというような気分になっただけである。何もかもが当事者意識からかけ離れていたし、もうどうでもよくなった。 男にとってこの世界は既に“終わった”ものであり、どうなろうと知った事ではないのだ。 プラスでもマイナスでもない、極めてフラットなラインを感情がなぞる。 「ありがとうございます」 ……“ありがとう”はこっちのセリフだろうがよ。少し前のこの男なら、そう考える事もできた。 が、今は“ありがとう”? 今起こった事がどんな事かよく判らないや。ありがたいならそれでいいんじゃないか。という具合である。 「あんた、さっき見た犬に似てる」 「はぁ。犬……ですか。犬っぽいとは、よく云われますけど。あっ、時間が無いのでそろそろ失礼しますね! では!」 ははぁ。ビビりやがったな。俺がイカレてるのを最後の一言で見抜いたか。止まらないさ。正気が砂時計のようにサラサラと流れて行っちまうんだ。 レモンの香りの天使に片手を振って見送り、すっかりぬるくなってしまったコーヒーを一気に飲み干す。 殆ど身体が温まらなかったが、あのまま冷雨に身を晒すよりかは幾分ましに違いない。 レジまで歩みを進め、財布を取り出す。クロッセル連合王国の通貨である、ユニロとユニセントに換金しておいたために、これといって問題は無かった。 「店員さん。あのトリアってMAIDは、よくここに来るのかい」 会計ついでに質問を投げかける。 「ええ来ますよ。お客様もしかしてこのお店、気に入ってくれたんですか?」 「うん気に入った、気に入った。でも俺は明日からまた放浪しなきゃいけないんだ。だから伝言を頼みたい。いいかな」 「はいはい、伝言ですね。どうぞ」 店員がメモ帳を取り出し、準備をはじめるが、そのメモ帳で大丈夫なのか。 注文をとる為のメモ帳だろう。それは。 喉の先まで出かかった突っ込みを喉仏の辺りにでも押し込み、男は代わりに伝言をその喉に通した。 「“働きすぎには気をつけろ。死神に狙われるぞ”――と伝えておいて」 「まァた意味深な伝言ですねェ。後半はどういう意味なんですか?」 「何、簡単だよ。働きっぷりを妬む馬鹿が殺しに来るぞって事さ」 簡単な話だった。経験則である。 「あっはっは! 荒んでるねぇ。良かったらうちの店のアロマコーヒーでも買っていきませんか? 精神を安定させる効能がありますよ」 どうせ当事者でもない限り、理解できるような言葉ではない。到底。 それにここは隣国とはいえ異国である。関係のある話でもなかろう。ましてや一介の喫茶店の店員に理解しろと云うのも土台無理な話には相違なかった。 男は諦めて、店員のおすすめ商品も断る。 「薬局で買い込んだ錠剤で間に合ってるよ。じゃあね」 「あ、はいはい、またお越しくださいね! 伝言はちゃんと伝えておきます。あ、よかったらこの傘。あとでホテルの人に返してもらうから」 カランコロン。小洒落たベルが雨音を突き破り、浅瀬の様相を呈した石畳が巨大な水溜りを呑み込む事無く周囲に水分を垂れ流す。 地獄だ。これが地獄の冷雨だ。 狂人に傘を渡すほどの慈悲ならば、受け手によっては慈雨となる。が、そのような表面上の慈悲など、やはりこの男にとっては冷雨であった。 「ウソこけ。あんな馬鹿げた脅し文句みたいな伝言が通るわけあるかよ」 ドアが閉まる音を確認すると、男は受け取った傘を壁に立てかけて返しながら、静かに毒づく。 見抜いていた。確かに店員はペンを動かすそぶりを見せていたが、メモ帳に書き留める“あの独特の音”が無かったのだ。 音のしないペンなど、彼の知る範囲ではこの世に存在しない。新技術などはきっとまだ先の事だ。 嗚呼、あの店員の脳裏からも、トリアというMAIDの脳裏からも、いつしか“変な奴に会っちまった”という記憶としてこの出来事は処理されるのだろう。 所詮はそういうものだ。一緒に居る期間など殆ど無い、人生という超巨編の中の名無しの登場人物のうちの一人として、片隅にも残らず忘却へと流れて消えて行くのだろう。 それがこの男にとっては、唯一悔しい事だった。この男にとっても彼女らを同じ扱いにしてしまおうと、少しでもそう考えてしまった事が悔しかった。 具体的に何が悔しかったのかを男は説明する術を持たないが、僅かながらにどこかに残っているであろうこの男の正気がそうさせるのかもしれない。 「みんな、死ね……そして最初に俺が死ね!」 近くのフェンスを思い切り蹴飛ばすと、靴の跡が黒々と残った。 にも関わらず、冷えきった足の骨は殆ど痛まない。それもまた、この世の中の無常を体現しているかのように見えて無性に悔しくなった。 俯いて歩いても、足の骨に痛みはやってこなかった。せめて強い痛みが罰してくれればどんなに心が晴れたであろうか。 心もまた、分厚い雲に隠れて晴れる事を許さない。 冷雨はずっと降り続く。地獄だ。これが地獄の冷雨だった。 「……くそったれ」 ホテルに辿り着くころには、辺りは薄っすらと夕暮れの青に染められていた。 カウンターまで身体を引きずって、キーを受け取るべく、受付に番号札を提示する。 「……ナッシュです」 「エドワウ・ナッシュ様ですね。お帰りなさいませ」 ……ただいま。俺に家なんて無いけどね。あと、エディでいいよ。 小さくぽっかり開けられた口から、虚ろな風の音のようなものが漏れ出す。 階段の窓に映った自分の顔は、相変わらず無精ひげと目の下のクマでお世辞にも健康な人間のそれとは思えなかった。 夕闇に色を奪われて灰色のように見えたその顔に不快感を抱かずにいられようものか。 いくら顔を洗えども決して消えないそのクマに、男――エディはいつしか対処を諦めた。 「この国の石畳は、どうして……」 そして思い出してしまった。 ニーベルンゲの石畳が、みな一様に灰色であった事を。 そして、ベオングラドの石畳が、赤と黒と白と青の四色で構成されていた事を。 「どうして、あんなにも色鮮やかなんだ」
https://w.atwiki.jp/dsiware_geha/pages/317.html
230 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/21(水) 20 55 09.87 ID 9TcoKgYwO (携帯) とりあえずColors買った 下画面いっぱいにキャンバス全体を映したデフォルトの状態が37%で、最大400%まで拡大できる スラパ上下で拡大縮小、左右でレイヤー切り替え LでメニューRで「取り消し」 十字ボタンの上下で筆圧切り替え、右押しながらタッチでスポイト、左押しながら画面スライドでスクロール レイヤーは全てのレイヤーを表情/前面のレイヤーを非表示/現在のレイヤーのみ表情の3種類の表示方法 レイヤー結合は可能 塗り潰し的なものはない模様 231 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/21(水) 21 00 11.96 ID ijRLtVSB0 (PC) 230 SDに出力できる画像の最大解像度と、保存形式ってわかる? 参考にしたい 232 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/21(水) 21 06 02.36 ID O6MBHFItT 230 レイヤーの透明度とかある? あとアンドゥ/リドゥが可能な回数も教えてほしい 233 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/21(水) 21 17 09.96 ID 9TcoKgYwO (携帯) 231 普通(800×480)と大(1600×960) 3DSカメラで見られるらしいから多分jpgじゃないかな? ついでに外部保存用に3Dボリュームをセットできるそうだ 232 筆の不透明度は調節できるけどレイヤーは無理っぽい アンドゥ/リドゥは面倒だからあまり試さなかったけど40回はできる 234 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/21(水) 21 52 59.98 ID Y0ySebjr0 (PC) 233 なるほどサンクス 意外とキャンバスサイズ大きいんだな 保存に関してはjpgのみだとちょいと残念だがしょうがないか 買ってもよさげだ 240 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/22(木) 02 38 43.89 ID RXMOzivQ0 (PC) 234 公式に投稿すればpngとdrwとmpo形式で書き出せるよ 272 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/22(木) 23 07 31.97 ID NcJy1VkD0 (PC) Colors!3Dって絵心教室みたいに保存してる画像を見ながら描けたらいいのに 282 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/23(金) 01 41 58.25 ID y4gZwfa40 (PC) 272 できるよー ていうかcolorsマジオススメだな、人の作品観て回るだけで凄い楽しめる たった5枚のレイヤーでここまで立体感のある絵描けるんだなー 284 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/23(金) 02 54 58.15 ID BisAQIeP0 (PC) 絵関係ソフト両方買ってみたけど 路線が違うから良い悪いより合う合わないって感じだね COLORSはすでに絵がある程度描ける人ならなお楽しい 工房は絵が下手でも楽しめる 291 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/23(金) 13 12 59.24 ID ieje7cBz0 (PC) colorsもブラシや消しゴムごとに透明度は保持されても太さは何故かそのままなのが納得いかん ボタンで消しゴムに切り替えても結局パレット開いて太くしなきゃいけないのが 【3DS】絵心教室総合 Lesson15【DS】 http //toro.2ch.net/test/read.cgi/handygame/1367675257/ 383 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/21(水) 17 45 16.09 ID E/n+aX1P0 (PC) Colors!ボタンへのショートカットの割り振りカスタムできるな 384 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/21(水) 18 39 09.57 ID qKvFO2Pm0 [1/2] (PC) colorsはボタン押してブラシ濃度や太さ描きながら変えられるのいいね 半透明ブラシで形状3種類だけだけど絵心唯一の不満点であるスポイトあるだけで満足だわ 387 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/21(水) 19 46 23.80 ID v20EeE6TO (携帯) Colorsちょっといじってみたけど、絵心教室でスキル身につけた人への応用編って感じだな ノウハウ説明がゴッソリ抜けてるから、初心者はこれだけだと多分投げる もう一個の方のツールはどんな感じだろ? 389 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/21(水) 19 59 11.35 ID 6RpyFQ900 [1/2] (PC) アニメ絵が描けるのはどっち? 390 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/21(水) 20 39 59.10 ID UZJ7wzPSO (携帯) 389 どっちもいける 両方触ってみたけど個人的にはcolorsおすすめ バケツ塗りができるのは工房だけみたい 391 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/21(水) 20 41 13.30 ID 3IckjSY80 (PC) colorsいいね。自分の使いやすボタン 設定にカスタマイズ出来るのが嬉しい ただ バケツ塗りつぶし、ぼかし 変形ツールがあればなお良かった まあ700円という価格を考えれば 贅沢な要望だし、描いてて楽しいので 個人的にはあまり気にならないけど 392 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/21(水) 21 25 52.04 ID OJaDwZ8U0 (PC) colorsのギャラリー3D再生が斬新過ぎる 396 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/22(木) 00 07 40.64 ID 2jGPRT320 (PC) colorsぼかしないんだな・・アニメ塗とかしないからバケツはいらんけどぼかしは欲しかった 買ってから気づいたけどなかなか気に入ってる 576 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/29(木) 21 09 59.86 ID FAgthdOI0 [2/3] (PC) LLほしいけどcolorsはすごくズームできるからそんなに困らないかな。絵心教室のほうが辛かった 580 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/29(木) 22 23 06.02 ID 5Zg21Jlc0 (PC) 576 Colorsは動作がサクサク軽快でいいな 3DS単体でサクっと絵を描いてネットにうpするだけなら最高の絵描きツールだわ あと塗りつぶしと範囲選択にコピペが出来ればまさに隙無しだがこれでも十分 【3DS】お絵描き総合【絵心/工房/Colors!】 http //toro.2ch.net/test/read.cgi/handygame/1377799655/ 9 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/30(金) 10 38 24.59 ID kL3ij6xM0 [1/2] (PC) 1 3乙 Colors!マジ凄いな感動した。アークさんありがとう 描画再生面白い、ギャラリーも上手い人の絵見て驚いてる アップデートで描画位置の移動(レイヤー間ではなく)があればいいなと思う 10 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/30(金) 11 20 55.23 ID RwDA+tUI0 (PC) 9 Colorsは紙に絵を描くのに近いな そういう範囲選択移動も含めてPCで絵を描くときならではの便利機能がほぼ無いからな レイヤーだって立体視のための物だし 11 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/30(金) 12 27 52.80 ID kL3ij6xM0 [2/2] (PC) 10 レイヤ間の移動や合成はあるし、アンドゥもあるから 紙に絵を描くのに近いな って意見には全部頷けないけど、描き心地がいいって意味ならそう思う 15 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/30(金) 16 33 29.82 ID P5U9EouL0 [1/2] (PC) 11 範囲選択・編集、色変更、ぼかし、レイヤー乗算合成もろもろのぬるま湯になれてるとColorsは辛いw 仕上がりはともかく絵を描く手順でいうと紙に描く事が慣れてる人は強いかも知れない 絵心とかで勉強した人ならスムーズにいけそう 16 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/30(金) 18 39 25.09 ID IOIYgB8e0 [2/2] (PC) 15 それってカラーズに限らず、3DSのお絵かき全般とPCソフトとの差として言えるんじゃね? カラーズはより中間的な位置に近いってことだろう 14 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/30(金) 16 26 01.59 ID 8lUNMiA90 (PC) 1おつ 絵は描けないけどColorsで他の人の絵見てるだけで楽しい 3Dの絵をそのまま見られるのは嬉しいね 17 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/30(金) 18 49 27.33 ID +qdsIX+l0 (PC) 3DSだけで手軽にかつ十分便利な機能付きで絵が描けてそれを手軽にアップできるのがColorsの良さだな 46 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/31(土) 21 43 17.53 ID mZOqW5K70 (PC) 下手くそだしcolorsギャラリーで表示されるような絵とは 全く毛色が違う絵だけど普通に投稿してる。素晴らしい評価を 求めるなら別かもだけど、手軽に描いて手軽に投稿、閲覧が可能って colors買って良かったと思う特徴の一つだから楽しいよ 外人すぐコメくれるから面白い 勿論プギャーwwwwwwって感じのコメもあるけど 31 colorsも1ピクセルの線は引けないよね? もしかして絵心は可能?ドット絵書きたいと思ってたから もしそうなら絵心欲しいな 「だが工房には」ってあるから他では出来るのかと思ったけど 単純に工房は多機能だけど、って意味ならすまんスルーしてくれ 48 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/31(土) 21 55 41.30 ID 7iUoIKEO0 (PC) 46 WiiUの絵心でも思ったけど、描く手軽さというより発表までの手軽さがいいよね すぐレスポンス貰えるとやる気になるし colorsのギャラリーもWiiUのミーバースも国際的で、見てくれる人結構いるから面白い 47 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/31(土) 21 43 33.10 ID VuuZplf20 [2/3] (PC) 優秀作品とかランキングを見ちゃうと自分の画力が気になっちゃうけど 新しい作品を見ると簡単な図形とか文字投稿の人もいて気にならなくなってくる 何より一見簡単な絵でも3Dの効果をうまく使ってるのもあって勉強になるし 内蔵サンプルを見ているだけでも楽しい 3d画像は3dsでしか見れないからとりあえず購入してみるのもいいと思うよ 54 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/31(土) 23 28 45.05 ID Xzn4I6So0 (PC) colorsって、写真撮ってレイヤーにすることできますか? 55 名前:枯れた名無しの水平思考[sage] 投稿日:2013/08/31(土) 23 48 40.84 ID P1nQzts80 (PC) 54 出来るよ。画像取り込みも出来る。 72 名前:枯れた名無しの水平思考[sage] 投稿日:2013/09/01(日) 05 18 22.42 ID qtl01gUK0 [1/3] (PC) やっと書き込めた 3の表作った奴です 32 プレイバック制限の検証ができないので困ってます 30分ぐらいぐしゃぐしゃ意味の無い線を 書き続けたのだが、 どこまで描いてりゃ制限に引っかかるのだろう? 46 colorsは中段のエアブラシを使うと1ピクセルのアンチエイリアス付で描ける 上段や下段のペンだと1ピクセルで描けない まぁこちらはあんま問題にならないのは機能がフリーハンド特化だからか、 工房の方はタイル設定でもろにドット編集が必要になってくるので 「そこは1ピクセルにできるべきだろ」てところで描けない とても残念仕様 54 一番奥のレイヤと別に写真レイヤのみ取り込みができて さらにレイヤの編集は不可 つまり写真や取り込んだイラストをそのまま3D化することはできない 背景として使うのなら別だけど 86 名前:枯れた名無しの水平思考[sage] 投稿日:2013/09/01(日) 18 38 43.40 ID 7qO6rr+K0 [1/2] (PC) Colors!は昔試しに触ってみた事があるのですが コピーペースト(+変形拡大縮小)や直線曲線円形ツールとか無いようだったのですが 3DS板はこれらの機能あるでしょうか? 88 名前:枯れた名無しの水平思考[sage] 投稿日:2013/09/01(日) 19 39 31.65 ID 7qidWOhF0 [1/2] (PC) 86 全部無いっす レイヤー透明度変更とかパレットも無いっす 89 名前:枯れた名無しの水平思考[sage] 投稿日:2013/09/01(日) 19 40 34.71 ID 7qidWOhF0 [2/2] (PC) あ、レイヤーのコピー、合成、移動は あります
https://w.atwiki.jp/c21coterie/pages/687.html
http //tutorial.jp/prog/prolog/prolog.pdf こちらの大学生向けだと思われるPrologの勉強用資料。 power_set関数を自力で思いつけなかった。 全部の部分集合は得られるのだが[]がネストする形でしかコードを書けず平らなリストにすることが出来なかった。 答えはきっと物凄く短いのでは? と考えて考え過ぎたのが敗因。 後継関数などの数学的処理は結構自力でいけたんだけどな。 http //www.geocities.jp/m_hiroi/puzzle/number.html#back0 小町算や大町算をPrologで解くプログラム。 リストを文字コードに変える処理がよくわからなかったので数からリストを生成したり。 大町算のコードがなにか冗長な感じがしたり色々まだまだな感じ。 まだまだってことは成長の余地が残ってることだと信じたい。 selects([],Y,Y). selects([X|Rest],Y,Result) -select(X,Y,RestY),selects(Rest,RestY,Result). check([],[]). check([X|RestN],CodeL) -select(X,CodeL,RestL),check(RestN,RestL). check_zyunnbi(N,L) -integer(N),atom_codes(N,CodeN),atom_codes(L,CodeL), check(CodeN,CodeL). %M/N komati1or2(M,N,AnsL,AnsR) - selects([A,B,C,D],[1,2,3,4,5,6,7,8,9],[E,F,G,H,I]), AnsL is A*1000+B*100+C*10+D, AnsL*N mod M= =0, AnsR is AnsL*N//M, CheckNo is E*10000+F*1000+G*100+H*10+I, check_zyunnbi(AnsR,CheckNo). komati3(AnsL,AnsR) - selects([A,B,C],[1,2,3,4,5,6,7,8,9],[E,F,G,H,I,J]), AnsL is (A*100+B*10+C), AnsR is AnsL*AnsL, CheckNo is E*100000+F*10000+G*1000+H*100+I*10+J, check_zyunnbi(AnsR,CheckNo). komati4(AnsL,AnsR) - create_perm([A,B,C,D,E],[0,1,2,3,4,5,6,7,8,9]), AnsL is A*10000+B*1000+C*100+D*10+E, AnsR is AnsL*AnsL, check_zyunnbi(AnsR,123456789). create_perm([],Y). create_perm([X|Rest],Y) -select(X,Y,Z),create_perm(Rest,Y). %答えの表示 oomati([],[+|Ans],999,0) -!,oomati([],[0,+ | Ans],999,0). oomati([],[-|Ans],999,0) -!,oomati([],[0,- | Ans],999,0). oomati([],Ans,999,0) -reverse(Ans,[A|Last]),!,write(Last),nl,fail. %最後の数を確定する oomati([],[+ | Ans],Sum,X) -Sum1 is Sum+X,oomati([],[X,+|Ans],Sum1,0). oomati([],[- | Ans],Sum,X) -Sum1 is Sum-X,oomati([],[X,-|Ans],Sum1,0). %ここでXを確定する oomati([N|Nums],[+|Ans],Sum,X) -Sum1 is Sum+X,oomati(Nums,[+,X,+ | Ans],Sum1,N). oomati([N|Nums],[+|Ans],Sum,X) -Sum1 is Sum+X,oomati(Nums,[-,X,+ | Ans],Sum1,N). oomati([N|Nums],[-|Ans],Sum,X) -Sum1 is Sum-X,oomati(Nums,[+,X,- | Ans],Sum1,N). oomati([N|Nums],[-|Ans],Sum,X) -Sum1 is Sum-X,oomati(Nums,[-,X,- | Ans],Sum1,N). %数字を繋げる oomati([N|Nums],Ans,Sum,X) -X1 is X*10+N,oomati(Nums,Ans,Sum,X1). oomati -oomati([8,7,6,5,4,3,2,1,0],[+],0,9).