CODE GOLF - April 2016 Answers

Re: CODE GOLF - April 2016 Answers

OK, this is my first go... Seems to work.

Public Function IsPrime(varNum As Long) As Boolean
    If varNum < 4 And varNum > 0 Then
        IsPrime = True
        Exit Function
    Else
        If varNum Mod 2 = 0 Then
            IsPrime = False
            Exit Function
        Else
            For x = 3 To (varNum + 1) / 2
                If varNum Mod x = 0 Then
                    IsPrime = False
                    Exit Function
                End If
            Next x
        End If
        IsPrime = True
    End If
End Function

Re: CODE GOLF - April 2016 Answers

Public Function IsPrime(varNum As Long) As Boolean
        For i = 2 To varNum - 1
            If (varNum Mod i = 0) Then
                IsPrime = False
                Exit Function
            End If
        Next
        IsPrime = IIf((varNum > 9 And (InStr(Right$(varNum, 1), "024568"))) Or (varNum < 2), False, True)
End Function

Re: CODE GOLF - April 2016 Answers

Realised on looking at the newsletter agin that I missed an important detail in my VBA function submission (changing one character would fix it and I am sure I was taught that 1 is a prime number!), I thought I would have a go at the formula challenge as well.

This will work for row 2, obviously fill down to pick up the relative cell references.

=IF(ISERROR(FIND(" ",A2,FIND(" ",A2)+1)),"",MID(A2,FIND(" ",A2)+1,1))

Re: CODE GOLF - April 2016 Answers

With text in F7:

=IF(LEN(F7)-LEN(SUBSTITUTE(F7," ",""))<2,"",MID(F7,FIND(" ",F7)+1,1))