POH6+ 「え、妻が松江？」松江Ruby会議07協賛 回文作成プログラミングコンテスト

六村リオ / 霧島京子 / 緑川つばめ / 島根ルミ / 島根ルミ149 / 島根ルミ121 / 共通解

回文を求める問題。
Ruby会議とか華麗にスルーしてPHPでの回答です。

「すべての単語は同じ長さ」より、「abcd」「cb」「a」のような左右非対称区切りを考える必要は無い。
従って複雑な組み合わせを全て試したりする必要はなく、反転すると同じになる単語を探してペアにしていけばよい。

2単語をペアにできる条件は、
・単独で左右対称
・単独で左右対称ではなく、そのままでは等しくないが、50音順にすると等しい

さらに、
・単独で左右対称で、ペアになってないものは中央に入る

いまいち微妙にすっきりしない条件ですね。

<?php
	// インプット
	$f = file('php://stdin', FILE_IGNORE_NEW_LINES|FILE_SKIP_EMPTY_LINES);
	// 1行目は不要
	unset($f[0]);
	
	// 初期化
	$list = [];
	$pair = [];
	
	foreach($f as $v){
		// ペアになれるなら$pairに持ってく、なれなければ$listに
		$v=($c=($v<=>$r=strrev($v))+1)===2?$r:$v;
		if($list[$v][2-$c]>0){
			$pair[$v]++;
			$list[$v][2-$c]--;
		}else{
			$list[$v][$c]++;
		}
	}
	
	// 前半
	ksort($pair);
	$str = '';
	foreach($pair as $k=>$v){
		$str .= str_repeat($k, $v);
	}
	
	// 中央の文字があれば
	$c = '';
	foreach($list as $k=>$v){
		if($v[1]){
			$c = $k;
			break;
		}
	}
	
	// 出力
	echo $str . $c . strrev($str);

さくっとできた。

PHP Parse error: syntax error, unexpected '>' in /workspace/Main.php

あふん。

<?php
	// インプット
	$f = file('php://stdin', FILE_IGNORE_NEW_LINES|FILE_SKIP_EMPTY_LINES);
	// 1行目は不要
	unset($f[0]);
	
	// 初期化
	$list = [];
	$pair = [];
	
	foreach($f as $v){
		
		// <=>を展開しただけ
		$r = strrev($v);
		if($v < $r){
			$c = 2;
		}elseif($v > $r){
			$v = $r;
			$c = 0;
		}else{
			$c = 1;
		}
		
		// ペアになれるなら$pairに持ってく、なれなければ$listに
		if($list[$v][2-$c]>0){
			$pair[$v]++;
			$list[$v][2-$c]--;
		}else{
			$list[$v][$c]++;
		}
	}
	
	// 前半
	ksort($pair);
	$str = '';
	foreach($pair as $k=>$v){
		$str .= str_repeat($k, $v);
	}
	
	// 中央の文字があれば
	$c = '';
	foreach($list as $k=>$v){
		if($v[1]){
			$c = $k;
			break;
		}
	}
	
	// 出力
	echo $str . $c . strrev($str);

https://paiza.jp/poh/joshibato/matsue-ruby/result/c6559412
100点、830byteでした。
バイト数が出てるってことはgolfれって意味だよなあ。

これで全問題100点になりました。
めでたし。

よく見たら$listをソートしてないので、

cdc
aba

みたいな入力が来たら間違うんだけど正解したからまあいいや。