このディレクトリの索引

# 出典 :: (レス番号196) # [1] 授業単元:プログラミング1 # [2] 問題文(含コード&リンク): # 全部で20個の整数データを順に入力するものとする。 # その際,各データを入力する毎に,新たに入力されたデータが,すでに入力されたデータと異なる場合だけ, # そのデータを出力するプログラムを書け。 # なお,データは,1行に1つずつ出力せよ. '全部で20個の整数データを順に入力するものとする。 その際,各データを入力する毎に,新たに入力されたデータが,すでに入力されたデータと異なる場合だけ、 そのデータを出力する。なお,データは,1行に1つずつ出力せよ。'(_入力されたデータならび) :- '全部で20個の整数データを順に入力するものとする。 その際,各データを入力する毎に,新たに入力されたデータが,すでに入力されたデータと異なる場合だけ、 そのデータを出力する。なお,データは,1行に1つずつ出力せよ。'([1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20],[],_入力されたデータならび). '全部で20個の整数データを順に入力するものとする。 その際,各データを入力する毎に,新たに入力されたデータが,すでに入力されたデータと異なる場合だけ、 そのデータを出力する。なお,データは,1行に1つずつ出力せよ。'([],_データならび,_データならび). '全部で20個の整数データを順に入力するものとする。 その際,各データを入力する毎に,新たに入力されたデータが,すでに入力されたデータと異なる場合だけ、 そのデータを出力する。なお,データは,1行に1つずつ出力せよ。'([N|R],_すでに入力されたデータならび,_データならび) :- '整数データを入力する。新たに入力されたデータが,すでに入力されたデータと異なる場合だけ、そのデータを出力する。なお,データは,1行に1つずつ出力せよ。20個になるまで入力続けて行く。'([N|R],_すでに入力されたデータならび,_データならび). '整数データを入力する。新たに入力されたデータが,すでに入力されたデータと異なる場合だけ、そのデータを出力する。なお,データは,1行に1つずつ出力せよ。20個になるまで入力続けて行く。'([N|R],_すでに入力されたデータならび,_データならび):- '整数データを入力する。'(_データ), '新たに入力されたデータが,すでに入力されたデータと異なる場合だけ、そのデータを出力する。なお,データは,1行に1つずつ出力せよ。'(_データ,_すでに入力されたデータならび), '全部で20個の整数データを順に入力するものとする。 その際,各データを入力する毎に,新たに入力されたデータが,すでに入力されたデータと異なる場合だけ、 そのデータを出力する。なお,データは,1行に1つずつ出力せよ。'(R,[_データ|_すでに入力されたデータならび],_データならび). '整数データを入力する。'(_データ) :- 整数入力(_データ),!. '整数データを入力する。'(_データ) :- '整数データを入力する。'(_データ). 整数入力(_整数データ) :- 行入力(_行), 整数入力検査(_行,_整数データ). 整数入力検査(_行,_整数データ) :- atom_number(_行,_整数データ), integer(_整数データ). 行入力(_行) :- read_line_to_codes(current_input,_コードならび), atom_codes(_行,_コードならび). '新たに入力されたデータが,すでに入力されたデータと異なる場合だけ、そのデータを出力する。なお,データは,1行に1つずつ出力せよ。'(_データ,_すでに入力されたデータならび) :- 'すでに入力されたデータと異なる場合だけ、そのデータを出力する。なお,データは,1行に1つずつ出力せよ。'(_データ,_すでに入力されたデータならび). '新たに入力されたデータが,すでに入力されたデータと異なる場合だけ、そのデータを出力する。なお,データは,1行に1つずつ出力せよ。'(_データ,_すでに入力されたデータならび) :- member(_データ,_すでに入力されたデータならび). 'すでに入力されたデータと異なる場合だけ、そのデータを出力する。なお,データは,1行に1つずつ出力せよ。'(_データ,_すでに入力されたデータならび) :- 'すでに入力されたデータと異なる場合だけ、'(_データ,_すでに入力されたデータならび), 'データを出力する。なお,データは,1行に1つずつ出力せよ。'(_データ). 'すでに入力されたデータと異なる場合だけ、'(_データ,_すでに入力されたデータならび) :- \+(member(_データ,_すでに入力されたデータならび)). 'データを出力する。なお,データは,1行に1つずつ出力せよ。'(_データ) :- writef('%w\n',[_データ]).