このディレクトリの索引

# 出典 :: ★★ Java の宿題ここで答えます Part 67 ★★ #750 # 【 課題 】 # String a ="@test あいう@aaaおえてhttp://test.com/と"; # aから@から始まるアルファベットとURLを取り除く処理 # System.out.println(a); # # 出力結果 # あいうおえてと # # aから@から始まるアルファベットとURLを取り除く処理はどのように書けばいいのでしょうか。 '文字列から@から始まるアルファベットとURLを取り除く'(_文字列,_取り除いた文字列) :- atom_chars(_文字列,_文字ならび), '文字ならびから@から始まるアルファベットとURLを取り除く'(_文字ならび,_取り除かれた文字ならび), atom_chars(_取り除いた文字列,_取り除かれた文字ならび). '文字ならびから@から始まるアルファベットとURLを取り除く'([],[]) :- !. '文字ならびから@から始まるアルファベットとURLを取り除く'(L1,L2) :- '@から始まるアルファベットとURLを取り除いて行く(L1,L2). '@から始まるアルファベットとURLを取り除いて行く([' '|R1],R2) :- '文字ならびから@から始まるアルファベットとURLを取り除く'(R1,R2),!. '@から始まるアルファベットとURLを取り除いて行く(L1,L2) :- '@から始まるアルファベットとURLを'(L1,L2). '@から始まるアルファベットとURLを取り除いて行く([A|R1],[A|R2]) :- '文字ならびから@から始まるアルファベットとURLを取り除く'(R1,R2). '@から始まるアルファベットとURLを'(['@'|R1],R2) :- '@から始まるアルファベット'(R1,R2),!. '@から始まるアルファベットとURLを'(L1,R2) :- url_check(L,R1), '@から始まるアルファベット'(R1,R2),!. '@から始まるアルファベット'([],[]) :- !. '@から始まるアルファベット'([A|R1],R2) :- '英記号とアルファベットを取り除く'(A,R1,R2). '@から始まるアルファベット'(L,R2) :- '文字ならびから@から始まるアルファベットとURLを取り除く'(L,R2). '英記号とアルファベットを取り除く'(A,R1,R2) :- A @> ' ', A @=< z,!, '@から始まるアルファベット'(R1,R2). url_check([h,t,t,p,':','/','/'|R],R) :- !. url_check([h,t,t,p,s,':','/','/'|R],R) :- !. url_check([f,t,p,':','/','/'|R],R) :- !. url_check([f,i,l,e,':','/','/'|R],R) :- !.