ジェット機をプレゼント

ジェット機をプレゼント

締め切りが 2017/01/01 12:00 AM なので，その 1 分後に投稿されるように予約

設問
イントロ

12月誕生日の方、おめでとうございます！
今月誕生日を迎える方に、特別な問題を用意しました。
上手くコードを書いて正解すれば、素敵なプレゼントがもらえるかもしれませんよ！
がんばって、問題を解くコードを書いてください。

問題

あなたは誕生日プレゼントとして、ジェット機をもらえることになりました。
もらえるジェット機は、組み立て式です。胴体、右翼、左翼の部品を組み合わせると、1つのジェット機が作れます。
各部品は、整数で表されており、胴体が0、右翼が1、左翼が2という値です。
部品を組み合わせて、最大何機のジェット機を組み立てられるか、計算するプログラムを書いてください。

例

以下、入力の例です。
数字は標準入力から、改行で区切られた文字として渡されます。

0
1
0
2
1
0
2
1

以下、出力の例です。「0, 1, 2」の組みが最大2個作れるので、「2」となります。
答えは、以下のように標準出力に出力してください。

2

===============

問題は大げさだけれども，要するに0, 1, 2 の度数分布を調べ，最小のものを解答するということ。
R だと min と table だけで終わる。

cat(min(table(scan(file("stdin", "r")))))