Haskell 通过惰性计算来实现广度优先编号 Breadth-first Numbering