Harshad Sayıları PHP

<?php

/**
 * Author : Savaş Dersim ÇELİK
 * Version: 1.0.0
 * Web: http://webinyo.com
 * Mail: savasdersimcelik@gmail.com
 * Description : Harshad Sayılarını Listeleyen Algoritma
 */

	error_reporting(0);
	function harshad($param)
	{
		$parcala = str_split($param);
		$topla = 0;

		if (strlen($param) < 2) {
			return false;
		}

		for ($i=0; $i < count($parcala); $i++) { 
			$topla = $topla + $parcala[$i];
		}

		if ($param % $topla == 0) {
			return true;
		}
	}

	$sayac = 0;
	for ($s=0; $s < 200000; $s++) {
		if (harshad($s)) {
			$sayac++;
		}
	}

	echo $sayac;


?>