Perl关于分椰子的趣味问题

　　话说某天一艘海盗船被天下砸下来的一头牛给击中了,5个倒霉的家伙只好逃难到一个孤岛,发现岛上孤零零的,幸好有有棵椰子树,还有一只猴子!

　　大家把椰子全部采摘下来放在一起,但是天已经很晚了,所以就睡觉先晚上某个家伙悄悄的起床,悄悄的将椰子分成5份,结果发现多一个椰子,顺手就给了幸运的猴子,然后又悄悄的藏了一份,然后把剩下的椰子混在一起放回原处,最后还是悄悄滴回去睡觉了

　　过了会儿,另一个家伙也悄悄的起床,悄悄的将剩下的椰子分成5份,结果发现多一个椰子,顺手就又给了幸运的猴子,然后又悄悄滴藏了一份,把剩下的椰子混在一起放回原处,最后还是悄悄滴回去睡觉了

　　又过了一会

　　又过了一会

　　总之5个家伙都起床过,都做了一样的事情。

　　早上大家都起床,各自心怀鬼胎的分椰子了,这个猴子还真不是一般的幸运,因为这次把椰子分成5分后居然还是多一个椰子,只好又给它了.问题来了,这堆椰子最少有多少个?

　　计算方式: a(n+1)=(a(n)-1)/5*4

　　用数组来解不要太合适：

 #!/usr/bin/perl -w
 use strict;

 my $cnt=;
 my @arr=(,);
 my $find=;
 until($find){
     foreach(..$cnt-){
         $arr[$_+]=($arr[$_]-)/*;
     }
     if(int($arr[-])==$arr[-] && $arr[-]%==){
         print "@arr\n";
     }
     $arr[]+=;
 }

　　输出数组如下：

　　最少有 15621个椰子，不得不吐槽一下这变异椰子树，还有那头不知道从哪里冒出来的牛