Giải trí với bài toán 'Knock out chào 2022' trên VnExpress

[huuthang_bd]

Đối với những người mới tập viết code thì thuật toán vét cạn có lẽ là khá khó, thậm chí đọc hiểu code viết sẵn cũng không đơn giản, nhất là khi code sử dụng phương pháp đệ quy.
Tôi đọc báo VnExpress thì tình cờ thấy được bài toán này. Để giải bài toán có thể có nhiều cách nhưng tôi thấy đây là một bài toán phù hợp để luyện tập viết code theo thuật toán vét cạn. Tôi đăng lên đây ai cảm thấy hứng thú thì tham gia nhé.

Bà i toán Knock out chà o 2022

Bà i toán Knock out tiá»n nÄm cÅ©, chà o nÄm má»i 2022 của thầy Trần PhÆ°Æ¡ng và TS Phạm Quang DÅ©ng là thách thức không nhá» vá»i các bạn yêu Toán và cả láºp trình viên.

vnexpress.net

 

[giaiphap]

Rảnh viết thử vầy có được không anh.

Option Explicit
Public Const giatri = 2022
Public aRow As Long

Public Sub Try(k As Integer, sValue As String)
    Dim PhuongAN(), j As Integer
    PhuongAN = Array("", "+", "-", "*", "/")
    If k = 9 Then
        If Evaluate(sValue) = giatri Then
            aRow = aRow + 1
            Range("A" & aRow).Value = sValue & " = " & Evaluate(sValue)
        End If
    Else
        For j = LBound(PhuongAN) To UBound(PhuongAN)
            If k < 10 Then
                Try k + 1, sValue + PhuongAN(j) + CStr(k + 1)
            End If
        Next j
    End If
End Sub

Public Sub Main()
    Range("A:A").Clear
    aRow = 0
    Try 1, "1"
    MsgBox "Da xong", , "GPE"
End Sub

 

[huuthang_bd]

Rảnh viết thử vầy có được không anh.

Option Explicit
Public Const giatri = 2022
Public aRow As Long

Public Sub Try(k As Integer, sValue As String)
    Dim PhuongAN(), j As Integer
    PhuongAN = Array("", "+", "-", "*", "/")
    If k = 9 Then
        If Evaluate(sValue) = giatri Then
            aRow = aRow + 1
            Range("A" & aRow).Value = sValue & " = " & Evaluate(sValue)
        End If
    Else
        For j = LBound(PhuongAN) To UBound(PhuongAN)
            If k < 10 Then
                Try k + 1, sValue + PhuongAN(j) + CStr(k + 1)
            End If
        Next j
    End If
End Sub

Public Sub Main()
    Range("A:A").Clear
    aRow = 0
    Try 1, "1"
    MsgBox "Da xong", , "GPE"
End Sub

Dòng If k < 10 Then nên đưa ra ngoài vòng lặp For j và biến PhuongAN nên đưa ra ngoài thành biến toàn cục.
--
Góp thêm phương án không dùng đệ quy:

Sub KnockOut()
Const Operators As String = " +-*/", sBegin As String = "1 2 3 4 5 6 7 8 9"
Dim sText As String, i As Long
sText = sBegin
Do
    If Evaluate(Replace(sText, " ", "")) = 2022 Then Debug.Print "=" & Replace(sText, " ", "")
    For i = Len(sText) - 1 To 2 Step -2
        If Mid(sText, i, 1) <> Right(Operators, 1) Then
            Mid(sText, i) = Mid(Operators, InStr(Operators, Mid(sText, i, 1)) + 1, 1) & Mid(sBegin, i + 1)
            Exit For
        End If
    Next
Loop Until sText = "1/2/3/4/5/6/7/8/9"
End Sub

 

[tueyennhi]

Woa. Mọi người giỏi thật!