作者colawei (D逃)
看板Prob_Solve
标题Re: [问题] 长方形与正方形
时间Sun Nov 12 20:28:42 2006
: ※ 引述《willieliao (Willie Liao)》之铭言：
: : 众版友好
: : 三年前我去纽约的花旗银行面试，有一题我到现在还想不出来，无意间看到这个版，
: : 就写出来让众高手笑笑了：
: : 假设现在有一个长方形mn，m＞n，mn均为整数，题目问最少要多少个正方形可以填满
: : 这个长方形？正方形大小不限，但是边长要整数。
用减法就行了
Dim Count As Integer
Public Sub GCS(m As Long, n As Long)
If m = n Then
Count = Count + 1
ElseIf m > n Then
Count = Count + 1
GCS m - n, n
Else
GCS n, m
End If
End Sub
Public Function cc(m As Long, n As Long) As Integer
Count = 0
GCS m, n
cc = Count
End Function
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 219.86.71.131
1F：→ colawei:最後结果就是Count 11/12 20:29