[第96期]换硬币[已总结]

Bodhidharma

wcymiss 发表于 2013-9-1 08:01
阅卷是个体力活。
楼主的完形填空可能是为了阅卷方便和测速环境的一致而设置的。

原來如此…
我是看到"5、没有按要求填空的可能会被扣1分，比如删除了原有的注释、填错了地方之类的~"
就嚇到了，不敢在可更改段之外加任何東西(汗)

lee1892

参考答案：
[code=vb]Private oDic As Object
Sub ChangeCoin()
    Dim aCoins(), aRes(), nCoin, t#
    ' 可更改段
    Dim i%
    ' 只能是Dim
    ' 可更改结束
    aCoins = Array(12, 123, 1000, 50000, 600000, 30000000, 10 ^ 9)
    ReDim aRes(UBound(aCoins))
    t = Timer
    ' 可更改段
    Set oDic = CreateObject("Scripting.Dictionary")
    For Each nCoin In aCoins
        aRes(i) = Exchange(nCoin)
        i = i + 1
    Next
    oDic.RemoveAll: Set oDic = Nothing
    ' 可更改结束
    Debug.Print "ID: " & "Lee1892"
    Debug.Print "Result: " & Join(aRes, ", ")
    Debug.Print "Time: " & Format(Timer - t, "0.000s")
End Sub

Function Exchange@(ByRef nCoin)
    Dim nSum@
    If nCoin = 0 Then Exchange = 0: Exit Function
    If oDic.Exists(nCoin) Then
        Exchange = oDic(nCoin)
    Else
        nSum = Exchange(nCoin \ 2) + Exchange(nCoin \ 3) + Exchange(nCoin \ 4)
        Exchange = IIf(nCoin >= nSum, nCoin, nSum)
        oDic(nCoin) = Exchange
    End If
End Function[/code]
再追加一句，代码自证应该是如上的方式，即判断 上述代码中的 nSum 与 nCoin 的大小，而不是 nCoin\2 + nCoin\3 + nCoin\4，或言先递归后判断而不是先判断后递归。
所以严格意义上而言，没有人是确实做到代码自证的，呵呵~
=================
可以考虑一下如果将2、3、4换成别的数字，各位的代码需要如何改动呢？比如2、3、5，又或则是2、3、3，嗯嗯~

lee1892

Bodhidharma 发表于 2013-8-31 19:18
嗯…這個我也覺得有點奇怪
我也是以為不能在外面另加function(根據原題程式的結構)
所以才在原本的su ...

使用Array模拟堆栈在VBA中是效率很低的办法，VBA中有Collection对象可以很方便、高效的模拟堆栈。
另外，即便是纯粹的迭代实现也并不麻烦。

建议多翻翻论坛中的帖子，比如我的主题贴：浅谈数据结构 （作个广告哈~）

lee1892

小花鹿 发表于 2013-8-31 20:20
跟楼主讨论个问题：
楼主说“即任一正整数”，也就是说11应该也属于这个范围吧，但是，你把数组中的12改为 ...

噢，有道理！

俺看得太不仔细了
如此，则 zhyj_88 | xzk235 | JsXjd 三人均会得到错误答案！

yuanhongly

lee1892 发表于 2013-9-2 09:46
使用Array模拟堆栈在VBA中是效率很低的办法，VBA中有Collection对象可以很方便、高效的模拟堆栈。
另外， ...

大神们，再多来点题吧。学习学习，练习练习。

incognito

不满意的，按以下标准评分：




VBA不会，娱乐一下哈。

lee1892

incognito 发表于 2013-9-3 13:08
不满意的，按以下标准评分：

老兄这用的什么语言？不像C啊，PERL、PHP、JAVA、RUBY？
编译过执行的？呵呵~

fa(0)=0

大灰狼1976

提个小小建议，出题后尽量不要更改条件
我声明变量一向够用主义，答题时并没有第三项10的9次方这个条件，所以你懂的，大数据出不来，
虽然有追加分，但就像捡到1000块钱又掉了500一样，虽然没少，总归有点郁闷。
废话不说，进入正题，建议如下：
1、出题后不到万不得已，不要修改条件；
2、如果非改不可，必须站内信息通知参与答题者
个人建议，仅供参考。

lee1892

大灰狼1976 发表于 2013-9-5 22:52
提个小小建议，出题后尽量不要更改条件
我声明变量一向够用主义，答题时并没有第三项10的9次方这个条件，所 ...

你瞎说～
1，一开始就有
2，还没公布为正式题你就贴代码

最近网络造谣抓得严～
嗯，多说一句，你的代码逻辑一样是错的，只是结果对而已。看参考答案那楼，换俩数字就玩完，或者换俩带小数的～
{:soso_e128:}

大灰狼1976

错就错了直说好了，我也在学习，第三项10的9次方这个条件说实话，没印象了，但你给出的代码里没有，这个是我的错，不好意思；

没贴正题就贴代码是我的错吗？是你在其他贴子里贴了个链接，又想设权限没成功，我才答的，你又没说是不是正式题，我只是回个贴，这我也有错？

另外，为什么要自证，很多牛人在代码里都会用到自已找到的常量，那个常量有自证过吗（比如希尔排序法和DOOM3的0x5f3759df），自证的意义呢，

我先找到规律不行啊，就是我说的，有简单的方法为何不用？无法简单找到规律的我当然会想其他办法。

如果我的代码完全不符合逻辑，那管答案做什么，直接PASS掉不就好了，固定在方法的框框内，难怪中国没有程序天才，只能做码字工。

最后说一句，通过这个事件，我能体会到香川群子老师的良苦用心，变量类型什么的，最讨厌了！{:soso_e141:}