GHCiとかで putStrLn $ unlines $ map (\x->case (mod x 3,mod x 5) of (0,0)->"FizzBuzz";(0,_)->"Fizz";(_,0)->"Buzz";(_,_)->show x) [1..30]

"求めたいコード(チェックディジット除く11桁)".each_char.with_index.inject(0){|b,(a,i)| b+a.to_i*("46231546231"[i,1].to_i)}%7 Ruby1.8.7で確認。参考:ヤマト急便のチェックデジットの計算方法 -クロネコヤマトのメール便で- その他（データベース） | …