1 : 林､A
2 : 林､B
3 : 林､A､B
4 : 林､C
5 : 林､A､C
6 : 林､B､C
7 : 林､A､B､C
8 : 林､D
9 : 林､A､D
10 : 林､B､D
11 : 林､A､B､D
12 : 林､C､D
13 : 林､A､C､D
14 : 林､B､C､D
15 : 林､A､B､C､D

こんな､やっつけﾌﾟﾛｸﾞﾗﾑでの出力です :-)

n = 1
["","D"].each { |d|
["","C"].each { |c|
["","B"].each { |b|
["","A"].each { |a|
 s = "林､#{a}､#{b}､#{c}､#{d}"
 s.gsub! /､+/, '､'
 s.gsub! /､$/, ''
 unless s == '林' then
 puts "#{n} : #{s}" 
 n += 1
 end
}
}
}
}

見え方を変えただけですが､こっちの方が組合せ加減が分かりやすいかな｡

 1 : 林 A ･ ･ ･
 2 : 林 ･ B ･ ･
 3 : 林 A B ･ ･
 4 : 林 ･ ･ C ･
 5 : 林 A ･ C ･
 6 : 林 ･ B C ･
 7 : 林 A B C ･
 8 : 林 ･ ･ ･ D
 9 : 林 A ･ ･ D
10 : 林 ･ B ･ D
11 : 林 A B ･ D
12 : 林 ･ ･ C D
13 : 林 A ･ C D
14 : 林 ･ B C D
15 : 林 A B C D