The Odd Words Problem (adaptado)

[thoga31 580]

Hoje trago-vos algo muito simples. Encontrei este desafio na web, e aparentemente foi um senhor de seu nome Edsger W. Dijkstra quem pela primeira vez o mencionou num livro, da sua autoria, no ano de 1972.

Título: The Odd Words Problem

Objectivo: (texto original adaptado e simplificado)

Seja dada uma String, S, constituída por palavras separadas por um espaço e que termina num ponto final. O objectivo é devolver a string em que as palavras ímpares aparecem revertidas. A primeira palavra é a nº 0, a segunda é a nº 1, e assim em diante.

Exemplo I/O:

INPUT: Frase exemplo teste pois claro ok.
OUTPUT: Frase olpmexe teste siop claro ko.  <-- atenção ao ponto final!

Have fun!

[HappyHippyHippo 1,163]

/* inverter uma string */
revstring(StrWord, SolWord) :- string_to_list(StrWord, StrList),  /* converter a string numa array */
                              reverse(StrList, SolList),         /* inverter o array */
                              string_to_list(SolWord, SolList).  /* converter o array numa string */

/* predicado de entrada do problema (Frase original, Frase alterada) */
oddwords(Str, Sol) :- string_concat(AuxStr, '.', Str),            /* obter a string sem o ponto final */
                     atomic_list_concat(StrList, ' ', AuxStr),   /* separar as palavras */
                     oddwords(StrList, 0, SolList),              /* processamento da lista de palavras */
                     atomic_list_concat(SolList, ' ', AuxSol),   /* reconstruir a string final com a lista de palavras processado */
                     string_concat(AuxSol, '.', Sol).            /* adicinar o ponto final ao fim da frase processada */

/* predicado de fim do processamento recursivo */
oddwords([], _, []).                                                                   /* a hipótese e a solução são listas vazias */

/* predicado de processamento para o elemento par da lista, o elemento à cabeça das duas listas é igual (sem inversão) */
oddwords([Word|StrList], N, [Word|SolList]) :- N rem 2 =:= 0,                          /* verificação do N como par */
                                              oddwords(StrList, N+1, SolList).        /* processamento do resto da lista */

/* predicado de processamento para o elemento impar da lista */
oddwords([strWord|StrList], N, [solWord|SolList]) :- N rem 2 =\= 0,                    /* verificação do N como impar */
                                                    revstring(StrWord, SolWord),      /* o elemento à cabeça da solução é o inverso da elemento à cabeça da hipótese */
                                                    oddwords(StrList, N+1, SolList).  /* processamento do resto da lista */

é necessário comentários ?

Edited May 31, 2013 by HappyHippyHippo

[bioshock 176]

string original = "Frase exemplo teste pois claro ok.";
		string nova = string.Empty;
		var tryIt = original.Split(' ');

		for (int i = 0; i <= tryIt.Length - 1; i++)
		{
			if (tryIt[i].ToString().Contains("."))
			{
				if (i % 2 == 0) { nova += tryIt[i] + " "; }
				else
				{
					nova += Reverse(tryIt[i].Substring(0, tryIt[i].IndexOf('.')).ToString()) + ".";
				}
				break;
			}
			else
			{
				if (i % 2 == 0) { nova += tryIt[i] + " "; } else { nova += Reverse(tryIt[i].ToString()) + " "; }
			}
		}
		MessageBox.Show(nova.ToString());

public static string Reverse(string s)
{
char[] charArray = s.ToCharArray();
Array.Reverse(charArray);
return new string(charArray);
}

Edited May 31, 2013 by bioshock

[thoga31 580]

é necessário comentários ?

Se quiseres meter... com uns comentários até poderia perceber o teu código, que sou curioso

Meanwhile, uma solução rápida em Haskell, com certeza que deverá haver formas mais elegantes.

oddwords :: String -> String
oddwords xs = concats . f False $ words xs
 where
   f :: Bool -> [string] -> [string]
   f _ [] = []
   f cond (x:xs) = (if cond then reverse x else x) : f (not cond) xs

   -- o.m.q. "concat", mas dá espaço entre palavras e coloca o ponto final no fim caso pertença a uma palavra invertida
   concats :: [string] -> String
   concats [] = []
   concats (x:[]) = if head x == '.' then tail x ++ "." else x
   concats (x:xs) = x ++ " " ++ concats xs

main :: IO()
main = putStrLn $ oddwords "Frase exemplo teste pois claro ok."

http://ideone.com/BKzvFT

Edited May 31, 2013 by thoga31
Adicionado "main" para correr no Ideone

[mogers 13]

s = raw_input()
palavras = s[0:len(s)-1].split()  # remove o ponto final e separa em palavras
for i in range(1, len(palavras)):
if i % 2 == 1:
	palavras[i] = palavras[i][::-1]  # reverte as palavras em indice ímpar
print ' '.join(palavras) + '.'			  # junta o array numa string e adiciona o ponto final

Não sou grande conhecedor de python. Devem existir formas melhores de ir apenas aos indices impares.

Edited May 31, 2013 by mogers

[thoga31 580]

Não sou grande conhecedor de python. Devem existir formas melhores de ir apenas aos indices impares.

Utiliza o próprio range para isso

for i in range(1, len(palavras), 2):  # começa no índice 1 e anda de 2 em 2 -> 1,3,5,7...
       palavras[i] = palavras[i][::-1]

[pwseo 234]

Aqui vai a minha:

oddWords :: String -> String
oddWords s = unwords $ zipWith ($) funcs (words s)
 where
   funcs = cycle [ id, (fix . reverse) ]
   fix w | head w == '.' = tail w ++ "."
         | otherwise     = w

main :: IO ()
main = putStrLn $ oddWords "Frase exemplo teste pois claro ok."

ou então, assumindo que todas as frases terminam com um ponto final:

oddWords :: String -> String
oddWords s = (++ ".") . unwords $ zipWith ($) fs ws
 where
   fs = cycle [ id, reverse ]
   ws = words (init s)

main :: IO ()
main = putStrLn $ oddWords "Frase exemplo teste pois claro ok."

Edited May 31, 2013 by pwseo

[HappyHippyHippo 1,163]

Se quiseres meter... com uns comentários até poderia perceber o teu código, que sou curioso

done

[Rui Carlos 346]

reverseOdd l = unwords (
   map
       (\(x,y) -> if odd$y then reverse$x else x)
       (zip (words.init$l) [0..])
   ) ++ "."

(Só me falta uma maneira de colocar aquele condicional em point-free, que estava na ideia que existia :\)

[pwseo 234]

Rui Carlos,

Porque estás a fazer aplicação explícita das funções? (odd$y e reverse$x)

[mogers 13]

Utiliza o próprio range para isso

lol que fail da minha parte, obrigado x)

s = raw_input()
palavras = s[0:len(s)-1].split();
for i in range(1, len(palavras), 2):
palavras[i] = palavras[i][::-1]
print ' '.join(palavras) + '.'

Edited May 31, 2013 by mogers

[Rui Carlos 346]

Rui Carlos,

Porque estás a fazer aplicação explícita das funções? (odd$y e reverse$x)

Eu tinha isto

\x -> if odd.snd$x then reverse.fst$x else fst$x

onde uso o $ para poupar nos parêntesis .

E depois evoluiu para isto

\(x,y) -> if odd$x then reverse$x else x

onde nem me lembrei de tirar o $ .