A..5 Select[] リストの要素のうち条件に合致するものを選ぶ

以下の例では、$ 3$ より大きい要素を選んでリストを作っている。
  In[1]:= Select[{0, 6, 1, 4, 5, 3, 7}, # > 3 &]
  Out[1]= {6,4,5,7}

5個の数 0 , $ 1$ , $ \dots$ , $ 4$ の順列のうち、先頭が 0 でないもののリスト
  Select[Permutations[{0,1,2,3,4}],#[[1]] != 0&]

引数の末尾 (#& を含む部分) は、 純関数というものになっている。


リストに含まれる要素すべてがある条件式を満たすかどうかのチェック。
forAll[list_, cond_] := Select[list, ! cond@# &, 1] === {};
(これと同じことをする関数は絶対必要だと考えるのだけど、 何で Mathematica に入っていないのかな? ちなみに http://stackoverflow.com/questions/8512658/how-to-do-logical-tests-for-all-list-elements-in-mathematicaというページで読んだ。)

桂田 祐史
2018-10-12