Golden function

The golden function is the upper branch of the hyperbola.

ASP

1. function gold(x)
2.     gold = (x + sqr(x^2 + 4)) / 2
3. end function

PHP

1. function gold($x)
2. {
3.     return ($x + sqrt($x^2 + 4)) / 2;
4. }

Sorry if this is not exciting stuff. I've got some better stuff coming, but I want to clear out some older stuff that has been waiting a while.

• View ASP implementation on Snipplr
• View ASP implementation on Snipplr

Levenshtein distance

The Levenshtein distance between two strings is a measurement of similarity. The smaller the distance, the more similar two strings are. Our PHP programmer friends have a function to calculate this distance; we deserve one too.

ASP

1. function levenshtein(byVal first, byVal second)
2.     dim distance
3.     dim truncateLength
5.     if first = second then
6.         ' The distance is zero if the strings are identical.
7.         distance = 0


8.     else
9.         ' The distance is at least the difference of the lengths of the two strings.
10.         distance = abs(len(first) - len(second))
12.         ' Force the strings to be the same length to prevent overflows.
13.         truncateLength = ((len(first) + len(second)) - distance) / 2
14.         first = Left(first, truncateLength)
15.         second = Left(second, truncateLength)
17.         ' Compare the corresponding characters in each string.
18.         for i = 1 to truncateLength
19.             if Mid(first, i, 1) <> Mid(second, i, 1) then
20.                 distance = distance + 1
21.             end if
22.         next
23.     end if
25.     levenshtein = distance
26. end function

View ASP implementation on Snipplr

WordCount

PHP has a function called str_word_count() which allows you to count the number of words in a string, and an array or associative array of those words. Unfortunately for us, ASP doesn't support optional parameters, so we can't duplicate all of this functionality in a single function, so we'll just concentrate on the main feature of counting the number of words.

ASP

1. function WordCount(byVal someString)
2.     dim position
3.     dim spaces
5.     spaces = 1
6.     someString = trim(someString)
8.     for position = 1 to len(someString)
9.         if mid(someString, position, 1) = " " and not mid(someString, position - 1, 1) = " " then
10.             spaces = spaces + 1
11.         end if
12.     next
14.     WordCount = spaces
15. end function

View ASP implementation on Snipplr

Nth Root

Both ASP and PHP have a function that allows you to calculate the square root of a number. What if we wanted the cubic root of a number, or some deeper root? Calculating the root of a number is the same as raising that number to a fractional exponent.

ASP

1. function root(x, y)
2.     root = x ^ (1 / y)
3. end function

PHP

1. function root($x, $y)
2. {
3.     return pow($x, 1/$y);
4. }

x

the number you want the root of

y

the depth you want to go (2 = square, 3 = cubic, etc.)

• View ASP implementation on Snipplr
• View PHP implementation on Snipplr