Tag: Prime

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
} 

function number2roman ($num
{
  // http://www.go4expert.com/forums/showthread.php?t=4948
  
  // Make sure that we only use the integer portion of the value
  $n = intval$num);
  $result = ''
  
  // Declare a lookup array that we will use to traverse the number:
  $lookup = array'M' => 1000, 'CM' => 900, 'D' => 500, 'CD' => 400,
                  'C' => 100, 'XC' => 90, 'L' => 50, 'XL' => 40,
                  'X' => 10, 'IX' => 9, 'V' => 5, 'IV' => 4, 'I' => 1);
  
  foreach ($lookup as $roman => $value) 
           {
             // Determine the number of matches
             $matches = intval$n / $value);
             
             // Store that many characters
             $result .= str_repeat$roman, $matches);
             
             // Substract that from the number
             $n = $n % $value
           }
  
  // The Roman numeral should be built, return it
  return $result
} 

function markup_urls ($text
{
  // split the text into words
  $words = preg_split'/([snr]+)/', $text, -1, PREG_SPLIT_DELIM_CAPTURE);
  $text = ""
  
  // iterate through the words
  foreach$words as $word) {
    
    // chopword = the portion of the word that will be replaced
    $chopword = $word
    $chopword = preg_replace'/^[^A-Za-z0-9]*/', '', $chopword);
    
    if ($chopword <> '') {
      // linkword = the text that will replace chopword in the word
      $linkword''
      
      // does it start with http://abc. ?
      if (preg_match'/^(http://)[a-zA-Z0-9_]{2,}.*/', $chopword)) {
        
        $chopword = preg_replace'/[^A-Za-z0-9/]*$/', '', $chopword);
        $linkword = '<a href="'$chopword'" target="blank">'$chopword'</a>'
        
      // does it equal abc.def.ghi ?
      } else if (preg_match'/^[a-zA-Z]{2,}.([a-zA-Z0-9_]+.)+[a-zA-Z]{2,}(/.*)?/', $chopword)) {
        
        $chopword = preg_replace'/[^A-Za-z0-9/]*$/', '', $chopword);
        $linkword = '<a href="http://'$chopword'" target="blank">'$chopword'</a>'
   
      // does it start with [email protected] ?
      } else if (preg_match'/^[a-zA-Z0-9_.]+@([a-zA-Z0-9_]{2,}.)+[a-zA-Z]{2,}.*/', $chopword)) {
        
        $chopword = preg_replace'/[^A-Za-z0-9]*$/', '', $chopword);
        $linkword = '<a href="mailto:'$chopword'">'$chopword'</a>'
        
      }
      
      // replace chopword with linkword in word (if linkword was set)
      if ($linkword <> '') {
        $word = str_replace$chopword, $linkword, $word);
      }
    }
    
    // append the word
    $text = $text$word
  }
  
  return $text
}