introduction

Vous jouez à un jeu d'association, dans lequel des pièces sont insérées en haut et tombent vers le bas (sur la pièce du haut) en raison de la gravité.

Donc ça

O <- inserting this coin

OO O
OOOOO

deviendra ceci

O
OO O
OOOOO

Imaginez maintenant que quelqu'un tourne le plateau dans le sens des aiguilles d'une montre. Les événements suivants se produiront:

1. La planche est tournée

OOO
OO
O
OO
O

2. Les pièces tombent à cause de la gravité

O
O
OO
OO
OOO

Ta tâche

Votre tâche consiste à simuler la rotation de la carte en écrivant un programme ou une fonction. Par souci de simplicité, nous n'avons affaire qu'à un seul type de pièce (ce n'est pas un jeu d'association trop excitant, n'est-ce pas…). Vous pouvez supposer que la gravité n'est appliquée qu'une fois la rotation terminée. La planche est tournée dans le sens horaire.

Contribution

L'entrée va être une chaîne qui contient 3 types de caractères:

• O (o majuscule) OU 0 (zéro) - une pièce (vous décidez laquelle prend en charge votre solution)
• (espace) - un champ vide
• \ n (nouvelle ligne) - fin de ligne

L'entrée représente l'état de la carte. Vous pouvez supposer que l'entrée est bien formée et contient un état valide de la carte (aucune pièce ne flotte). L'entrée peut être un paramètre de fonction, ou peut être lue à partir de l'entrée standard ou d'un fichier.

Production

La sortie est le nouvel état de la carte après rotation. La sortie contient les 3 mêmes types de caractères que l'entrée. La sortie peut être renvoyée par votre fonction ou peut être écrite dans la sortie standard ou dans un fichier.

Échantillon

Input1:

O
OO O
OOOOO

Sortie1:

O
O
OO
OO
OOO

Input2:

O O
O O

Sortie2:

OO
OO

Vous pouvez utiliser n'importe quelle langue et la bibliothèque standard de la langue choisie. Le programme le plus court en octets gagne.

GolfScript, 14 12 caractères

' '-n%zip$n*

L'entrée doit être donnée sur STDIN, le caractère pour les pièces peut être n'importe quel caractère non blanc. Essayez ici . Merci à Peter d'avoir signalé une réduction de deux caractères.

Javascript (E6) 103

Essayez d'abord les opérations matricielles. Chaque ligne de la chaîne d'entrée doit être complétée.
Assez verbeux.

R=t=>(x=t.split('\n').reverse().map(x=>[...x].sort()),x.map((c,i)=>x.map(r=>r[i]).join('')).join('\n'))

Pseudo code

1. chaîne -> tableau de lignes
2. tableau inversé haut / bas
3. chaque ligne -> tableau char
4. trier chaque ligne (les pièces «tombent» à droite)
5. transposer
6. chaque tableau de caractères dans une ligne -> une chaîne
7. rejoindre le tableau -> chaîne unique

Ruby 2.0, 59 caractères

puts$<.map(&:chars).reverse.transpose.sort[1,50].map &:join

Entrée via stdin, suppose que les lignes ont toutes la même longueur. C'est probablement beaucoup plus long que nécessaire. Mais au moins c'est lisible ...

J - 49 31 24 octets

Je pense qu'il pourrait y avoir des rotations inutiles, mais sinon cela fonctionne bien. C'est une fonction qui prend l'entrée comme spécifié, les pièces étantO . Aucun espace de fin n'est requis dans l'entrée.

Nouvelle version, inspirée de la réponse Javascript d' edc65 :

f=:[:|."1@|:[:/:~"1,;._2

Explication:

f=:[:|."1@|:[:/:~"1,;._2
                   ,;._2 Split the string at every fret, which is the last character in the string (newline).
              /:~"1      Sort every row separately.
     |."1@|:             Rotate the array clockwise.

Ancienne version:

f=:[:|:((#~=&' '),=&'O'#])"1@|:@(|."1@|:)@(,;._2)

Explication:

f=:[:|:((#~=&' '),=&'O'#])"1@|:@(|."1@|:)@(,;._2)
                                          (,;._2) Split the string at every fret, which is the last character in the string (newline).
                                (|."1@|:)@        Rotate the array clockwise.
                             |:@                  Reverse the axes (columns become rows and vice-versa).
       ((#~=&' '),=&'O'#])"1                      Function that applies the "gravity"
                          "1                       Apply to every row separately:
                  =&'O'#]                           Get the O's in the row.
       (#~=&' ')                                    Get the spaces in the row.
                ,                                   Join them, spaces come first.
  [:|:                                            Reverse axes again.

Exemples (notez que les chaînes multilignes commencent par 0 : 0et se terminent par un crochet):

   f 0 : 0
O
OO O
OOOOO
) NB. output starts now
O  
O  
OO 
OO 
OOO
   f 0 : 0
O O
O O
) NB. Output starts now.

OO
OO

Haskell - 86

J'apprends juste, donc je suis sûr que cela peut être amélioré.

import Data.List
c=putStr.unlines.filter(/="").sort.map(filter(/=' ')).transpose.lines

Exemple d'entrée:

let a = "O    \nOO O \nOOOOO"
let b = " O O \n O O "
c a
c b

Exemple de sortie:

O
O
OO
OO
OOO

OO
OO

Python 2 (69) (79)

for c in sorted(zip(*raw_input().split("\\n"))):print''.join(c[::-1])

Prend l'entrée remplie d'espaces afin que toutes les lignes aient une longueur égale. Le splitcrée un arrat de chaque ligne. Le ziptranspose efficacement le tableau. Ensuite, sortedtrie les tuples dans l'ordre lexicographique, ce qui fait tomber toutes les pièces au fond. Enfin, nous imprimons chaque ligne, la transformant en chaîne, bien que nous devions d'abord l'inverser. Faire print'O'*c.count('O')est équivalent et utilise le même nombre de caractères.

Exemple d'exécution:

>> O    \nOO O \nOOOOO
O
O
OO
OO
OOO

C, 167 119 octets

Cette version plus courte est (malheureusement?) Beaucoup plus claire que l'original également.

m;j;b[99];r;main(){while(j=getchar()+1)j-11?m+=j-33&&++b[r]>m:++r;for(j=r;m+1;putchar(j--?m<b[j]?79:32:(j=r,m--,10)));}

Raquette: 130

(let l((a'()))(let((b(sort(string->list(read-line))char<?)))(if
(null? b)(apply map(λ x(map display x)(newline))a)(l(cons b a)))))

Il vous faut remplir avec des espaces pour que les lignes soient égales en longueur.

C # - 209 174 octets

Bon, je dois essayer ce golf Code à un moment donné, je pense. Création d'une fonction (r) qui fait pivoter la carte et l'imprime. Je suppose que je triche un peu quand j'imprime mon tableau de caractères, mais si vous ne pouvez pas comprendre pourquoi vous ne devriez pas être fou :)

Merci à ProgramFOX pour les conseils :)

void r(string s){int x=s.IndexOf('\n'),j,i=-1,k,z=x+1;var y=new char[x*x+x];for(;++i<x;y[z*(i+1)-1]='\n')for(k=j=x;j>0;)if(s[i*z+--j]=='0')y[k--*z-i-2]='0';Console.Write(y);}

Tricher

new char[x*x+x]remplit le tableau avec '\0'et non' '