PHP Tekin Sayılar Algoritması

<?php

	/**
	 * Author : Savaş Dersim ÇELİK
	 * Version: 1.0.0
	 * Web: http://webinyo.com
	 * Mail: savasdersimcelik@gmail.com
	 * Description : PHP ile Tekin Sayılar Algoritması
	 */

	function tekinsayi($param)
	{
		$karakter = str_split($param);
		$kSayi = 0;
		foreach ($karakter as $key => $value) {
			if ($value != 0 && ($param % $value == 0)) {
				$kSayi++;
			}

			if ($kSayi == strlen($param)) {
				return true;
			}
		}
	}


	$sayac = 0;
	for ($i=1; $i < 100000; $i++) { 
		if (tekinsayi($i)) {
			$sayac++;
		}
	}
	echo $sayac;

?>