From 896c415abc215829ef87d7fde92ab5c8d4ae536f Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Mon, 6 Dec 2021 20:58:06 +0000 Subject: - Added guest contributions by Eric Cheung. --- .../eric-cheung/excel-vba/Challenge_142.xlsm | Bin 0 -> 25970 bytes challenge-142/eric-cheung/excel-vba/ch-1.bas | 42 +++++++++++++++++++++ challenge-142/eric-cheung/python/ch-2.py | 19 ++++++++++ 3 files changed, 61 insertions(+) create mode 100755 challenge-142/eric-cheung/excel-vba/Challenge_142.xlsm create mode 100755 challenge-142/eric-cheung/excel-vba/ch-1.bas create mode 100755 challenge-142/eric-cheung/python/ch-2.py diff --git a/challenge-142/eric-cheung/excel-vba/Challenge_142.xlsm b/challenge-142/eric-cheung/excel-vba/Challenge_142.xlsm new file mode 100755 index 0000000000..865d40e9de Binary files /dev/null and b/challenge-142/eric-cheung/excel-vba/Challenge_142.xlsm differ diff --git a/challenge-142/eric-cheung/excel-vba/ch-1.bas b/challenge-142/eric-cheung/excel-vba/ch-1.bas new file mode 100755 index 0000000000..aa90bb1542 --- /dev/null +++ b/challenge-142/eric-cheung/excel-vba/ch-1.bas @@ -0,0 +1,42 @@ +Attribute VB_Name = "ModTask_01" +Option Explicit + +Public Const strMyTitle As String = "Eric Cheung" + +Sub Task_01() + + '' Example 1 + '' Const nNumInput As Integer = 24 + '' Const nLastDigit As Integer = 2 + + '' Example 2 + Const nNumInput As Integer = 30 + Const nLastDigit As Integer = 5 + + Dim nLoop As Integer + Dim nCount As Integer + + nCount = 0 + + If nLastDigit = 1 Then + nCount = nCount + 1 + End If + + If nNumInput Mod 10 = nLastDigit Then + nCount = nCount + 1 + End If + + For nLoop = 2 To nNumInput - 2 + If _ + nNumInput Mod nLoop = 0 _ + And nNumInput Mod 10 = nLastDigit _ + Then + nCount = nCount + 1 + End If + Next nLoop + + MsgBox nCount, vbOKOnly, strMyTitle + +End Sub + + diff --git a/challenge-142/eric-cheung/python/ch-2.py b/challenge-142/eric-cheung/python/ch-2.py new file mode 100755 index 0000000000..bc6bf07135 --- /dev/null +++ b/challenge-142/eric-cheung/python/ch-2.py @@ -0,0 +1,19 @@ +## Sleep Sort (For Positive Numbers) +## Credit: https://gist.github.com/armorasha/47c7236cdfe25a928080692324d7f035 +## Credit: https://iq.opengenus.org/sleep-sort/ +## Python 3 + +import _thread +from time import sleep + +arrItem = [2, 4, 5, 2.5, 1, 7] + +def FuncSleepSort(nNum): + sleep(nNum) + print(nNum) + + +for nItem in arrItem: + argItem = (nItem,) + _thread.start_new_thread(FuncSleepSort, argItem) + -- cgit