boing() – Shuffle the embedded letters in a word of 4 or more characters

You appear to be a bot. Output may be restricted

Description

Shuffle the embedded letters in a word of 4 or more characters

The first and last letters remain the same, all the others are randomised. e.g. bobbing could become bbboing or bibbong or bnibbog

Usage

$string = boing( $word );

Parameters

$word

( string ) required –

Returns

string $wrod

Source

File name: bbboing/bbboing.inc
Lines: 1 to 36 of 36

function boing( $word ) {
  // echo $word . "\n";
  $count = strlen( $word );
  switch ( $count )
  {
    case 0:
    case 1:
    case 2:
    case 3:
      // Can't really do anything with this length word
      // Convert all vowels to uppercase
      // Convert a to decimal 132 hex 84 - which is  �  - a umlaut 
      // Convert e to decimal 130 hex 82 - which is  �  - e acute
      // Convert i to decimal 140 hex 8C - which is  �  - i caret
      // Convert o to decimal 149 hex 95 - which is  �  - o grave
      // Convert u to decimal 129 hex 81 - which is  �  - u umlaut
      // Don't do this in the bbboing plugin, just in the bb_BB language generator.
      // $wrod = str_replace( array( "a", "e", "i", "o", "u" ), array( "A", "E", "I", "O", "U" ), $word );
      // $wrod = str_replace( array( "a", "e", "i", "o", "u" ), array( "�", "�", "�", "�", "�" ), $word );
      $wrod = $word;
      break;

    default:
      $l = substr( $word, 0, 1 );
      $r = substr( $word, $count-1 ); 
      $mid = substr( $word, 1, $count-2 ); 
    
      $dim = str_shuffle( $mid );
      if ( $dim == $mid ) {
        $dim = str_shuffle( $mid );
      }  
      $wrod = $l . $dim . $r;
      break;
  }    
  return( $wrod );
}
 

 View on GitHub View on Trac