h8nor

' It follow the algorithm "stem_Unicode.sbl" definition presented in:
'   Porter, 1980, An algorithm for suffix stripping, Program, Vol. 14, no. 3,
'   pp 130-137, (http://snowball.tartarus.org/algorithms/russian/stemmer.html)

' TO USE THE PROGRAM CALL THE FUNCTION PORTERSTEMMERRU.
' THE WORD TO BE STEMMED SHOULD BE PASSED AS THE ARGUEMENT.
' THE STRING RETURNED BY THE FUNCTION IS THE STEMMED WORD.

Option Explicit
Option Base 0

h8nor

Option Explicit
'12345678901234567890123456789012345bopoh13@ya67890123456789012345678901234567890

Function Square_root_Diophantine(ByVal Square_number As Long) As Currency
  Dim Number As Integer: Const Rank_places As Long = 10 ^ 2
  Do While Square_number > Number
    Number = Number + 1
    Square_number = Square_number - 2 * Number
  Loop: Square_root_Diophantine = Number ' Square_root for N