いろんな言語で宿題スレ

いろんな言語で宿題ス ..

154:デフォルトの名無しさん
09/06/12 07:09:25
>>147
'4で割ったあまり'(0,0).
'4で割ったあまり'(1,1).
'4で割ったあまり'(2,2).
'4で割ったあまり'(3,3).
'4で割ったあまり'(N,X) :- N > 3,M is N-4,'4で割ったあまり'(M,X).

155:デフォルトの名無しさん
09/06/12 08:47:13
>>154
's(s(s(s(0))))で割ったあまり'(0,0).
's(s(s(s(0))))で割ったあまり'(s(0),s(0)).
's(s(s(s(0))))で割ったあまり'(s(s(0)),s(s(0))).
's(s(s(s(0))))で割ったあまり'(s(s(s(0))),s(s(s(0)))).
's(s(s(s(0))))で割ったあまり'(s(s(s(s(S)))),X) :- 's(s(s(s(0))))で割ったあまり'(S,X).

以下でもいいのだが。
's(s(s(s(0))))で割ったあまり'(s(s(s(s(S)))),X) :- 's(s(s(s(0))))で割ったあまり'(S,X).
's(s(s(s(0))))で割ったあまり'(X,X) :- not(X=s(s(s(s(_))))).

最後の否定がちょっとややこしい。

156:デフォルトの名無しさん
09/06/12 10:54:16
>>151
LEXを使えば超カンタン！

これで終り
↓

%{
#include <stdio.h>
%}

%option noyywrap

%%

[A-Za-z\']* {printf("%s\n",yytext);}
.|\n

%%

main()
{
yylex();
}

157:デフォルトの名無しさん
09/06/12 22:07:26
<<課題>> C/C++
[1] 授業単元：プログラミング演習
[2] 問題文(含コード&リンク)：URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)

158:デフォルトの名無しさん
09/06/12 22:10:33
>>157
% Prolog
URLﾘﾝｸ(nojiriko.asia)

159:デフォルトの名無しさん
09/06/13 09:42:06
>>135
% Prolog 一応書き上げました。使えるユーティリティを含みますが出来は悪い。
URLﾘﾝｸ(nojiriko.asia)

160:デフォルトの名無しさん
09/06/13 09:47:14
>>74
% Prolog これは忘れてました。
URLﾘﾝｸ(nojiriko.asia)

161:デフォルトの名無しさん
09/06/13 12:39:20
ｽﾚﾘﾝｸ(tech板:701番)
# 【課題】あるコンテナ・ヤードにおけるコンテナの処理状況は次のとおりであった。
# （１）コンテナの入場率平均値：5.0個／時間
# （２）コンテナの捌き率平均値：4.7個／時間
# （３）ゲート数窓口数：１
# このコンテナ・ヤードのゲートにおける滞貨状況
# を計算機シミュレーションにより調べ、考察を加え
# なさい。なお、滞貨状況の考慮時間は１００時間と
# し、昼夜を問わず同様なコンテナの動きであるとす
# る。
#【形態】コマンドプロンプト
#【提出期限】６月26日
#【　Ver　】1.6.0_07
#【補足】入場率は指数分布、捌き率は標準偏差の3倍の範囲
# を考慮する正規分布に従うものとする。
# 変わった課題ですがよろしくお願いします。

162:デフォルトの名無しさん
09/06/14 04:33:08
>>161
# >>701
# URLﾘﾝｸ(rg550.hp.infoseek.co.jp)
#
# ＞捌き率は標準偏差の3倍の範囲を考慮する正規分布に従うものとする。
# ここだけ意味分からなかったから、自分でGateModel#getDepartureInterval()を適当に書き換えて。

163:デフォルトの名無しさん
09/06/14 04:55:01
ｽﾚﾘﾝｸ(tech板:324番)
# [1] 授業単元：プログラミング
# [2] 問題文
# 問5.1に示す表を表示するプログラムを作成せよ。
# ただし氏名はポインタ配列を用いて参照するようにし、年齢、初任給は配列に入れる。
#
# 氏名は次のようにポインタ配列に初期値として入れる。
# char *namae[]={"高専卒男","大学学男","大学修治"};
#
# 年齢、初任給は二次元配列salary[3][2]を宣言してそこに読み込む。方法としては次の2通りがある。
# (1)キーボードから読み込む
# (2)配列の初期設定で行う
# Salary[][2]={{20,215000},
# {22,235000},
# {24,255000}};
#
# 表はこれです
# URLﾘﾝｸ(a.pic.to)
# 氏名 ,年齢,初任給
# 高専卒男,20,215000
# 大学学男,22,235000
# 大学修治,24,255000

164:デフォルトの名無しさん
09/06/14 05:00:21
>>163
高専卒男さんは20才の時初任給を貰いその額は215000でした。
という意味に解釈せざるを得ない変な表だ。

165:デフォルトの名無しさん
09/06/14 05:48:29
>>163
% Prolog (カンマを含む整数表示にはなっていない)

namae(['高専卒男','大学学男','大学修治']).
'Salary'([[20,215000],[22,235000],[255000]]).

'問5.1に示す表を表示する'(2) :-
　　namae(L1),
　　'Salary'(L2),
　　length(namae,Len),
　　write_formatted('%20s,%8s,%8s\n',[名前,年齢,初任給]),
　　for(1,N,Len),
　　list_nth(N,L1,_名前),
　　list_nth(N,L2,[_年齢,_初任給]),
　　write_formatted('%20s,%8d,%8d\n',[_名前,_年齢,_初任給]),
　　N=Len,
　　write('\n\nURLﾘﾝｸ(a.pic.to) のような美しい表を作るにはポストスクリプト
命令述語を使う必要がありますね\n').

166:デフォルトの名無しさん
09/06/14 07:13:12
ｽﾚﾘﾝｸ(tech板:663番)
#【　課題　】3桁の数値データが複数入ったファイルをバブルソートを用いて
#　　　　　　昇順に整列、新しいファイルに格納。データの件数は50件まで
#【　形態　】1. Javaアプリケーション(main()で開始)
#【　GUI　】制限なし
#【　期限　】6月11日　
#【　Ver　】1.6.0_13
#【　用語　】
#【　補足　】例外処理として、コマンドライン引数が間違っている場合、
#　　　　　　読み込みファイルがオープンできない、書き込みファイルも
#　　　　　　オープンできない、読み込みにファイルがない場合をお願いします。

167:デフォルトの名無しさん
09/06/14 07:24:21
ｽﾚﾘﾝｸ(tech板:276番)
#[1] 授業単元：プログラミング演習
#[2] 問題文(含コード&リンク)：URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
#　　　　　　　　　　　　　　　ほとんど英文です。訳そうとしたんですが自分でも意味がわからなくなったんでそのままにしました。すいません。

168:デフォルトの名無しさん
09/06/15 04:04:07
# <<課題>
ｽﾚﾘﾝｸ(tech板:364番)
# [1] 授業単元：プログラミング実験
# [2] 問題文(含コード&リンク)：　
URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
#【課題１】
#
# 完全列挙法（力ずく法）を用いて巡回セールスマン問題（TSP）を解くプログラムを作成せよ。
# （※1　：　適当に出発点を設定し、そこから出発するすべての閉路を求めその中で最短のものを選択、出力する）
# （※2　：　都市数は外部から入力するものとする）
# （注意　：　プログラムを動かすとき決して大きな都市数を与えてはならない）

169:デフォルトの名無しさん
09/06/15 04:05:58
# >>168 続き
#【課題２】
#
# 順次生成・比較法により、閉路を順次生成し、これまでの最短経路長をもった閉路と閉路長を比較することによってTPSを解くプログラムを作成せよ。
# （※1　：　適当に出発点を定め、そこを出発点とする閉路をひとつ生成し、それをとりあえず最短閉路とする）
# （※2　：　新たに経色を生成し、その閉路長をその時点での最短閉路長と比較し、短い方を最短閉路とする）
# （※3　：　上記のことを全ての閉路について繰り返し、最短閉路を求める）

170:デフォルトの名無しさん
09/06/15 06:12:20
>>166
% Prolog
URLﾘﾝｸ(nojiriko.asia)

171:デフォルトの名無しさん
09/06/15 08:18:42
>>167
% Prolog
URLﾘﾝｸ(nojiriko.asia)

172:デフォルトの名無しさん
09/06/15 19:00:47
ｽﾚﾘﾝｸ(tech板)
[1] 授業単元：For文
[2] 問題文：整数１～１０までの累計（1+2+3････9+10=55）
　[3.1] OS： XP
　[3.2] Turbo C++
　[3.3] C++

簡単だと思いますがアホなんでわかりません。

173:デフォルトの名無しさん
09/06/15 19:01:53
>>172
% Prolog
整数１～１０までの累計(X) :-
　　sum(0,1,10,X).

sum(_空リストの時の値,[],_空リストの時の値). /* _空リストの時の値は 0 か 0.0 */
sum(_空リストの時の値,[A|R1],X) :-
　　sum(_空リストの時の値,R,Y),
　　X is A + Y.

174:デフォルトの名無しさん
09/06/15 19:19:30
>>172
ｽﾚﾘﾝｸ(tech板:408番)
です

175:デフォルトの名無しさん
09/06/15 19:45:03
>>173　普通は、
sum([],0).
sum([A|R],X) :- sum(R,Y),X is A + Y.
で十分。
リストの中に浮動小数点数が一つでもあれば、X は浮動小数点。一つもなく、
整数リストの時は整数解となります。
>>173は実務的には演算はすべて浮動小数点であり、整数の合計はほとんど
使うことがないため、
sum([],0.0).
sum([A|R],X) :- sum(R,Y),X is A+X.
と定義してしまいます。逆にこの問題のように、整数の合計を求める場合は
N is trancate(X) のような評価を被せなくてはならず不便です。それを回避
しようとしているのが>>173の第一引数の指定ということになります。
しかし、上記の理由から型指定としては曖昧で好ましいものではありません。

176:175
09/06/15 19:59:05
N is trancate(X) ではなく N is truncate(X) ですね。

177:デフォルトの名無しさん
09/06/15 20:41:47
ｽﾚﾘﾝｸ(tech板:405番)
[1] 授業単元：プログラミング実習I
[2] 問題文(含コード&リンク)：URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
typedef struct node *Tree;
typedef struct node{
int data;
Tree left_subtree;
Tree right_subtree;
} Node;
という風に定義された構造体を木の節点として
ポインタでつなげることによって表すことができる。
この様に表された2分木の根節点へのポインタが引数
として与えられた時、その2分木の高さ(すなわち、
根節点から葉節点までの枝の本数の最大値)を
調べて返すCの関数
　　　　int height(Tree t);
を定義せよ。ただし、簡単さのため、ここでは、
height(NULL)＝-1として関数定義を行え。

HINT.
2分木の高さに関する
2分木の高さ＝max{(2分木の左部分木の高さ),
(2分木の右部分木の高さ)}+1
という漸化式に着目すれば簡単。

178:デフォルトの名無しさん
09/06/15 20:42:46
>>177
% Prolog
木の高さ([],-1).
木の高さ(_根,_高さ) :-
枝(_根,_左,_右),
木の高さ(_左,_左の高さ),
木の高さ(_右,_右の高さ),
max([_左の高さ,_右の高さ],_高さの二),
_高さ is _高さの二 + 1.

179:177
09/06/15 20:51:49
まちがえた。枝ではなくて、木でした。
% Prolog
木の高さ([],-1).
木の高さ(_根,_高さ) :-
　　木(_根,_左枝,_右枝),
　　木の高さ(_左枝,_左枝の高さ),
　　木の高さ(_右枝,_右枝の高さ),
　　max([_左枝の高さ,_右枝の高さ],_高さの二),
　　_高さ is _高さの二 + 1.

180:デフォルトの名無しさん
09/06/16 02:51:49
ｽﾚﾘﾝｸ(tech板:446番)
#[1] 授業単元：プログラミング
#[2] 問題文(含コード&リンク)：
# キーボードから入力された1行（空白で区切られた正整数並びの文字列）を項に分解して，i番目の項の整数値を配列要素d[i-1]に累算しながら格納するプログラムをつくりなさい。
# ただし，配列dの要素数は10として宣言し，10項目より多い入力の場合は11項目以降を棄却しなさい。
# 1行の入力には関数fgetsを用いなさい。
# fgetsは改行文字も取り込む点に注意して，入力の終了は「改行のみの入力」で判定しなさい。

181:デフォルトの名無しさん
09/06/16 03:01:29
ｽﾚﾘﾝｸ(tech板:413番)
#[1] インタラクティブコミュニケーション
#[2] URLﾘﾝｸ(www.ncc-1701.jp)に書いている演習
# 最後の<<演習>>が課題です。
#[3] 環境
#　[3.1] OS： Windows
#　[3.2] コンパイラ名とバージョン： Windows Visual Studio 2005
#　[3.3] 言語： C
#[4] 期限：今日
#[5] その他の制限：六曜は順番通り巡るとする。

182:デフォルトの名無しさん
09/06/16 06:19:04
>>167
% Prolog (完全日本語版)
URLﾘﾝｸ(nojiriko.asia)

183:デフォルトの名無しさん
09/06/16 08:57:46
>>143

//　０，　１，　２，　３，　４，　５，　６
//火曜，水曜，木曜，金曜，土曜，日曜，月曜
//友引，先負，仏滅，大安，赤口，先勝
#include<stdio.h>
int main(){
int i,n,c=0;
printf("n=");scanf("%d",&n);
for(i=0;i<=n;i++)
if(i%7==5 && i%6!=2)
c++;
printf("%d\n",c);
return 0;
}

184:デフォルトの名無しさん
09/06/16 09:12:06
>>181
% Prolog
URLﾘﾝｸ(nojiriko.asia)

185:デフォルトの名無しさん
09/06/16 09:20:22
ひどい宣伝だな

186:デフォルトの名無しさん
09/06/16 09:51:46
>>168 >>169
完全列挙法順次生成・比較法というのがわからない。
「最短経路の本　レナのふしぎな数学の旅」 p253以下を読み直してみます。

187:デフォルトの名無しさん
09/06/16 10:23:45
ｽﾚﾘﾝｸ(tech板:458番)
#[1] 授業単元：プログラミング
#[2] 問題文(含コード&リンク)：
# n*n行列A、Bをそれぞれキーボードから入力し、積を求めろ。
# 行列の大きさｎもキーボードから入力せよ。多次元配列を使ってください。

188:デフォルトの名無しさん
09/06/16 10:26:32
>>187
% Prolog (1/2)
行列の積(L1,L2,X) :-
　　行列の転置(L,L2,L3),
　　行列の積の一(L1,L3,X).

行列の積の一([],_,[]) :- !.
行列の積の一([A|R1],L,[S1|R3]) :-
　　行列の積の二(A,L,S1),
　　行列の積の一(R1,L,R3).

行列の積の二(_,[],[]) :- !.
行列の積の二(A,[B|R2],[C|R3]) :-
　　行列の積の三(A,B,C),
　　行列の積の二(A,R2,R3).

行列の積の三([],[],0) :- !.
行列の積の三([A|R1],[B|R2],S) :-
　　S1 is A * B,
　　行列の積の三(R1,R2,S2),
　　S is S1 + S2 .

189:デフォルトの名無しさん
09/06/16 10:28:02
>>187
% Prolog (2/2)
行列の転置([],[],[]) :- !.
行列の転置([[A|R]|R1],[A|R2],[R|R3]) :-
　　行列の転置(R1,R2,R3) .

行列の転置([[]|_],[]) :- !.
行列の転置(L,[B|R1]) :-
　　行列の転置(L,B,R2),
　　行列の転置(R2,R1),!.

190:デフォルトの名無しさん
09/06/16 15:29:48
>>180
main = getLine >>= return . scanl1 (+) . map (read :: String -> Int) . take 10 . words >>= \t -> if null t then return () else print t >> main

>>187
import Data.List (transpose)

type Matrix = [[Int]]

fold2l :: (a -> b -> c -> a) -> a -> [b] -> [c] -> a
fold2l f a [] _ = a
fold2l f a _ [] = a
fold2l f a (x:xs) (y:ys) = fold2l f (f a x y) xs ys

mult :: Matrix -> Matrix -> Matrix
mult xss yss = mult' xss $ transpose yss
where
mult' :: Matrix -> Matrix -> Matrix
mult' [] _ = []
mult' (xs:xss) yss = map (\ys -> fold2l (\s x y -> s + x*y) 0 xs ys) yss : mult' xss yss

191:デフォルトの名無しさん
09/06/16 18:29:42
ｽﾚﾘﾝｸ(tech板:481番)
# [1] 授業単元：ソフトウェア演習Ｃ
# [2] 問題文：
# 文書ないのすべての単語とその単語の頻度をメンバとして持つ構造体を定義し、
# この構造体へのポインタをノードの値として持つ二分木のノードを定義せよ
#
# 次に、任意のノードはその左の部分木にはそのノードの単語より辞書順で小さい単語の
みがあり、その右の部分木にはより大きい単語のみがあるように保持される。
# 新たに単語がすでに木にあるかどうかを探すには、ルート(根元)から出発してそのノー
ドに格納されている単語と新しい単語を比較する。
# 二つが一致したら、それで良い。
# 新しい単語が木の単語より小さいときは、探索は左の子供に対して続けられ、そうでな
ければ右の子供が調べられる。
# 求める方向に子供がないときは、新しい単語は木の中にはないと言うことであり、また
実際にはその子供のないところがそれを置く場所である。
# このプロセスは再帰的である必要があり、単語の挿入を行うadd_word()関数を定義せよ
。この関数は再帰的に呼ばれて、左または右の部分木に振り分けられる。
# 単語は木の中の単語と一致する(その場合カウント(頻度)がインクリメントされる)か、
あるいはノードを作成し、木に加えなければならないことを示すヌル・ポインタと出会う
。
# 新たにノードが生成されると、この関数ではそのノードへのポインタが返され、親ノー
ドに埋め込まれる。
# この関数を利用し、以下のテキストをコマンド実行時の引数として与えられたファイル
を入力して二分探索木を生成し、単語と頻度のリストを表示するプログラムを作成せよ。

#
# 文章：
# University was founded in April 1998 at Iwate,
# which is situated in the northeastern part of Japan. University consists of
# four faculties Software and Information Science, Nursing, Social Welfare,
# and policy Studies, and additionally other educational supporut centers.

192:デフォルトの名無しさん
09/06/16 19:49:14
>>191
% Prolog
URLﾘﾝｸ(nojiriko.asia)

193:デフォルトの名無しさん
09/06/16 21:45:48
ｽﾚﾘﾝｸ(tech板:482番)
#[1] 授業単元：プログラミング基礎
#[2] 問題文
#
# URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
# for文やif文を使用して下図のように出力せよ
#
# ★　　　★
# 　★　★
# 　　★
# 　★　★
# ★　　　★
#

194:デフォルトの名無しさん
09/06/16 21:49:07
>>193
% Prolog
URLﾘﾝｸ(nojiriko.asia)

195:デフォルトの名無しさん
09/06/16 21:50:36
>>193
% Prolog
193 :-
t193_1([0,0,0,0,1],[1,0,0,0,0]).

t193_1(L1,L2) :-
L1=[1|_],
★を表示(L1,L2),!.
t193_1(L1,L2) :-
★を表示(L1,L2),
append([A],R1,L1),
append(R1,[A],L3),
append(L4,[B],L2),
t_193_1(L3,[B|L4]).

★を表示([],[]) :- nl.
★を表示([A|R1],[B|R2]) :-
or(A,B,1),
write(★),
★を表示(R1,R2).
★を表示([A|R1],[B|R2]) :-
or(A,B,0),
write('　'),
★を表示(R1,R2).

196:デフォルトの名無しさん
09/06/16 21:54:22
すみません。再表示です。
t193 :-
　　t193_1([0,0,0,0,1],[1,0,0,0,0]).

t193_1(L1,L2) :-
　　L1=[1|_],
　　★を表示(L1,L2),!.
t193_1(L1,L2) :-
　　★を表示(L1,L2),
　　append([A],R1,L1),
　　append(R1,[A],L3),
　　append(L4,[B],L2),
　　t_193_1(L3,[B|L4]).

★を表示([],[]) :- nl.
★を表示([A|R1],[B|R2]) :-
　　or(A,B,1),
　　write(★),
　　★を表示(R1,R2).
★を表示([A|R1],[B|R2]) :-
　　or(A,B,0),
　　write('　'),
　　★を表示(R1,R2).

197:デフォルトの名無しさん
09/06/17 03:32:33
>>196
% Prolog (ちょっとだけ変更)
t193 :-
　　t193_1([' ',' ',' ',' ',★],[★,' ',' ',' ',' ']).

t193_1(L1,L2) :-
　　L1=[★|_],
　　★を表示(L1,L2),!.
t193_1(L1,L2) :-
　　★を表示(L1,L2),
　　append([A],R1,L1),
　　append(R1,[A],L3),
　　append(L4,[B],L2),
　　t_193_1(L3,[B|L4]).

★を表示([],[]) :- nl.
★を表示([' '|R1],[' '|R2]) :-
　　!,
　　write(' '),
　　★を表示(R1,R2).
★を表示([_|R1],[_|R2]) :-
　　write(★),
　　★を表示(R1,R2).

198:197
09/06/17 03:42:45
% 全角スペースがうまく表示できてない・・・

193 :-
　　t193_1(['　','　','　','　',★],[★,'　','　','　','　']).

t193_1(L1,L2) :-
　　L1=[★|_],
　　★を表示(L1,L2),!.
t193_1(L1,L2) :-
　　★を表示(L1,L2),
　　append([A],R1,L1),
　　append(R1,[A],L3),
　　append(L4,[B],L2),
　　t_193_1(L3,[B|L4]).

★を表示([],[]) :- nl.
★を表示(['　'|R1],['　'|R2]) :-
　　!,
　　write('　'),
　　★を表示(R1,R2).
★を表示([_|R1],[_|R2]) :-
　　write(★),
　　★を表示(R1,R2).

199:デフォルトの名無しさん
09/06/17 04:09:41
ｽﾚﾘﾝｸ(tech板:505番)
#[1] 授業単元： C言語
#[2] 問題文
# （１）
# 文字列を受け取る関数（charポインタを使用）
# その文字列の一番最後の文字を消去する関数を作る。
# （２）
# 文字列を受け取る関数（charポインタ使用）
# その文字列の一番最初の文字を消去する関数を作る。
# （３）'文字列を入力し、ある文字を入力。その文字列の中にその入力した文字がいく
つあるかを数える関数。
# 例文字列　asdfgvbfdcaa　文字aと入力したら　３となる
# その関数は二つのパラメータをもち、一つ目は文字列へのポインタ、二つ目は数えた文
字の数である。

200:デフォルトの名無しさん
09/06/17 04:11:28
>>199
% Prolog
% （１）
'その文字列の一番最後の文字を消去する'(_文字列,_一番最後の文字を消去された文字列
) :-
　　sub_atom(_文字列,0,Len,1,_一番最後の文字を消去された文字列).

% （２）
'文字列の一番最初の文字を消去する'(_文字列,_一番最初の文字を消去された文字列) :-

　　sub_atom(_文字列,1,_,0,_一番最初の文字を消去された文字列).

% （３）
文字列中である文字の出現回数(_文字,_文字列,_出現回数) :-
　　findall(_,sub_atom(_文字列,_,1,_,_文字),L),
　　length(L,_出現回数).

201:デフォルトの名無しさん
09/06/17 06:19:02
ｽﾚﾘﾝｸ(tech板:925番)
# １２３４５６７８９の順に数字を並べて，数字の間に＋，－を補うことで式を作り，その値が１００になる# 組み合わせをすべて求め，その式を出力するプログラムを作成しなさい．
# お願いします

202:デフォルトの名無しさん
09/06/17 07:47:20
>>201
% Prolog
t201 :-
　　findall(Q,t201(Q),L),
　　member(A,L),
　　write(A),
　　nl;
　　true.

t201(Q) :-
　　符号を含むならびの生成([1,2,3,4,5,6,7,8,9],L),
　　atom_chars(S,L),
　　atom_to_term(S,Q,_),
　　100 is Q.

符号を含むならびの生成([A],[A]).
符号を含むならびの生成([A|R1],[A|R2]) :-
　　符号を含むならびの生成(R1,R2).
符号を含むならびの生成([A|R1],[A,'+'|R2]) :-
　　符号を含むならびの生成(R1,R2).
符号を含むならびの生成([A|R1],[A,'-'|R2]) :-
　　符号を含むならびの生成(R1,R2).

203:デフォルトの名無しさん
09/06/17 08:28:48
% 間違いがありました。訂正します。
% atom_chars/2 の第二引数リストの要素はcharしか許されないので
t201 :-
　　findall(Q,t201(Q),L),
　　member(A,L),
　　write(A),
　　nl;
　　true.

t201(Q) :-
　　符号を含むならびの生成(['1','2','3','4','5','6','7','8','9'],L),
　　atom_chars(S,L),
　　atom_to_term(S,Q,_),
　　100 is Q.

符号を含むならびの生成([A],[A]).
符号を含むならびの生成([A|R1],[A|R2]) :-
　　符号を含むならびの生成(R1,R2).
符号を含むならびの生成([A|R1],[A,'+'|R2]) :-
　　符号を含むならびの生成(R1,R2).
符号を含むならびの生成([A|R1],[A,'-'|R2]) :-
　　符号を含むならびの生成(R1,R2).

204:デフォルトの名無しさん
09/06/17 08:41:07
% もう一ヶ所訂正。fail が落ちていた。
t201 :-
　　findall(Q,t201(Q),L),
　　member(A,L),
　　write_formatted('%t\n',[A]),
　　fail.
t201.

t201(Q) :-
　　符号を含むならびの生成(['1','2','3','4','5','6','7','8','9'],L),
　　atom_chars(S,L),
　　atom_to_term(S,Q,_),
　　100 is Q.

符号を含むならびの生成([A],[A]).
符号を含むならびの生成([A|R1],[A|R2]) :-
　　符号を含むならびの生成(R1,R2).
符号を含むならびの生成([A|R1],[A,'+'|R2]) :-
　　符号を含むならびの生成(R1,R2).
符号を含むならびの生成([A|R1],[A,'-'|R2]) :-
　　符号を含むならびの生成(R1,R2).

205:デフォルトの名無しさん
09/06/17 08:47:44
>>200　ですが、
これではPrologが誇るスーパー組込み述語 sub_atom/5 の
リファレンスの意味しかないので、sub_atom/5を使わない版を
後で示します。
それからアトムに対して文字列という言葉を使っていることに、
違和感を覚える方がおられると思いますが、私は"文字列"は
絶対といっていいくらい使いません。私の書き込みで文字列と
言うときは文字列アトムのことだと思ってください。

206:デフォルトの名無しさん
09/06/17 09:07:55
ｽﾚﾘﾝｸ(tech板:514番)
#[1]授業単元：プログラミング演習1
#
#[2]問題文：画面より入力した成績データをファイルに登録する。
# 画面より入力する項目は以下のとおり。
# ・生徒コード、数字6桁、数字であること。
# ・氏名、文字列20文字、1字以上、20字以内
# ・国語(点数)、数字3桁、数字であること、0<=点数<=100
# ・算数(点数)、国語と同じ
# ・社会(点数)、国語、算数と同じ
#
#
# 生徒コードに999999が入力されたら終了する。

207:デフォルトの名無しさん
09/06/17 10:55:36
>>206
% Prolog
URLﾘﾝｸ(nojiriko.asia)

208:デフォルトの名無しさん
09/06/17 16:53:31
>>206 一部書き直しました。
% Prolog
URLﾘﾝｸ(nojiriko.asia)

209:デフォルトの名無しさん
09/06/17 17:09:49
>>206
-- Haskell
URLﾘﾝｸ(ja.pastebin.ca)

210:デフォルトの名無しさん
09/06/17 18:05:15
ｽﾚﾘﾝｸ(tech板:550番)
#
# （１）曜日を表す英語と日本語との対応を表すハッシュwdayを定義しなさい
#
# p wday["sunday"] #=> "日曜日"
# p wday["monday"] #=> "月曜日"
# p wday["saturday"] #=> "土曜日"
#
# (2)ハッシュのメソッドを使って（１）のハッシュwdayのペアの数を数えなさい
#
# （３）eachメソッドと（１）のハッシュwdayを使って以下の文字列を出力させてくださ
い。
# 「sunday」は日曜日のことです。
# 「monday」は月曜日のことです。
# …
#
# (4)ハッシュには配列の%wのようなものがありません。そこで、空白とタブと改行
# （正規表現で定義するなら「／＼s+／」）で区切られた文字列をハッシュに変換するメ
ソッド
# str2hashを定義してください。
#
# p str2hash("bule 青 white 白＼nred赤");
# #=> {"bule"=>"青", "white"=>"白", "red"=>"赤"}

211:デフォルトの名無しさん
09/06/17 18:10:18
>>210
% Prolog (Prologにハッシュはないよｗしたがって・・)
% （１）
wday(sunday,日曜日).
wday(monday,月曜日).
wday(saturday,土曜日).

% (2)
wdayの節数(_節数) :- 節数(wday(_,_),_節数).

節数(_節形式,_節数) :- findall(_,_節形式,L),length(L,_節数).

% （３）
'（３）' :-
　　wday(A,B),
　　write_formatted('「%t」は%tのことです。\n',[A,B]),
　　fail;
　　true.

% (4)
str2hash(S,_述語名) :-
　　split(S,['\n'],L),
　　member(A,L),
　　split(A,['\t',' '],L1),
　　P =.. [_述語名|L1],
　　assertz(P),
　　fail;
　　true.

212:デフォルトの名無しさん
09/06/17 20:13:52
>>210
-- Haskell
URLﾘﾝｸ(ja.pastebin.ca)

213:デフォルトの名無しさん
09/06/17 21:26:01
ＶＢ６をやっているのですが、
「ストアド関数」というものが、
いまいちどういう役割を担っているものなのかわかりません。
ＭＳＤＮを見たりウェブで調べたりはしたのですが…

宜しければ、どなたかお願いします。

214:デフォルトの名無しさん
09/06/18 04:16:40
ｽﾚﾘﾝｸ(tech板:580番)
#[1] 授業単元：プログラミング演習
#[2] 問題文:　人の名前（ローマ字）を検索（部分一致）することができるプログラムを作成せよ。

215:デフォルトの名無しさん
09/06/18 04:29:48
>>214
% Prolog (最初に組込述語から)
t214(_人の名前,_検索文字列の変位,_その長さ,_残った文字列長さ,_検索文字列) :-
　　sub_atom(_人の名前,_検索文字列の変位,_その長さ,_残った文字列長さ,_検索文字列).

?- t214('Hitomaro Kakinomoto',A,B,C,'kino').
A = 11,
B = 4,
C = 4;
no
?- /* >>200 参照 */

216:デフォルトの名無しさん
09/06/18 05:37:47
>>214
% Prolog >>215 をより使いやすくするため sChars/6 を定義する。

sChars(A,B,C,D,E,F) :- sub_atom(A,B,C,D,E),C > 0,atom_chars(E,F).

% これでkから始まりoで終わる部分文字列の検索などがやり易くなる。

?- sChars('Hitomaro Kakinomoto',B,C,D,E,F),append([k|_],[o],F).
B = 11,
C = 4,
D = 4,
E = kino,
F = [k,i,n,o],
_ = [i,n];
B = 11,
C = 6,
D = 2,
E = kinomo,
F = [k,i,n,o,m,o],
_ = [i,n,o,m];
B = 11,
C = 8,
D = 0,
E = kinomoto,
F = [k,i,n,o,m,o,t,o],
_ = [i,n,o,m,o,t];
no.
?-

217:デフォルトの名無しさん
09/06/18 06:02:02
>>216
% Prolog より一般的にsCharsという述語の中に検索条件を書き込めないであろうか？
% sChars/7を定義する。_検索条件項の中でEかFを使用しなければならない。

sChars(_検索条件項,A,B,C,D,E,F) :- sChars(A,B,C,D,E,F),call(_検索条件項).

% >>216 に較べてこちらの方が優れているかは疑問だ。

218:デフォルトの名無しさん
09/06/18 06:10:49
>>217
% Prolog 例えば正規表現(に限らないが)を処理するには、

sChars(_正規表現パターン,A,B,C,D,E,F) :- sChars(A,B,C,D,E,F), ... 正規表現パターンの解決副目標(_正規表現パターン), ...
sChars(_検索条件項,A,B,C,D,E,F) :- sChars(A,B,C,D,E,F),call(_検索条件項).

% のように上に定義を加えていけばよい。

219:デフォルトの名無しさん
09/06/18 06:38:52
ｽﾚﾘﾝｸ(tech板:560番)
#[1] 授業単元： C
#[2] 問題文(含コード&リンク)：アルファベットの小文字を大文字に変換するプログラムを作成せよ
# ヒント：　'a'～'z'は連続した文字コードが割り当てられている。'A'～'Z'も連続した文字コードが割り当てられている。すなわち、'a'の文字コード
# 　　　　　にある定数を足す（または引く）と'A'になり、'b'にその定数を足す（または引く）と'B'になる。この定数さえ求められれば、簡単に計算できることがわかる。
# 　　　　　定数は、'a'や'A'を使えば計算できる。

220:デフォルトの名無しさん
09/06/18 07:01:41
>>219
% Prolog 敢えて、出題の題意通りやってみる。

英小文字から大文字へのコード変換(_英小文字,_英大文字) :-
　　char_code(a,_aの文字コード),
　　char_code('A',_Aの文字コード),
　　_変位 is _aの文字コード - _Aの文字コード,
　　char_code(_英小文字,_英小文字の文字コード),
　　_英大文字の文字コード is _英小文字の文字コード - _変位,
　　char_code(_英大文字,_英大文字の文字コード).

221:デフォルトの名無しさん
09/06/18 07:13:10
>>220
% 双方向性を持たせよう。少し無理をする。

英小文字大文字変換(_英小文字,_英大文字) :-
　　char_code(a,_aの文字コード),length(L1,_aの文字コード),
　　char_code('A',_Aの文字コード),length(L2,_Aの文字コード),
　　append(L2,R,L1),
　　char_code(_英小文字,_英小文字の文字コード),length(L3,_英小文字の文字コード),
　　append(R2,R,L3),length(R2,_英大文字の文字コード),
　　char_code(_英大文字,_英大文字の文字コード).

222:デフォルトの名無しさん
09/06/18 07:29:55
>>221
すみません。これだとやっぱりだめだ。
char_code/2を使う以上は、変数の有無だけは検査しないといけないのかな。
ちょっと考えます・・・

文字連鎖('A','B').
文字連鎖('B','C').
...
文字連鎖('Z','A').
...
文字連鎖(a,b).
文字連鎖(b,c).
・・・
文字連鎖(z,a).

を定義しないと無理かな。

223:デフォルトの名無しさん
09/06/18 07:40:21
>>222
% この定義があればなんとかなるか。

英小文字([a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z]).

英大文字(['A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R
','S','T','U','V','W','X','Y','Z']).

224:デフォルトの名無しさん
09/06/18 08:06:43
>>222
% 実は、

英小文字大文字変換(_英小文字,_英大文字) :-
　　英大文字ならび(LL),append(L1,[_英大文字|_],LL),
　　英小文字ならび(SL),append(L2,[_英小文字|_],SL),
　　length(L1,Len),
　　length(L2,Len).

英大文字ならび(L) :- findall(C,(for(65,N,90),char_code(C,N)),L).

英小文字ならび(L) :- findall(C,(for(97,N,122),char_code(C,N)),L).

% で済むようです。まあ、ペアで定義すればいいだけですが。

225:デフォルトの名無しさん
09/06/18 09:33:49
ｽﾚﾘﾝｸ(tech板:548番)
# [1] 授業単元：プログラミング論
# [2] 問題文(含コード&リンク)： C言語で三目並べをするプログラムの作成
# C言語で三目並べ（いわゆる○×）をするプログラムを作成する。
#
# # 条件
# ・コンピュータの手はランダムに決定するものとする（空いているところに打つ）
# ・盤面を表現する配列は３×３の二次元配列とし、グローバルに宣言する
# ・以下のような関数を作成すること：盤の表示、○×を打つ、３つ並んだかチェック
# ・他にも必要に応じて関数を宣言すること
#
# ヒント集
# ・マスの状態は空:0　○:1　×:2など数値で定義するとよい。
# ・char stone[3][3]={"-","○","×"};などと宣言しておくと便利？
# ・9マスしかないので、9マス打ち切ったら終了→このとき勝敗が決まっていなければ引
き分け
# ・ループの考え方は2通りできる
# 　1.先手後手がセットで1ループ、9マス目に先手が打ったらbreak
# 2.先手、後手それぞれ1ループ,nマス目は、n%2=0なら先手、n%2=1な　　ら後手
# ・三目並んだかのチェックは工夫のしどころ
# 　・手盤の人の石だけチェックする
# 　・打ったところの縦横は必ずチェック、斜めはどうする？
# ・作っていく順
# 　・石の入力＋盤面表示、コンピュータの手番、３つ並んだかチェック、勝敗表示
# 　・石の入力＋盤面表示、３つ並んだかチェック、勝敗表示、コンピュータの手番

226:デフォルトの名無しさん
09/06/18 09:39:35
ｽﾚﾘﾝｸ(tech板:554番)
# [1] 授業単元： c言語演習
# [2] 問題文(含コード&リンク)： URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)

227:デフォルトの名無しさん
09/06/18 09:41:34
ｽﾚﾘﾝｸ(tech板:551番)
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)：
# cos(x)とx軸で囲まれる領域において、xがa～bの区間の面積を台形積分で求めるプログラムを作成しなさい。
# なお、aとbは引数として与えるようにすること。

228:デフォルトの名無しさん
09/06/18 14:56:57
>>227
できますた
これでいいですか？
↓
(defun s (a b)
(let ((ya (cos a)) (yb (cos b)))
(/ (* (- b a) (+ ya yb)) 2)))

229:デフォルトの名無しさん
09/06/18 16:46:28
>>227
% Prolog
'cos(x)とx軸で囲まれる領域において、xがa～bの区間の面積を台形積分で求める'(_開始
Ｘ座標,_終了Ｘ座標,X) :-
　　分割数(_分割数),
　　_開始Ｘ座標2 is _開始Ｘ座標,
　　_終了Ｘ座標2 is _終了Ｘ座標,
　　刻み幅(_分割数,_開始Ｘ座標2,_終了Ｘ座標2,_刻み幅),
　　Ｙ座標ならびを得る(_分割数,_分割数,_開始Ｘ座標2,_終了Ｘ座標2,_Ｙ座標ならび),
　　台形の総面積(_Ｙ座標ならび,_刻み幅,X).

分割数(30).

台形の総面積([A,B],_刻み幅,X) :-
　　X is (A+B) * _刻み幅 / 2,!.
台形の総面積([A,B|R],_刻み幅,X) :-
　　Z is (A+B) * _刻み幅 / 2,
　　台形の総面積([B|R],_刻み幅,Y),
　　X is Z + Y.

Ｙ座標ならびを得る(_分割数,_分割数,_開始Ｘ座標,_終了Ｘ座標,[A]) :-
　　A is cos(_終了Ｘ座標),!.
Ｙ座標ならびを得る(N,_分割数,_開始Ｘ座標,_終了Ｘ座標,[A|R]) :-
　　A is cos(((_終了Ｘ座標-_開始Ｘ座標) * N / _分割数 + _開始Ｘ座標)),
　　Ｙ座標ならびを得る(M,_分割数,_開始Ｘ座標,_終了Ｘ座標,R).

刻み幅(_分割数,_開始Ｘ座標,_終了Ｘ座標,_刻み幅) :-
　　_刻み幅 is (_終了Ｘ座標-_開始Ｘ座標) / _分割数.

230:デフォルトの名無しさん
09/06/18 17:24:52
>>226
% Prolog
gcd(M,N,N) :-
0 is M mod N,!.
gcd(M,N,X) :-
Mod is M mod N,
gcd(N,Mod,X).

gcd(M,N,O,X) :-
gcd(M,N,Y),
gcd(Y,O,X).

231:デフォルトの名無しさん
09/06/18 17:26:54
>>226 書き直し
% Prolog
gcd(M,N,N) :-
　　0 is M mod N,!.
gcd(M,N,X) :-
　　Mod is M mod N,
　　gcd(N,Mod,X).

gcd(M,N,O,X) :-
　　gcd(M,N,Y),
　　gcd(Y,O,X).

232:デフォルトの名無しさん
09/06/18 17:46:05
>>228
ニュートン・コーツ　とか
区分求積法　でググれ

233:デフォルトの名無しさん
09/06/18 18:28:43
ｽﾚﾘﾝｸ(tech板:592番)
# [1] 授業単元：Ｃ
# [2] 問題文(含コード&リンク)：入力した文字の種類を表示するプログラムを作成せよ。ただし、表示は次に従うとする
# 入力キーＡ～Ｚ　表示メッセージ　英大文字です
# 入力キーa～ｚ　表示メッセージ　　英小文字です
# 入力キー０～９　表示メッセージ　　数字です
# 上記以外　　　　表示メッセージ　　その他のキャラクターです

234:デフォルトの名無しさん
09/06/18 18:32:23
>>233
% Prolog
入力した文字の種類を表示するプログラム(_文字,_文字の種類) :-
　　文字の範疇(_文字の範疇,_文字),
　　表示は次に従うとする(_文字の範疇,_,_表示メッセージ),
　　write(_表示メッセージ).
　
表示は次に従うとする(入力キーＡ～Ｚ,表示メッセージ,英大文字です).
表示は次に従うとする(入力キーa～ｚ,表示メッセージ,英小文字です).
表示は次に従うとする(入力キー０～９,表示メッセージ,数字です).
表示は次に従うとする(上記以外,表示メッセージ,その他のキャラクターです).

文字の範疇(入力キーＡ～Ｚ,_文字) :-
　　member(_文字,['A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z']).
文字の範疇(入力キーa～ｚ,_文字) :-
　　member(_文字,[a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z]).
文字の範疇(入力キー０～９,_文字) :-
　　member(_文字,['0','1','2','3','4','5','6','7','8','9']).
文字の範疇(上記以外,_文字) :-
　　not(member(_文字,['A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z'])),
文字の範疇(入力キーa～ｚ,_文字) :-
　　member(_文字,[a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z]).
文字の範疇(入力キー０～９,_文字) :-
　　member(_文字,['0','1','2','3','4','5','6','7','8','9']).
文字の範疇(上記以外,_文字) :-
　　not(member(_文字,['A','B','C','D','E','F','G','H',
　　　　　　　　　　　'I','J','K','L','M','N','O','P',
　　　　　　　　　　　'Q','R','S','T','U','V','W','X','Y','Z'])),
　　not(member(_文字,[a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z])),
　　not(member(_文字,['0','1','2','3','4','5','6','7','8','9'])).

235:デフォルトの名無しさん
09/06/18 18:40:39
>>233 訂正
% Prolog
入力した文字の種類を表示するプログラム(_文字) :-
　　文字の範疇(_文字の範疇,_文字),

% 2引数ではなく、1引数の述語です。削り忘れてました。
% なんて冗長な馬鹿なプログラムだと思われるでしょうが、渡された
% 仕様を可能な限りそのまま利用して、何も考えずにプログラムすると
% こんな事になるという例です。

入力した文字の種類を表示するプログラム(_文字,_文字の種類) :-
　　表示は次に従うとする(_文字の範疇,_,_表示メッセージ),
　　文字の範疇(_文字の範疇,_文字),
　　write(_表示メッセージ).

% 順序をひっくり返してもちゃんと動作します。開発順序としては
% この述語を作ってから、2行目と3行目を入れ替えました。

236:デフォルトの名無しさん
09/06/18 20:51:57
ｽﾚﾘﾝｸ(tech板:615番)
# [1] 授業単元： C初心者コース
# [2] 問題文(含コード&リンク)：試験の点数（１００点満点）を入力すると、評価値（A+,A,B,C,F)を表示する
# プログラムを作れ９０～１００Ａ+８０～８９Ａ７０～７９Ｂ６０～６９Ｃ０～５９Ｆそれ以外error
# [3] 環境
# [3.1]linux
# [3.2] gcc
# [3.3]C
# [4]６月１９日
# [5]if文(gotoは論外）while do while for等　ループ文を使ってはいけないそうです

237:デフォルトの名無しさん
09/06/18 20:55:20
>>236
% Prolog
評価値(_点数,'A+') :- _点数>=90,_点数=<100.
評価値(_点数,'A') :- _点数>=80,_点数=<89.
評価値(_点数,'B') :- _点数>=70,_点数=<79.
評価値(_点数,'C') :- _点数>=60,_点数=<69.
評価値(_点数,'F') :- _点数>=0,_点数=<59.
評価値(_,error).

238:デフォルトの名無しさん
09/06/18 23:44:11
ｽﾚﾘﾝｸ(tech板:737番)
#【　課題　】適当な文字列を入力して、暗号化するプログラムを作る。
# 暗号キーは2桁で、暗号文は奇数番目と偶数番目の文字列を、
# 暗号キーの値だけ交互にずらして作成する。
# 使用する文字種は「！」から「ｚ」までの90個とする（0x21~0x7A)。
# またを超えたら！に戻すこと。

239:デフォルトの名無しさん
09/06/18 23:46:10
>>238
% Prolog
URLﾘﾝｸ(nojiriko.asia)

240:デフォルトの名無しさん
09/06/19 07:51:19
ｽﾚﾘﾝｸ(tech板:650番)
# [1] 授業単元：Ｃ
# [2] 問題文(含コード&リンク)：キーボードから入力された１以上の整数ｎについて、
# 次の例に示すように行番号と*を表示するプログラムを作成せよ。
# なお、*の数は、１行目はn個とし、１行毎に１ずつへっていくこととする。
# また、０や負の数が入力された場合はプログラムが終了するようにせよ。

241:デフォルトの名無しさん
09/06/19 07:58:05
>>240
% Prolog
% 述語同一要素ならび/3 は事実上の組込述語ですね
t240(N) :-
　　for(N,M,1),t240_1(M),N=1.

t240_1(N) :-
　　同一要素ならび(*,L,N),
　　concat_atom([N|L],S),
　　write_formatted('%t\n',[S]).

同一要素ならび(_要素,List,Length) :-
　　length(List,Length),
　　同一要素ならび(_要素,List) .

同一要素ならび(_,[]).
同一要素ならび(A,[A|R]) :-
　　同一要素ならび(A,R).

242:デフォルトの名無しさん
09/06/19 14:42:10
ｽﾚﾘﾝｸ(tech板:674番)
# [1] 授業単元：プログラム
# [2] 4*3行列Aと 3*5行列B の各要素をキーボードから入力し、
# C = A*B を計算し、表示するプログラムを作成せよ。

243:デフォルトの名無しさん
09/06/19 14:43:51
>>242
% Prolog 少し前に一度あった。
URLﾘﾝｸ(nojiriko.asia)

244:デフォルトの名無しさん
09/06/19 14:47:02
ｽﾚﾘﾝｸ(tech板:669番)
# 内容：
# [1] 授業単元：プログラミング論
# [2] 問題文(含コード&リンク)：
# 1からnまでの整数値の和を再帰的に求めるプログラムを作成する
# [実行結果の例]
# 1からnまでの整数値の和を計算します
# nの値を入力してください:100
# 1から100までの整数値の和は5050です

245:デフォルトの名無しさん
09/06/20 04:31:12
>>149 >>150
% Prolog (下請け述語を改変)
% ｽﾚﾘﾝｸ(tech板:289番) 参照

交互にならべた文字列(Str1,Str2,Str) :-
　　atom_chars(Str1,Chars1),
　　atom_chars(Str2,Chars2),
　　交互にならべた文字列_1(Chars1,Chars2,Chars3),
　　atom_chars(Str,chars3).

交互にならべた文字列_1([],L,L) :- !.
交互にならべた文字列_1([A|R1],L2,[A|R]) :-
　　交互にならべた文字列_1(L2,R1,R)..

?- 交互にならべた文字列(abcde,opq,X).
X = aobpcqde;
no
?-

246:デフォルトの名無しさん
09/06/20 04:58:24
>>246
もっと一般化したら・・

二つの文字列を交互に併合する(Str1,Str2,Str) :-
　　atom_chars(Str1,Chars1),
　　atom_chars(Str2,Chars2),
　　順併合(Chars1,Chars2,Chars3),
　　atom_chars(Str,chars3).

順併合([],L,L) :- !.
順併合([A|R1],L2,[A|R]) :-
　　順併合(L2,R1,R).

247:デフォルトの名無しさん
09/06/20 05:37:07
>>246
順併合というソートと誤解されるかな。

二つの文字列を交互に併合する(Str1,Str2,Str) :-
　　atom_chars(Str1,Chars1),
　　atom_chars(Str2,Chars2),
　　交互併合(Chars1,Chars2,Chars3),
　　atom_chars(Str,chars3).

交互併合([],L,L) :- !.
交互併合([A|R1],L2,[A|R]) :-
　　交互併合(L2,R1,R).

248:デフォルトの名無しさん
09/06/20 08:33:46
ということは、
>>238 >>239 文字コードによる暗号化/3 も以下がよい。

文字列の暗号化(_鍵整数,_元の文字列,_暗号文字列) :-
　　integer(_鍵整数),
　　_鍵整数>=10
　　_鍵整数=<99,
　　atom_codes(_元の文字列,Codes),
　　_奇数番目の鍵 is _鍵整数 // 10,
　　_偶数番目の鍵 is _鍵整数 mod 10,
　　文字コードによる暗号化(_奇数番目の鍵,_偶数番目の鍵,Codes,_暗号Codes),
　　atom_codes(_暗号文字列,_暗号Codes).

文字コードによる暗号化(_,_,[],[]) :- !.
文字コードによる暗号化(_鍵1,_鍵2,[A|R1],[B|R2]) :-
　　一文字の暗号化(_鍵1,A,B),
　　文字コードによる暗号化(_鍵2,_鍵1,R1,R2).

一文字の暗号化(_変位,_文字コード,_暗号化された文字コード) :-
　　_文字コード+_変位 =< 122,!,
　　_暗号化された文字コード is _文字コード+_変位.
一文字の暗号文字化(_変位,_文字コード,_暗号化された文字コード) :-
　　_文字コード+_変位 >122,!,
　　_暗号化された文字コード is _文字コード+_変位-90.

249:248
09/06/20 08:47:22
ごめんなさい。>>238 を更新してしまった。
これでは以前との比較ができない。もう一度復元しますから、少し待って。

250:デフォルトの名無しさん
09/06/20 09:01:05
>>249 >>239 の話でした。元々はこうなっていたはずです。

文字コードによる暗号化(_,_,[],[]).
文字コードによる暗号化(_奇数番目の鍵,_,[A],[C]) :-
　　一文字の暗号化(_奇数番目の鍵,A,C).　　
文字コードによる暗号化(_奇数番目の鍵,_偶数番目の鍵,[A,B|R1],[C,D|R2]) :-
　　一文字の暗号化(_奇数番目の鍵,A,C),
　　一文字の暗号化(_偶数番目の鍵,B,D),
　　文字コードによる暗号化(_奇数番目の鍵,_偶数番目の鍵,R1,R2).

251:デフォルトの名無しさん
09/06/20 19:19:22
ｽﾚﾘﾝｸ(tech板:750番)# 【　課題　】
# String a ="@test あいう@aaaおえてURLﾘﾝｸ(test.com)と";
# aから@から始まるアルファベットとURLを取り除く処理
# System.out.println(a);
#
# 出力結果
# あいうおえてと
#
# aから@から始まるアルファベットとURLを取り除く処理はどのように書けばいいのでし
ょうか？

252:デフォルトの名無しさん
09/06/20 19:44:01
>>251
% Prolog
t251(_文字列,_取り除いた文字列) :-
　　atom_chars(_文字列,Chars),
　　t251_1(Chars,L),
　　atom_chars(_取り除いた文字列,L).

t251_1([],[]) :- !.
t251_1([@|R1],R2) :-
　　t251_2(R1,R2),!.
t251_1([h,t,t,p,:,/,/|R1],R2) :-
　　t251_2(R1,R2),!.
t251_1([A|R1],[A|R2]) :-
　　t251_1(R1,R2).

t251_2([],[]) :- !.
t251_2([A|R1],R2) :-
　　A @>=' ',
　　A @=< z,!,
　　t251_2(R1,R2).
t251_2(L,R2) :-
　　t251_1(L,R2).

次ページ