>>322
宿直１人で現実的な問題を考えてみた。

A,B,C,D,Eの５人で1日１人の宿直を以下の条件で
日曜日から土曜日までのある７日の宿直を割り当てる。
　1回も宿直に当たらない人がいてはいけない
　誰も2日続けて宿直してはならない
割り当て方は何通りあるか？

プログラムで最初と最後の１０個を列挙させてみた。

> print(head(ans,10),quote=F)
日 月 火 水 木 金 土
[1,] A B A B C D E
[2,] A B A B C E D
[3,] A B A B D C E
[4,] A B A B D E C
[5,] A B A B E C D
[6,] A B A B E D C
[7,] A B A C A D E
[8,] A B A C A E D
[9,] A B A C B D E
[10,] A B A C B E D
>
> print(tail(ans,10),quote=F)
日 月 火 水 木 金 土
[7791,] E D E C D A B
[7792,] E D E C D B A
[7793,] E D E C E A B
[7794,] E D E C E B A
[7795,] E D E D A B C
[7796,] E D E D A C B
[7797,] E D E D B A C
[7798,] E D E D B C A
[7799,] E D E D C A B
[7800,] E D E D C B A

7800通り