Driver Code
$ s = "15645746327462384723984023940239" ; isDivisible ( $ s ) ? print ( " Yes STRNEWLINE " ) : print ( " No STRNEWLINE " ) ; $ s = "15645746327462384723984023940235" ; isDivisible ( $ s ) ? print ( " Yes STRNEWLINE " ) : print ( " No STRNEWLINE " ) ; ? >