久々の『どう書く？』投稿。

　与えた文章の各単語の最初と最後の文字以外の文字を入れ替えた文章を出力する処理を実装して下さい。元の文章の与え方は特に問いません。
参考: 確かに”読めてしまう”コピペ

こんちには みさなん おんげき ですか？　わしたは げんき です。
この ぶんょしう は いりぎす の ケブンッリジ だがいく の けゅきんう の けっか
にんんげ は もじ を にしんき する とき その さしいょ と さいご の もさじえ あいてっれば
じばんゅん は めくちちゃゃ でも ちんゃと よめる という けゅきんう に もづいとて
わざと もじの じんばゅん を いかれえて あまりす。
どでうす？　ちんゃと よゃちめう でしょ？
ちんゃと よためら はのんう よしろく 

$utf8_str = <<<HERE
こんにちは みなさん おげんき ですか？ わたしは げんき です。
この ぶんしょう は いぎりす の ケンブリッジ だいがく の けんきゅう の けっか
にんげん は もじ を にんしき する とき その さしいょ と さいご の もじさえ あっていれば
じゅんばん は めちゃくちゃ でも ちゃんと よめる という けんきゅう に もとづいて
わざと もじの じゅんばん を いれかえて あります。
どうです？ ちゃんと よめちゃう でしょ？
ちゃんと よめたら はんのう よろしく
HERE;

echo Cambridge( $utf8_str, ‘UTF-8′ );

function Cambridge( $text, $enc )
{
$ret = ”;
$lines = explode( “\n”, $text );
foreach ( $lines as $line ) {
$words = explode( ‘ ‘, trim($line) );
foreach ( $words as $word ) {
$len = mb_strlen( $word, $enc );
if ( 3 <  $len ) {
$head = mb_substr( $word, 0, 1, $enc );
$body = mb_str_shuffle( mb_substr( $word, 1, $len-2, $enc ), $enc );
$foot = mb_substr( $word, $len-1, 1, $enc );
$word = $head.$body.$foot;
}
$ret .= $word.’ ‘;
}
$ret = rtrim( $ret ).”\n”;
}
return $ret;
}

function mb_str_shuffle( $str, $enc )
{
$buff = array();
while ( $len = mb_strlen( $str, $enc ) ) {
$buff[] = mb_substr( $str, 0, 1, $enc );
$str = mb_substr( $str, 1, $len, $enc);
}
shuffle( $buff );
return implode( ”, $buff );
}

こんにちは みさなん おんげき でかす？ わしたは げんき です。
この ぶょしんう は いぎりす の ケンッブリジ だいがく の けんゅきう の けっか
にんげん は もじ を にしんき する とき その さいしょ と さいご の もじさえ あれいてっば
じんゅばん は めちゃちくゃ でも ちゃんと よめる という けゅきんう に もとづいて
わざと もじの じばゅんん を いれえかて あますり。
どでうす？ ちゃんと よちめゃう でょし？
ちんゃと よためら はのんう よしろく

　どう書く？orgに投稿。

　お題は文字のセンタリングです。

　文字列を指定のカラム幅にセンタリング配置する関数を示してください。文字列の長さが指定した幅より長い場合には文字列の両端をできるだけ均等に切り落して指定幅に収めてください。1文字は1カラムに収まるものと仮定してかまいません。

　最初、文字列と幅を比較して、幅に収まるようなら前後にスペースをWhileで追加、幅を超えるようなら前後をWhileで切り飛ばしていくという力任せ的なコード書いたんですけど、マニュアル読んだらPHPには本件にうってつけの関数が既に用意されていました。
　str_padは前後にスペース(文字種指定可)を追加するのみでなく、文字列の切り飛ばしも行ってくれるのですが、今回のお題のように「前後から均等に」という仕様ではないのでifで処理分けてます。

　以下投稿したコード。選択した言語はPHP。シンプルでわかりやすいと思う。

<?php
function Centering($str, $width)
{
    $slen = strlen($str);
    if ($slen < $width) {
        $str = str_pad($str, $width, ‘ ‘, STR_PAD_BOTH);
    } else {
        $str = substr($str, (int)(($slen – $width)/2), $width);
    }
    return $str;
}
?>

　どう書く？orgに投稿。

お題は与えられた並べ替えを実現するあみだくじの生成です。

　0からn (n>=1) までの数字を任意の順で並べたリストが与えられた時、0からnまでが順に並んだ状態から出発して、与えられたリストの順で結果が得られるようなあみだくじを作成して出力するプログラムを書いてください。

制約条件

• あみだの横棒は縦棒をまたぐことはできません。常に隣接する縦棒同士の交換となります 。
• 同じ行に複数の横棒があっても良いですが、ひとつの縦棒の同じ点からふたつ横棒が出ることはありません。

　最初、ここやここを読んで、どうやってロジック組むかと考えたのですが、前回投稿した『あみだくじ』を組んだ際、ソートすれば良い事に気づきました。
　パラメータで渡されるリストの先頭から隣り合う要素同士を比較し、その大小によって要素を入れ替え、これをリスト末端まで試行します。要素入れ替えの発生はあみだくじの横棒になります。これを1ステップとして記録し、ソートが完了するまで繰り返します。
　このソート方法はバブルソートに似ていますが、バブルソートと異なる点は、入れ替えが発生した要素は、そのステップ内ではもう動かしてはいけないという点です。
　ソートが完了したら、記録したソート過程（ステップ）を逆順とし、これをあみだくじのパターンとします。

　以下、投稿したコード。選択した言語はPHP。パラメータとして渡すリストは文字列型にする必要があります。また、お題では数字のリストという事ですが、英数字に対応した関数となっています。

<?php
function CreateAmida($org)
{
    if (!ctype_alnum($org) ||
        count(array_unique(str_split($org))) != count(str_split($org))) {
        return NULL;
    }
    $bridge_num = strlen($org)-1;
    $p = $org;
    $step = array();
    while (1) {
        $chg = FALSE;
        $step_buf = array_fill(0, $bridge_num, ‘ ‘);
        for ($i = 0; $i < $bridge_num; $i++) {
            if ($p[$i] > $p[$i+1]) {
                $sub = array($p[$i]=>$p[$i+1], $p[$i+1]=>$p[$i]);
                $p = strtr($p, $sub);
                $step_buf[$i] = ‘-’;
                $i++;
                $chg = TRUE;
            }
        }
        if ($chg) {
            $step[] = ‘|’.implode(‘|’, $step_buf).’|';
        } else {
            break;
        }
    }
    $res = implode(‘ ‘, str_split($p)).”\n”;
    $res .= implode(“\n”, array_reverse($step)).”\n”;
    $res .= implode(‘ ‘, str_split($org)).”\n”;
    return $res;
}
?>