Juego de programación

no te ayudare a hacer los deberes ¬¬

#!/usr/bin/perl
print join(" ",reverse split(/ |\n/,<STDIN> ))."\n";

#2 Luces.

#5 xDDD Ahora lo intento en Haskell, pero nunca me he puesto a manejar strings en él.

Edit: Ok, son listas de caracteres

Haskell (recursivo y con orden superior):

main = do
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;linea <- getLine
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;putStrLn (invertir linea)
invertir :: [Char] -> [Char]
invertir s = foldl (space) [] (reverse (palabras s []))
space :: [Char] -> [Char] -> [Char]
space [] pal = pal
space p pal = p++" "++pal
palabras :: [Char]->[Char]->[[Char]]
palabras [] ac = [ac]
palabras (l:ls) ac = if l == ' '
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;then (ac)palabras ls [])
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else palabras ls (ac++[l])

Por ejemplo, esta funcion:

palabras (l:ls) ac = if l == ' '
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;then (ac) : palabras ls [])
&nbsp;&nbsp;&nbsp;&nbsp;else palabras ls (ac++[l])

Es recursiva porque se llama a sí misma para seguir solucionando el problema.

ftp://lsd.ls.fi.upm.es/pub/dsp/0405/Var_Docs/IntHaskell98.pdf
ftp://lsd.ls.fi.upm.es/pub/dsp/0405/Var_Docs/haskell-98-tutorial.pdf

Aunque tampoco profundizan demasiado.

En cristiano

Pepe
Pepe

tas kedao? ~~

Mañana lo intento hacer en pascal.

Que ahora estoy perruno xDD

#17 puto prolog !!!!! XDDDD

en C-- para SISA-F 2005
sincronización por interrupciones

unsigned char fi_tec;
char caracter;
char caracteres[N];
int cursor;
int espacios;
int pos_esp[M];

main () {
· cursor=0;
· espacios=0;
· char=0;
· int ini=0;
· int fin=0;
· out (Rcon_tec, 1);
· interrupts_vector[1]=&keyb
· ei();
· while (fi_tec == 0);
· while (espacios>=0) {
· · ini=pos_esp[espacios-1];
· · fin=pos_esp[espacios];
· · for (i=ini; i<fin; i++) {
· · · out (Rdat_pant, caracteres);
· · · out (Rfil_pant, i/64);
· · · out (Rcol_pant, i%64);
· · · out (Rcon_pant, 0x8000);
· · }
· · out (Rdat_pant, ' ');
· · out (Rfil_pant, i/64);
· · out (Rcol_pant, i%64);
· · out (Rcon_pant, 0x8000);
· · espacios--;
· }
}

keyb () {
· caracter = tteclat[in (Rdat_tec)];
· if (caracter == '\n') {
· · fi_tec=1;
· } else if (caracter == ' ') {
· · pos_esp[espacios]=cursor;
· · espacios++;
· } else {
· · caracteres[cursor]=caracter;
· · cursor++;
· }
}

nota: SISA-F es una arquitectura inventada en la UPC para no producir desgarros de esfínter cuando nos enseñen ia32. permite escribir en una pantalla de 16 filas y 64 columnas. si no se supone el scroll de la pantalla, sólo se podrían introducir hasta 1024 caracteres. SISA IS LOVE

void inversa (char cadena[])

{
int n;
int cont; /* Sera nuestro contador de letras que tiene cada palabra /
int i=0; / Contador para el avance de la inversión /
int j; / Variable que recorre la cadena /
char aux; / Contiene la ultima letra para despues de correr la cadena colocarla al inicio donde le toque /
char aux2; / Simplemente guardará el valor de cierre de cadenas */

n=strlen(cadena);
j=n;
aux2=cadena[n];

 do

  {

cont=0;                                      /* igualamos el contador a 0 para contar las letras que movamos */
    j=n;

 while ((cadena[n-1]!=' ')&&(n>i+cont))      /* Queremos que pare cuando el espacio este en penultimo lugar */
                                                 /* o cuando la suma de huecos + letras pasadas iguale al total */
  {

    while (j>i)                              /* funcion que recorre y cambia los caracteres */

     {

      cadena[j]=cadena[j-1];
      j--;

     }

   j=n;
   aux=cadena[j];                             /* guardamos el ultimo caracter */

   if (cadena[j]!=' ')

    {

     cadena[i]=aux;                           /* Pasamos el ultimo caracter al comienzo de su hueco */
     cont++;

    }


  }
                                                  /* i valdrá el valor de letras cambiadas para empezar con la */
i=cont+i;                                     /* nueva palabra a invertir, ya que la ya invertida anteriormente */
                                                  /* debe quedarse en ese lugar, si no la frase queadria como al inicio */
 while (j>i)

  {

   cadena[j]=cadena[j-1];                    /* corremos la parte no invertida */
   j--;

  }

if (i<n)
                                                 /*  si no se trata de la ultima palabra, pondremos el espacio */
 {                                           /* que precederá a la siguiente palabra */

cadena[i]=' ';
i++; 

 }


  }

 while (i<n);              /* Se repite hasta que llegue al final toda la inversión */

cadena[n]=aux2; /* Le damos a la ultima posición de la cadena el valor \o para terminar */

printf (" -== Su Frase Invertida ==- \n\n"); /* Resultado de la frase invertida */
printf (" ");
puts (cadena);
printf ("\n --============================--");

printf ("\n");

}

JAVA (J2SE)

import java.util.;
import javax.swing.;

public class Main
{
    public static void main(String[] args)
    {

        String palabra;
        palabra=JOptionPane.showInputDialog("Introduce Palabra");

        for (int i=palabra.length()-1;i>=0;i--)
        {
            System.out.println(""+palabra.charAt(i));
        }
    }

}

os queda algun lenguaje? xD

#27 -> #14

#28 rulez xD

Vamos a poner lenguajes por rellenar xD JavaScript. Al igual que php se podria usar la funcion split que corta cadenas definiendo el caracter pero es una manera cheta de hacerlo xD

< script>
cadena=prompt("introduce tu cadena");

total=cadena.length;
wb=0;
word=new Array;
for (bucle=0;bucle<total;++bucle) {
letra=cadena.substr(bucle,1);
if (letra==" ") { ++wb; }
word[wb] = (word[wb]==null) ? letra : word[wb] + letra;
}
for (orden=word.length-1;0<=orden;--orden) {
document.write(word[orden] + " ");
}
< /script>