filterをやろう
プログラミングの鍵は条件分岐
このワークシートはMath by Codeの一部です。
＜filterをやろう＞
前回のmapでは、リストをmapを使って編集することを学んだね。
今回はfilterを使って、リストから制限リストを作ってみよう。
map(x->f(x),リスト）などとかいて、要素ｘからf(x)のリストをマッピングできる。
filter(x->expr(x),リスト）などとかいて、要素ｘのうちexpr(x)が成り立つ要素だけリストができる。
前回は乱数の2次元配列を作って50行5列の得点表を作り、
平均点以上なら＋、 未満ならーにマッピングしたね。
今回は乱数の2次元配列を作って50行5列の得点表を作り、
5科目のすべて、平均以上か、平均未満に偏るデータだけ抜き差し出そう。
mapを使って＋ーのリストのリストは作れる。
filterを使って、＋が5個ならぶデータかーが5個並ぶデータを抜き出せばよいね。
geogebraではKeepIf( <条件>, <リスト> ),KeepIf( <条件>, <変数>, <リスト> )を使おう。
juliaの場合
#============================================
num = 50
kamoku = 5
data=[[rand(0:100) for x in 1:kamoku] for y in 1:num]
ave= sum([sum(data[y]) for y in 1:num])/(num*kamoku)
updown(x) = float(x) >= ave ? 1 : -1
res = [ map(x -> updown(x) , data[y]) for y in 1:num]
judge= [sum(res[y]) for y in 1:num]
filtered=filter(n -> n == 5 || n == -5, judge)
println(judge)
println(filtered)
#============================================
[OUT]例
[-5, 1, 1, 1, -3, 1, 1, -1, 3, -1, 1, 5, -5, -1, 5, 1, -1, 1, 3, -5, 1, -3, 1, 1, -3, 3, 3, -1, 1, -1, 3, -1, 1, 3, -1, -1, -1, 1, -1, -1, 3, -3, -3, 1, 3, -1, -3, 3, 3, 3]
[-5, 5, -5, 5, -5]
geogebra
#============================================
num = 50
kamoku = 5
data=Sequence(Sequence(RandomBetween(0,100),n,1,kamoku),m,1,num)
ave=((Sum(Sequence(Sum(data(n)),n,1,num)))/(num kamoku))
rs=Sequence(Sequence(If(Element(data,m,n)≥ave,1,-1),n,1,kamoku),m,1,num)
judge=Sequence(Sum(Element(rs,n)),n,1,num)
filtered=keepIf(n == 5 || n == -5, n, judge)
#============================================
mapを利用して、リストにフィルターをかけてみよう
質問：０点から100点までありうる５科目の得点データがあるとき、１科目でも100点か0点を取った人を抜き出したい。どうしたらよいだろうか。