eXorithm – Execute Algorithm: View / Run Algorithm draw_playing_card

function draw_playing_card ($suit$value$face_down$size$x$y
{
  //based in part on http://www.brainjar.com/css/cards/
  
  switch ($suit) {
    case 'diamonds'
      $color = 'red'
      $symbol = '♦'
      break
    case 'hearts'
      $color = 'red'
      $symbol = '♥'
      break
    case 'clubs'
      $color = 'black'
      $symbol = '♣'
      break
    case 'spades'
      $color = 'black'
      $symbol = '♠'
      break
    default
      return ''
  }
  
  if ($face_down) {
    $bgcolor = "brown"
  } else {
    $bgcolor = "#fffff2"
  }
  
  // card container
  $card = "<div style=""
    "border:1px solid black;"
    "background-color:$bgcolor;"
    "position:absolute;"
    "font-size:{$size}px;"
    "font-family:Arial,sans-serif;"
    "width:3.7em;"
    "height:5em;"
    "border-radius:.2em;"
    "-moz-border-radius:.2em;"
    "-webkit-border-radius:.2em;"
    "color:$color;"
    "left:{$x}px;"
    "top:{$y}px;"
    "">"
  
  if (!$face_down) {
    
    // number & symbol in top corner
    $card .= "<div style=""
      "position:absolute;"
      "font-size:50%;"
      "font-weight:bold;"
      "text-align:center;"
      "left:0.25em;"
      "top:0.25em;"
      "">$value<br />$symbol</div>"
    
    // non-face card
    if (($value>=2) && ($value<=10)) {
      
      /****** column 1 symbols *****/
      if (($value>=4) && ($value<=10)) {
        $card .= "<div style="".  //row 1
          "position:absolute;"
          "left:0.6em;"
          "top:0.5em;"
          "">$symbol</div>"
        $card .= "<div style="".  //row 5
          "position:absolute;"
          "left:0.6em;"
          "top:3.5em;"
          "">$symbol</div>"
      }
      if (($value==9) || ($value==10)) {
        $card .= "<div style="".  //row 2
          "position:absolute;"
          "left:0.6em;"
          "top:1.5em;"
          "">$symbol</div>"
        $card .= "<div style="".  //row 4
          "position:absolute;"
          "left:0.6em;"
          "top:2.5em;"
          "">$symbol</div>"
      }
      if (($value==6) || ($value==7) || ($value==8)) {
        $card .= "<div style="".  //row 3
          "position:absolute;"
          "left:0.6em;"
          "top:2em;"
          "">$symbol</div>"
      }
      
      /****** column 2 symbols *****/
      if (($value==2) || ($value==3)) {
        $card .= "<div style="".  //row 1
          "position:absolute;"
          "left:1.55em;"
          "top:0.5em;"
          "">$symbol</div>"
        $card .= "<div style="".  //row 5
          "position:absolute;"
          "left:1.55em;"
          "top:3.5em;"
          "">$symbol</div>"
      }
      if (($value==7) || ($value==8) || ($value==10)) {
        $card .= "<div style="".  //row 2
          "position:absolute;"
          "left:1.55em;"
          "top:1em;"
          "">$symbol</div>"
        if ($value!=7) {
          $card .= "<div style="".  //row 4
            "position:absolute;"
            "left:1.55em;"
            "top:3em;"
            "">$symbol</div>"
        }
      }
      if (($value==3) || ($value==5) || ($value==9)) {
        $card .= "<div style="".  //row 3
          "position:absolute;"
          "left:1.55em;"
          "top:2em;"
          "">$symbol</div>"
      }
      
      /****** column 3 symbols *****/
      if (($value>=4) && ($value<=10)) {
        $card .= "<div style="".  //row 1
          "position:absolute;"
          "left:2.5em;"
          "top:0.5em;"
          "">$symbol</div>"
        $card .= "<div style="".  //row 5
          "position:absolute;"
          "left:2.5em;"
          "top:3.5em;"
          "">$symbol</div>"
      }
      if (($value==9) || ($value==10)) {
        $card .= "<div style="".  //row 2
          "position:absolute;"
          "left:2.5em;"
          "top:1.5em;"
          "">$symbol</div>"
        $card .= "<div style="".  //row 4
          "position:absolute;"
          "left:2.5em;"
          "top:2.5em;"
          "">$symbol</div>"
      }
      if (($value==6) || ($value==7) || ($value==8)) {
        $card .= "<div style="".  //row 3
          "position:absolute;"
          "left:2.5em;"
          "top:2em;"
          "">$symbol</div>"
      }
      
    }
    
    // ace
    else if ($value=='A') {
      $card .= "<div style=""
        "font-size:300%;"
        "position:absolute;"
        "text-align:center;"
        "width:100%;"
        "top:0.25em;"
        "">$symbol</div>"
    }
    
    // jack, king, queen
    else if (($value=='J')|| ($value=='Q')|| ($value=='K')) {
      if ($value=='J'$sym'&#9822;'
      else if ($value=='Q'$sym'&#9819;'
      else if ($value=='K'$sym'&#9818;'
      
      $card .= "<div style=""
        "border:1px solid black;"
        "position:absolute;"
        "left:0.6em;"
        "top:0.55em;"
        "width:2.45em;"
        "height:3.85em;"
        "">"
      $card .= "<div style=""
        "font-size:300%;"
        "position:absolute;"
        "text-align:center;"
        "width:100%;"
        "">$sym</div>"
      $card .= "<div style=""
        "position:absolute;"
        "left:0.05em;"
        "top:0em;"
        "">$symbol</div>"
      $card .= "<div style=""
        "position:absolute;"
        "right:0.05em;"
        "bottom:0em;"
        "">$symbol</div>"
      $card .= "</div>"
    }
  }
  
  $card .= "</div>"
  
  return $card

eXorithm – Execute Algorithm: View / Run Algorithm isbn_validator

function isbn_validator ($isbn
{
  $isbnpreg_replace'/[^dX]/'''$isbn);  //remove all non-numeric or X chars
  $casestrlen$isbn);
  switch ($case
  {
    case 10:
      if(!isbn_validate$isbn, 2))
        return 0;  //Failure - not valid ISBN
      else
        $isbnconv_isbn$isbn);
      break
    case 13:
      $isbnpreg_replace'/[^d]/'''$isbn);  //remove all non-numeric chars
      if(!isbn_validate$isbn, 1))
        return 0;  //Failure - not valid ISBN
      break
    default
      return 0;
  }
  $isbnisbn_hyphenate$isbn);
  return $isbn

Make Change

<?php

/**
 * make_change
 *
 * Calculate the number of different ways there are to make change for a given amount.
 *
 * @version 0.1
 * @author Contributors at eXorithm
 * @link /algorithm/view/make_change Listing at eXorithm
 * @link /algorithm/history/make_change History at eXorithm
 * @license /home/show/license
 *
 * @param number $amount How many cents you want to make change for.
 * @param array $coins The coin denominations you have.
 * @return mixed
 */
function make_change($amount=100,$coins=array(0=>'1',1=>'5',2=>'10',3=>'25'))
{
	$coin_count = count($coins);
	
	$table = array();
	
	for ($i = -1; $i <= $amount; $i++) {
		for($j = -1; $j <= $coin_count; $j++) {
			// Rules
			// 1: table[0,0] or table[0,x] = 1
			// 2: talbe[i <= -1, x] = 0
			// 3: table[x, j <= -1] = 0
			
			$total = 0;
				 
			// first sub-problem
			// count(n, m-1)
			$n = $i;
			$m = $j-1;
			if ($n == 0) // rule 1
				$total += 1;
			else if ($n <= -1) // rule 2
				$total += 0;
			else if (($m <= 0) && ($n >= 1))
				$total += 0;
			else
				$total += $table[$n][$m];
			
			// second sub-problem
			// count(n-S[m], m)
			if (($j-1) <= -1)
				$total += 0;
			else {
				$n = $i - $coins[$j - 1];
				$m = $j;
				if ($n == 0) // rule 1
					$total += 1;
				else if ($n <= -1) // rule 2
					$total += 0;
				else if (($m <= 0) && ($n >= 1)) // rule 3
					$total += 0;
				else
					$total += $table[$n][$m];
			}
			
			$table[$i][$j] = $total;
		}
	}
	return $table[$i-1][$j-1];
}

?>

eXorithm – Execute Algorithm: View / Run Algorithm unique_image

function unique_image ($string
{
  $size=200;
  $steps=5;
  $step$size$steps
  
  $image = image_create_alpha$size$size);
  
  $n = 0;
  $prev = 0;
  $len = strlen$string);
  $sum = 0;
  for ($i=0;$i$len$i++) $sum += ord$string$i]);
  
  for ($i=0;$i$steps$i++) {
    for ($j=0;$j$steps$j++) {
      $letter = $string$n++ % $len];
      
      $u = ($n % (ord$letter)+$sum)) + ($prev % (ord$letter)+$len)) + (($sum-1) % ord$letter));
      $color = imagecolorallocate$imagepow$u$prev$u$prev+5,2)%256, pow$u$prev$u$prev+3,2)%256, pow$u$prev$u$prev+1,2)%256);
      if (($u%2)==0)
        imagefilledpolygon$imagearray$i$step$j$step$i$step$step$j$step$i$step$j$step$step), 3, $color);
      $prev = $u
      
      $u = ($n % (ord$letter)+$len)) + ($prev % (ord$letter)+$sum)) + (($sum-1) % ord$letter));
      if (($u%2)==0)
        imagefilledpolygon$imagearray$i$step$j$step$step$i$step$step$j$step$step$i$step$step$j$step), 3, $color);
      $prev = $u
    
    }
  }
  
  return $image

eXorithm – Execute Algorithm: View / Run Algorithm morse

function morse ($data$direction
{
  $codes = array
    'a' => '.-'
    'b' => '-...'
    'c' => '-.-.'
    'd' => '-...'
    'e' => '.'
    'f' => '..-.'
    'g' => '--.'
    'h' => '....'
    'i' => '..'
    'j' => '.---'
    'k' => '-.-'
    'l' => '.-..'
    'm' => '--'
    'n' => '-.'
    'o' => '---'
    'p' => '.--.'
    'q' => '--.-'
    'r' => '.-.'
    's' => '...'
    't' => '-'
    'u' => '..-'
    'v' => '...-'
    'w' => '.--'
    'x' => '-..-'
    'y' => '-.--'
    'z' => '--..'
    '0' => '-----'
    '1' => '.----'
    '2' => '..---'
    '3' => '...--'
    '4' => '....-'
    '5' => '.....'
    '6' => '-....'
    '7' => '--...'
    '8' => '---..'
    '9' => '----.'
    ',' => '--..--'
    '.' => '.-.-.-'
    '?' => '..--..'
    );
  
  $output = ''
  
  if ($direction=='text') {
    $codes = array_flip$codes);
    $elements = explode' '$data);
    foreach ($elements as $element) {
      if (array_key_exists$element$codes))
        $output .= $codes$element];
    }
  } else {
    $data = strtolower$data);
    $elements = str_split$data);
    foreach ($elements as $element) {
      if (array_key_exists$element$codes))
        $output .= $codes$element].' '
    }
    $output = trim$output);
  }
  
  return $output

eXorithm – Execute Algorithm: View / Run Algorithm get_average_color

function get_average_color ($image
{
  $y = imagesy$image);
  $x = imagesx$image);
  
  $r_total = 0;
  $g_total = 0;
  $b_total = 0;
  
  $tc = imageistruecolor$image);
  
  for ($ii=0;$ii$y$ii++) {
    for ($jj=0;$jj$x$jj++) {
      $rgb = imagecolorat$image$jj$ii);
      if ($tc) {
        $r_total += ($rgb >> 16) & 0xFF;
        $g_total += ($rgb >> 8) & 0xFF;
        $b_total += $rgb & 0xFF;
        $count++;
      } else {
        $rgb = imagecolorsforindex$image$rgb);
        if ($rgb'alpha']==0) {
          $r_total += $rgb'red'];
          $g_total += $rgb'green'];
          $b_total += $rgb'blue'];
          $count++;
        }
      }
    }
  }
  
  $r = dechexround$r_total/($count)));
  $g = dechexround$g_total/($count)));
  $b = dechexround$b_total/($count)));
  
  if (strlen$r)==1) $r = '0'$r
  if (strlen$g)==1) $g = '0'$g
  if (strlen$b)==1) $b = '0'$b
  
  return $r$g$b