話說某天一艘海盜船被天下砸下來的一頭牛給擊中了,5個倒霉的傢伙只好逃難到乙個孤島,發現島上孤零零的,幸好有有棵椰子樹,還有乙隻猴子!
大家把椰子全部採摘下來放在一起,但是天已經很晚了,所以就睡覺先晚上某個傢伙悄悄的起床,悄悄的將椰子分成5份,結果發現多乙個椰子,順手就給了幸運的猴子,然後又悄悄的藏了乙份,然後把剩下的椰子混在一起放回原處,最後還是悄悄滴回去睡覺了
過了會兒,另乙個傢伙也悄悄的起床,悄悄的將剩下的椰子分成5份,結果發現多乙個椰子,順手就又給了幸運的猴子,然後又悄悄滴藏了乙份,把剩下的椰子混在一起放回原處,最後還是悄悄滴回去睡覺了
又過了一會
又過了一會
總之5個傢伙都起床過,都做了一樣的事情。
早上大家都起床,各自心懷鬼胎的分椰子了,這個猴子還真不是一般的幸運,因為這次把椰子分成5分後居然還是多乙個椰子,只好又給它了.問題來了,這堆椰子最少有多少個?
計算方式: a(n+1)=(a(n)-1)/5*4
用陣列來解不要太合適：
1輸出陣列如下：#!/usr/bin/perl -w
2use
strict;34
my$cnt=6;5
my@arr=(1,);6my
$find=0;7
until($find)11
if(int($arr[-1])==$arr[-1] && $arr[-1]%5==1)14
$arr[0]+=5
;15 }
最少有 15621個椰子，不得不吐槽一下這變異椰子樹，還有那頭不知道從**冒出來的牛
水手分椰子問題
五個水手來到乙個島上，採了一堆椰子後，因為疲勞都睡著了。一段時間後，第乙個水手醒來，悄悄地將椰子等分成五份，多出乙個椰子，便給了旁邊的猴子，然後自己藏起乙份，再將剩下的椰子重新合在一起，繼續睡覺。不久，第二名水手醒來，同樣將椰子了等分成五份，恰好也多出乙個，也給了猴子。然而自己也藏起乙份，再將剩下的...
perl的排序問題
perl自帶有排序函式sort，sort的用法主要有兩種 for my id sort keys hash 這樣寫可以先對 hash裡的keys值按數字排序後依次提取出來 1.直接使用 articles sort files 上述例子中，sort將依據標準的字串排序法則對陣列files裡包含的元素進...
關於perl的檔案讀取
關於 perl 的檔案讀取 perl 語言操作檔案是很常使用的操作，本文將介紹讀取檔案的一點小技巧。本文將介紹兩種讀取檔案的方法 l使用 perl 的內建函式 readline l另外一種就是使用檔案控制代碼直接操作 1.使用readline readline expr readline 從檔案控制...