28

Escriba el programa más corto que tomará una cadena de números (de al menos 20 de longitud) como entrada, y muestre la salida usando los números de estilo de reloj digital estándar. Por ejemplo, para la entrada 81, una solución con salida ascii daría:

 _
|_|  |
|_|  |

La salida gráfica también es aceptable, si ayuda.

code-golf ascii-art mootinator
fuente

¿Algún límite superior para "tomar una cadena de números como entrada"?

Aman ZeeK Verma

Hmm, digamos que una fila en una pantalla de 80 columnas (20) es lo suficientemente buena .

mootinator

1

Relacionado: stackoverflow.com/questions/1407422/code-golf-seven-segments

gnibbler

1

También relacionado: stackoverflow.com/q/3324301/code-golf-digital-clock

dmckee

6

APL (Dyalog) (45)

{3 3⍴' _|'[1+⍵⊤⍨9⍴3]}¨⎕UCS'ા8धगɯે૙ࣃଏ૽'[1+⍎¨⍞]

La cadena, ા8धगɯે૙ࣃଏ૽son los caracteres unicode 2750 56 2343 2327 623 2759 2777 2243 2831 2813(sin embargo, debería poder copiarlos y pegarlos). Codifican los números. El programa lee una línea desde el teclado.

Explicación:

1+⍎¨⍞: lea una línea desde el teclado, analice cada carácter como un dígito, luego agregue 1 a cada número (las matrices APL están basadas en 1 por defecto).
⎕UCS'ા8धगɯે૙ࣃଏ૽'[... ]: Seleccione los caracteres que pertenecen a los dígitos de los números que ingresó y busque los valores Unicode.
{... }¨: para cada uno de estos valores, haga:
1+⍵⊤⍨9⍴3: obtenga los primeros 9 dígitos de base 3 a partir del valor expresado en base-3 y agregue 1 (porque las matrices están basadas en 1).
' _|'[... ]: seleccione un espacio, una línea horizontal o una línea vertical dependiendo de estos dígitos
3 3⍴: formatear como un cuadro de 3 por 3.

marinus
fuente

36

Funciton

Realmente no es un lenguaje adecuado para jugar al golf ... pero de todos modos, traté de mantener el tamaño del código lo más pequeño que pude, un desafío bastante diferente al de los idiomas "habituales". Esto es 1555 caracteres o 3110 bytes (si está codificado como UTF-16; UTF-8 es más grande).

Aquí hay una captura de pantalla del programa en ejecución. Realmente funciona :)

Dado que esto se ve feo en StackExchange debido al espacio adicional entre líneas, considere ejecutar el siguiente código en la consola JavaScript de su navegador para solucionarlo: $('pre').css('line-height',1)

     ╓─╖ ╔╗┌─╖   ┌─╖
     ║ʜ║ ║╟┤↔╟┐ ┌┤‼╟┐
     ╙┬╜ ╚╝╘═╝│ │╘╤╝│
╔═╗  ┌┴────┐  │┌┴╖ ┌┴╖
║0║ ┌┴─┐  ┌┴─┐└┤ʜ╟─┤·╟┐
╚╤╝┌┴╖┌┴╖┌┴╖┌┴╖╘╤╝ ╘╤╝│
┌┘┌┤·╟┤ɦ╟┤·╟┤?╟ │  ┌┴╖│
│ │╘╤╝╘╤╝╘╤╝╘╤╝ └──┤‼╟┘
│┌┴╖│ ┌┴╖┌┘╔═╧╗    ╘═╝
└┤?╟┘┌┤?╟┘┌╢10║    ┌─────────┐
 ╘╤╝ │╘╤╝┌┘╚══╝ ┌─┬┘╔══╗┌──╖┌┴╖ ╓─╖
  ┘  └───┘╔════╗│┌┴┐║21╟┤>>╟┤·╟┐║ɦ║
╔════════╗║1005╟┘└┬┘╚══╝╘═╤╝╘╤╝│╙┬╜        ┌─┐
║14073768║╚════╝ ┌┴╖ ┌─╖ ┌┴╖┌┴╖└─┴─────────┘┌┴╖
║7584800 ╟───────┤?╟─┤‼╟─┤ʜ╟┤·╟─────────────┤·╟┐╔═══════╗╔══╗
╚════════╝       ╘╤╝ ╘╤╝ ╘╤╝╘╤╝    ╔══╗┌─╖┌┐╘╤╝│║2097151║║21╟┐
 ╔═══════════════╗│   ┘   │  │     ║48╟┤−╟┤├─┤┌┘╚══╤════╝╚══╝│
 ║140737555464224╟┘  ┌────┘┌┬┘     ╚══╝╘╤╝└┘┌┘│╓─╖ │┌┐┌─╖┌─╖┌┴─╖
 ╚═══════════════╝   │ ┌───┘└─────────┐┌┴─╖ │┌┘║↔║ ├┤├┤‼╟┤↔╟┤>>║
┌────────────┐┌────┐┌┴╖│┌────────────┐├┤<<║ ││ ╙┬╜┌┘└┘╘╤╝╘═╝╘╤═╝
│   ╔══╗╔═══╗├┘╓─╖ └┤·╟┘│   ╔══╗╔═══╗├┘╘╤═╝ │└─┐└─┤╔═╗┌┴╖ ┌──┘
│   ║95║║892║│┌╢‡╟┐ ╘╤╝ │   ║95║║877║│ ┌┘╔══╧═╗│  │║0╟┤?╟┬┘
│   ╚═╤╝╚═╤═╝││╙─╜│  │  │   ╚═╤╝╚═╤═╝│╔╧╗║2097║│  │╚═╝╘╤╝│
│╔══╗┌┴╖┌┐│  ││┌─╖│ ┌┴╖ │╔══╗┌┴╖┌┐│  │║1║║151 ║│  └──────┘
│║32╟┤?╟┤├┤  │└┤‼╟┘┌┤‡║ │║32╟┤?╟┤├┤  │╚═╝╚════╝│
│╚══╝╘╤╝└┘└──┴┐╘╤╝ │╘╤╝ │╚╤═╝╘╤╝└┘└──┴┐      ┌─┘
│    ┌┴╖     ┌┴╖┌─╖│ │ ┌┴╖│  ┌┴╖     ┌┴╖ ┌─╖┌┴╖
│    │‼╟─────┤·╟┤‼╟┘ │┌┤·╟┘  │‼╟─────┤·╟─┤‼╟┤‡║
└┐┌┐ ╘╤╝     ╘╤╝╘╤╝  ││╘╤╝┌┐ ╘╤╝     ╘╤╝ ╘╤╝╘╤╝
 ├┤├┐┌┴╖╔══╗  └──┐┌┐ │└┐├─┤├┐┌┴╖╔══╗  ├──┐└  │
 │└┘└┤?╟╢32║╔═══╗├┤│┌┴╖││ └┘└┤?╟╢32║╔═╧═╗│┌┐┌┴╖╔══╗
╔╧══╗╘╤╝╚══╝║881╟┘│├┤?╟┘│    ╘╤╝╚══╝║325║└┤├┤?╟╢32║
║927║╔╧══╗  ╚═══╝ └┘╘╤╝╔╧═══╗╔╧══╗  ╚═══╝ └┘╘╤╝╚══╝
╚═══╝║124╟───────────┘ ║1019║║124╟───────────┘
     ╚═══╝             ╚════╝╚═══╝

Probablemente podría ser más pequeño si no hubiera cometido un error debido a que la salida fue al frente; Lo arreglé agregando una función adicional para invertir la entrada. De lo contrario, probablemente tendría que reescribirlo todo.

También cometí otro error (intercambiando los operandos en dos llamadas a ‼) que hizo necesario declarar la ‡función adicional , ¡pero esta es tan pequeña que cabe dentro de la función principal y por lo tanto no agrega ningún carácter!

Timwi
fuente

8

Whoa, eso se ve genial. No solo la solución, el idioma también :-)

Joey

1

Eso es simplemente increíble

Knerd

9

wxpython, muchos personajes

import wx, wx.gizmos as g

class T(wx.Frame):
 def __init__(_):
  wx.Frame.__init__(_, None, size = (800, 60))
  l = g.LEDNumberCtrl(_, -1)
  l.Value = raw_input()

class M(wx.App):
 def OnInit(_):
  T().Show()
  return 1

M().MainLoop()

Prueba

echo -n 81 | python codegolf-997-wx.py

ingrese la descripción de la imagen aquí

ps: no es una entrada seria, pero parece que la salida gráfica también es aceptable, así que lo probé :-)

TÚ
fuente

+1 Me alegro de ver esto :).

Mootinator

1

Demasiados de ustedes. : P

Usted

8

Golfscript - 66 caracteres

"placeholder text for userscript which counts chars             ";

xxd: (usar xxd -rpara revertir)

0000000: 332c 7b3a 533b 2e7b 3438 2d22 5e70 285d  3,{:S;.{48-"^p(]
0000010: 7025 d3c4 4ab1 7d4a b8dc 4469 ce41 2222  p%..J.}J..Di.A""
0000020: f303 227b 6261 7365 7d2f 3330 2f53 3d33  .."{base}/30/S=3
0000030: 2f3d 7b22 5f20 7c22 3d7d 257d 256e 407d  /={"_ |"=}%}%n@}
0000040: 2f3b                                     /;

Esto sigue a la mayoría de las otras respuestas en el sentido de que no hay espacios entre los números y los espacios finales se mantienen. Un espacio entre los números se puede agregar fácilmente con 1+antes {"_ |"=}%. Empaquetado en un número de base 3, y luego como base 243 en una cadena.

Nabb
fuente

Lo suficientemente justo. Actualicé la pregunta para no molestarme con el espacio innecesario entre números.

Mootinator

66

Creo que el "marcador de posición ..." es un poco confuso.

Eelvex

8

J, ^{90 , 78} 68 caracteres

[ actualización: usando codificación unicode (1 byte):

,./(10 3 3$((90$3)#:256#.24x-~3&u:'%ė¨ÔW/~º»sy¡ăì<t÷²'){' _|'){~"./.Y
NB. utf characters are: 37 279 168 212 87 47 126 186 187 115 121 161 259 236 60 116 247 178

funciona como antes:]

,./(10 3 3$((90$3)#:1219424106940570763878862820444729939648410x){' _|'){~"./. '58321'
 _  _  _  _    
|_ |_| _| _|  |
 _||_| _||_   |

La clave está en la codificación de dígitos como enteros de base 3. Cero, por ejemplo es:

:
 _ 
| |
|_|

o ' _ | ||_|', que se convierte en 010202212 ₃ = 2750.

Eelvex
fuente

Podría guardar 10 caracteres si J tuviera números de base 36 de alta precisión. ¿Alguna sugerencia a alguien?

Eelvex

Estoy usando binario ahora. Me pregunto si trinary me ahorraría algunos trazos?

luser droog

2

felicidades por tener la publicación número 1000 en codegolf.SE! ( http://codegolf.stackexchange.com/q/1000)

Pomo de la puerta

2+ años de retraso pero gracias :)

Eelvex

5

Mathematica 205 209 198 179

i = IntegerDigits; t = Thread; r = Rule;
z@n_ := Row@i@n /. t[r[Range[0, 9], Grid[Partition[ReplacePart[Characters@" _ |_||_|", 
t[r[#, ""]]], 3], Spacings -> 0] & 
/@ (i /@ {5, 24578, 49, 47, 278, 67, 6, 4578, , 78})]]

Uso

z@1234567890

dígitos

DavidC
fuente

5

JavaScript (145)

~~148~~ 145

Dado que JavaScript no tiene realmente entrada / salida estándar, esto se escribe como una función que toma una cadena y devuelve la salida como una cadena.

function r(n){for(i=o="",b=" |_\n|",L=n.length;i<3*L;)o+=b[(c="ǪĠòƲĸƚǚĢǺƺ".charCodeAt(n[i%L])>>(i++/L|0)*3)&1]+b[c&2]+b[c&4]+b[i%L?0:3];return o}

Espaciado:

function r(n)
{
    for (i = o = "", b = " |_\n|", L = n.length;   i < 3*L;   )
        o += b [ (c = "ǪĠòƲĸƚǚĢǺƺ".charCodeAt(n[i%L]) >> (i++/L|0)*3) & 1 ] +
             b [ c&2 ] +
             b [ c&4 ] +
             b [ i%L ? 0 : 3 ];  // space or newline
    return o
}

Así es como funciona:

Cada forma de dígito está codificada en un carácter Unicode que consta de 9 bits.
Los primeros tres bits son para la primera fila, etc.
En cada grupo de tres bits, el primero especifica si el primer carácter es |o espacio, el segundo si es _o espacio, y el tercero nuevamente |o espacio.
Estos tres bits se recuperan como c&1, c&2y c&4, que luego se utilizan como índices en la cadena b.
En cada iteración, i%Les la "coordenada x", es decir, el dígito dentro de la entradan
En cada iteración, i/Les la "coordenada y", es decir, la fila, pero debemos |0convertirla en un entero
Finalmente, los espacios entre los dígitos y las nuevas líneas entre las líneas también se recuperan indexando b, reutilizando el carácter de espacio y la posición 3 no utilizada en esa cadena. :)

Timwi
fuente

Unicode! ¡BAH! ... bueno, es más corto que el mío. +1

luser droog

5

Rubí, 142

' _     _  _     _  _  _  _  _ 
| |  | _| _||_||_ |_   ||_||_|
|_|  ||_  _|  | _||_|  ||_| _|'.lines{|l|puts x.chars.map{|i|l[i.to_i*3,3]}*''}

espera entrada en la variable x. ejemplos:

x = '321'
#  _  _    
#  _| _|  |
#  _||_   |

x = '42'
#      _ 
#  |_| _|
#    ||_

Patrick Oscity
fuente

ooooo ¡bonita! ...

luser droog

3

Golfscript - 97 caracteres

:*{32' _':$@'14'{?~!=}:&~32}%n*{:x' |':|\'1237'&$x'017'&|x'56'&}%n*{:x|\'134579'&$x'147'&|x'2'&}%

gnibbler
fuente

Use la tecla de retroceso para guardar un carácter para todas las cadenas numéricas (¿cómo inserto este carácter en el formato de código?)

Nabb

@Nabb: No puedes - StackExchange es una mierda así ...

Timwi

3

Windows PowerShell, 127

$i="$input"[0..99]
'☺ ☺☺ ☺☺☺☺☺','♠☻♥♥♦♣♣☻♦♦','♦☻♣♥☻♥♦☻♦♥'|%{$c=$_
""+($i|%{('···0·_·0··|0·_|0|_|0|_·0|·|'-split0)[$c[$_-48]]})}

Dado que las cadenas contienen algunos caracteres desagradables para escribir, un hexdump para su conveniencia:

000: 24 69 3D 22 24 69 6E 70 │ 75 74 22 5B 30 2E 2E 39  $i="$input"[0..9
010: 39 5D 0A 27 01 00 01 01 │ 00 01 01 01 01 01 27 2C  9]◙'☺ ☺☺ ☺☺☺☺☺',
020: 27 06 02 03 03 04 05 05 │ 02 04 04 27 2C 27 04 02  '♠☻♥♥♦♣♣☻♦♦','♦☻
030: 05 03 02 03 04 02 04 03 │ 27 7C 25 7B 24 63 3D 24  ♣♥☻♥♦☻♦♥'|%{$c=$
040: 5F 0A 22 22 2B 28 24 69 │ 7C 25 7B 28 27 20 20 20  _◙""+($i|%{('
050: 30 20 5F 20 30 20 20 7C │ 30 20 5F 7C 30 7C 5F 7C  0 _ 0  |0 _|0|_|
060: 30 7C 5F 20 30 7C 20 7C │ 27 2D 73 70 6C 69 74 30  0|_ 0| |'-split0
070: 29 5B 24 63 5B 24 5F 2D │ 34 38 5D 5D 7D 29 7D     )[$c[$_-48]]})}

Joey
fuente

55

Mira todos los emoticonos ..

Wang Dingwei

3

gforth, 186 175 caracteres

Nueva versión:

: s query parse-word bounds s" D@DD@DDDDDb`ddfFF`fff`Fd`df`f`" bounds do cr 2dup do i c@ '0 - j + c@ 3 0 do dup 3 and s"  _|" drop + 1 type 4 / loop drop loop 10 +loop bye ; s

Esto realmente molesta salir (+3 caracteres) también :). Aquí está la versión más legible, hace un poco de empaquetado de bits para reducir el tamaño de LUT en 1/3, pero el código resultante es más complejo, por lo que no es un gran ahorro:

: 7s query parse-word bounds 
    s" D@DD@DDDDDb`ddfFF`fff`Fd`df`f`"
    bounds do 
        cr
        2dup do
            i c@ '0 - j + c@
            3 0 do
                dup 3 and
                s"  _|" drop + 1 type
                4 / \ shorter than an rshift
            loop
            drop
        loop
    10 +loop bye ;
7s

Versión antigua:

: s query parse-word bounds s"  _     _  _     _  _  _  _  _ | |  | _| _||_||_ |_   ||_||_||_|  ||_  _|  | _||_|  ||_|  |" bounds do cr 2dup do i c@ '0 - 3 * j + 3 type loop 30 +loop ; s

Esto deja la pila desequilibrada y no se molesta en salir del intérprete. Aquí hay una versión más limpia y legible

: 7s query parse-word bounds 
    s"  _     _  _     _  _  _  _  _ | |  | _| _||_||_ |_   ||_||_||_|  ||_  _|  | _||_|  ||_|  |"
    bounds do 
        cr
        2dup do
            i c@ '0 - 3 * j + 3 type
        loop
    30 +loop 2drop bye ;
7s

Mazo de Troya
fuente

2

Personajes C # 369

static void Main(string[] a){var b = new[] {123,72,61,109,78,103,119,73,127,111};var g = new[]{" _  ","|","_","| ","|","_","| "};a[0].ToCharArray().SelectMany((x,w)=>g.Select((y,i)=>new{s=((b[x-48]>>i&1)==1)?y:new String(' ',y.Length),j=i,v=w})).GroupBy(z=>(z.j+2)/3).ToList().ForEach(q=>Console.WriteLine(String.Join("", q.OrderBy(l=>l.v).Select(k=>k.s).ToArray())));}

Podría cortar fácilmente algunos caracteres. Lo importante era abusar de LINQ :)

Más versión de espacios en blanco:

static void Main(string[] a)
{
    var b = new[] {123, 72, 61, 109, 78, 103, 119, 73, 127, 111};
    var g = new[] { " _  ", "|", "_", "| ", "|", "_", "| " };
    a[0].ToCharArray().SelectMany(
        (x,w)=>g.Select(
           (y,i)=>new{s=((b[x-48]>>i&1)==1)?y:new String(' ',y.Length),j=i,v=w}))
            .GroupBy(z=>(z.j+2)/3).ToList().ForEach(
            q=>Console.WriteLine(
                String.Join("", q.OrderBy(l=>l.v).Select(k=>k.s).ToArray())));
}

mootinator
fuente

En primer lugar, necesita una declaración de clase ys using(409). Luego hay un espacio en blanco innecesario que se puede eliminar (402). La tarea establece que se debe omitir el espacio en blanco entre los dígitos (399).

Joey

Uh, gracias Edité la tarea porque nadie seguía la regla original de espacios en blanco. Siéntete libre de editar la respuesta si te ofende, porque simplemente no me importa.

Mootinator

gse usa solo una vez, por lo que puede guardar 7 caracteres al incluirlo.

Timwi,

1

En realidad, btambién se usa solo una vez, por lo que también puede incorporarlo. Además, puede guardar muchos caracteres si cambia la matriz de enteros a "{H=mNgwI\x7fo", o incluso más corto si cambia \x7fal carácter real # 127 (que no se puede imprimir, pero está permitido). El >>seguirá funcionando porque hay una conversión implícita de chara int.

Timwi,

Además, el .ToCharArray()y el .ToArray()son redundantes, puede eliminarlos :)

Timwi

2

Solución Java: ~~585~~ 570 caracteres

No creo que intente jugar más golf en Java ...

import java.util.*;
public class CG997{public static void main(String[]args){
short[][]lets=new short[][]{{0,1,3,2,0,4,2,1,4},{0,0,3,0,0,4,0,0,4},{0,1,3,0,1,
4,2,1,3},{0,1,3,0,1,4,0,1,4},{0,0,3,2,1,4,0,0,4},{0,1,3,2,1,3,0,1,4},{0,1,3,2,1
,3,2,1,4},{0,1,3,0,0,4,0,0,4},{0,1,3,2,1,4,2,1,4},{0,1,3,2,1,4,0,0,4}};
String[]syms=new String[]{" ","_","|","  ","| "};
String s=new Scanner(System.in).nextLine();
for(int o=0;o<3;o++){for(char c:s.toCharArray()){for(int i =0;i<3;i++)
System.out.print(syms[lets[Short.parseShort(c+"")][i+o*3]]);
}System.out.println();}}}

Mitch
fuente

Su versión de Java es mucho mejor / más corta que la mía :) por cierto ... ¿6 en la representación del reloj digital tiene un límite (_) en la parte superior o no? Me confundí después de su salida!

Aman ZeeK Verma

Al revisar la cafetera detrás de mí, los 6 deberían tener una tapa. Actualizaré mi solución.

Mitch

2

Pitón, 218 180 176

b=map(int,raw_input());a=map(int,bin(914290166014670372457936330)[2:]);c=' |_';p=lambda k:''.join(c[a[9*n+k]]+c[2*a[9*n+1+k]]+c[a[9*n+2+k]]for n in b)+'\n';print p(6)+p(0)+p(3)

Con saltos de línea:

b=map(int,raw_input())
a=map(int,bin(914290166014670372457936330)[2:])
p=lambda k:''.join(' |'[a[9*n+k]]+' _'[a[9*n+1+k]]+' |'[a[9*n+2+k]]for n in b)+'\n'
print p(6)+p(0)+p(3)

Scleaver
fuente

2

Bash, 11 caracteres

toilet "$i"

Sí, lo sé, estoy haciendo trampa.

Necesitas tener el baño instalado.

Wug
fuente

1

Y tenga la fuente predeterminada establecida en una con números de visualización de 7 segmentos. figletTambién funcionaría.

Rob

2

Java, 2,095

public class DigitalNumber {
    public static void main(String args[]){
        char[][] panel = new char[3][120]; //A 20 digit panel!
        int digXIndex = 0;int digYIndex = 0;
        for (int i=0;i<args[0].length(); i++){
            int dig=Integer.parseInt(""+args[0].charAt(i));
            panel[digXIndex][digYIndex]=32;   
            digYIndex++;
            if (dig!=1 && dig!=4)
                panel[digXIndex][digYIndex]='_';  
            else
                panel[digXIndex][digYIndex]=32;
            digYIndex++;
                panel[digXIndex][digYIndex]=32; 
            digYIndex=3*i;
            digXIndex++;
            if (dig!=1 && dig!=2 && dig!=3 && dig!=7)
                panel[digXIndex][digYIndex]='|';    
            else
                panel[digXIndex][digYIndex]=32;
            digYIndex++;
            if (dig!=1 && dig!=0 && dig!=7)
                panel[digXIndex][digYIndex]='_';    
            else
                panel[digXIndex][digYIndex]=32;
            digYIndex++;
            if (dig!=6 && dig!=5)
                panel[digXIndex][digYIndex]='|';  
            else
                panel[digXIndex][digYIndex]=32;
            digYIndex=3*i;
            digXIndex++;
            if (dig!=6 && dig!=8 && dig!=2 && dig!=0)
                panel[digXIndex][digYIndex]=32;  
            else
                panel[digXIndex][digYIndex]='|';
            digYIndex++;
            if (dig!=7 && dig!=4 && dig!=1)
                panel[digXIndex][digYIndex]='_';  
            else
                panel[digXIndex][digYIndex]=32;
            digYIndex++;
            if (dig!=2)
                panel[digXIndex][digYIndex]='|';  
            else
                panel[digXIndex][digYIndex]=32;
            digXIndex=0;
            digYIndex+=(i*3)+1;
        }       
        for (int i=0; i<3; i++){
            for (int j=0; j<120; j++)
                if (panel[i][j]!=0)
                System.out.print((char)(panel[i][j]));
                else
                    System.out.print("");
            System.out.println();
        }   
    }
}

Muestra de E / S

java DigitalNumber 98765432109876543210
     _  _  _  _  _     _  _     _  _  _  _  _  _     _  _     _ 
    |_||_|  ||_ |_ |_| _| _|  || ||_||_|  ||_ |_ |_| _| _|  || |
     _||_|  ||_| _|  | _||_   ||_| _||_|  ||_| _|  | _||_   ||_|

Aman ZeeK Verma
fuente

55

Debería empezar a odiar a Java :)

Aman ZeeK Verma

1

Java es excelente para muchas cosas, pero el código breve no es una de ellas.

Jonathan M Davis

2

Bueno, este código ni siquiera es golf. Podría ser mucho más corto.

Joey

Jugué un poco con tu código;)

Knerd

1

D: 295 caracteres

import std.stdio;void main(string[]a){string[3]o;foreach(c;a[1]){int n=cast(int)(c)-48;auto e=" ";o[0]~=n!=1&&n!=4?" _ ":"   ";o[1]~=!n||n>3&&n!=7?"|":e;o[1]~=n>1&&n!=7?"_":e;o[1]~=n<5||n>6?"|":e;o[2]~=!(n&1)&&n!=4?"|":e;o[2]~=!n||n>1&&n!=4&&n!=7?"_":e;o[2]~=n!=2?"|":e;}foreach(l;o)writeln(l);}

Más legible:

import std.stdio;

void main(string[] a)
{
    string[3] o;

    foreach(c; a[1])
    {
        int n = cast(int)(c) - 48;
        auto e = " ";

        o[0] ~= n != 1 && n != 4 ? " _ " : "   ";

        o[1] ~= !n || n > 3 && n != 7 ? "|" : e;
        o[1] ~= n > 1 && n != 7 ? "_" : e;
        o[1] ~= n < 5 || n > 6 ? "|" : e;

        o[2] ~= !(n&1) && n != 4 ? "|" : e;
        o[2] ~= !n || n > 1 && n != 4 && n != 7 ? "_" : e;
        o[2] ~= n != 2 ? "|" : e;
    }

    foreach(l; o)
        writeln(l);
}

Jonathan M Davis
fuente

1

Ocaml, 268

let t=function|'1'|'4'->"   "|_->" _ "let m=function|'0'->"| |"|'1'|'7'->"  |"|'2'|'3'->" _|"|_->"|_|"|'5'|'6'->"|_ "let b=function|'0'|'8'->"|_|"|'1'|'4'|'7'->"  |"|'2'->"|_ "|_->" _|"let f s=let g h=String.iter(fun c->print_string(h c))s;print_newline()ing t;g m;g b

Versión legible

let t = function
  | '1'
  | '4' -> "   "
  | _ -> " _ "
let m = function
  | '0' -> "| |"
  | '1'
  | '7' -> "  |"
  | '2'
  | '3' -> " _|"
  | _ -> "|_|"
  | '5'
  | '6' -> "|_ "
let b = function
  | '0'
  | '8' -> "|_|"
  | '1'
  | '4'
  | '7' -> "  |"
  | '2' -> "|_ "
  | _ -> " _|"
let f s =
  let g h =
    String.iter (fun c -> print_string (h c)) s;
    print_newline () in
  g t;
  g m;
  g b

ReyCharles
fuente

1

Perl (182 180)

#!perl -l
$_=<<7;
 _     _  _     _  _  _  _  _ 
| |  | _| _||_||_ |_   ||_||_|
|_|  ||_  _|  | _||_|  ||_| _|
7
@b=map{[/(...)/g]}split/\n/;@d=split//,<>;for$p(@b){print map$p->[$_],@d}

lee de STDIN.

$ perl 7segment.pl 
1234567890987654321
    _  _     _  _  _  _  _  _  _  _  _  _  _     _  _     _ 
  | _| _||_||_ |_   ||_||_|| ||_||_|  ||_ |_ |_| _| _|  || |
  ||_  _|  | _||_|  ||_| _||_| _||_|  ||_| _|  | _||_   ||_|

memowe
fuente

1

Ghostscript (270) (248) (214)

Editar: más sustituciones. Se eliminó el espacio entre dígitos.

Editar: incluso más sustituciones. Main loop ahora se ve como lo que hace!

/F{forall}def[48<~HUp;::1ncBInp~>{1 index 1 add}F
pop/*{dup
2 idiv exch
2 mod
1 eq}/P{print}/#{( )P}/?{ifelse
P}/O{{( )}?}/|{*{(|)}O}/_{*{(_)}O}>>begin[[[[ARGUMENTS{{load
# _ #}F()=]2{{| _ |}F()=]}repeat]pop[[[[}F

Utiliza la función de procesamiento de argumentos de ghostscript: invocar con gs -dNODISPLAY -- digit.ps 012 345 6789.

luser droog
fuente

1

Delphi || 453 (568 con formato)

Ni siquiera lo suficientemente cerca como para ganar, pero fue divertido hacerlo ^. ^

const asc: array[0..9] of array[0..2] of string = ((' _ ','| |','|_|'),('   ','  |','  |'),(' _ ',' _|','|_ '),(' _ ',' _|',' _|'),('   ','|_|','  |'),(' _ ','|_ ',' _|'),(' _ ','|_ ','|_|'),(' _ ','  |','  |'),(' _ ','|_|','|_|'),(' _ ','|_|',' _|'));var s,l:string;x,i:integer;begin Readln(s);s:=StringReplace(s,' ','',[rfReplaceAll]);for I := 0 to 2 do begin l:='';for x := 1 to length(s) do l := l + asc[StrToInt(s[x])][i];writeln(l);end;readln;end.

Con formato

const
asc: array[0..9] of array[0..2] of string = (
  (' _ ','| |','|_|'),
  ('   ','  |','  |'),
  (' _ ',' _|','|_ '),
  (' _ ',' _|',' _|'),
  ('   ','|_|','  |'),
  (' _ ','|_ ',' _|'),
  (' _ ','|_ ','|_|'),
  (' _ ','  |','  |'),
  (' _ ','|_|','|_|'),
  (' _ ','|_|',' _|'));
var
s,l:string;
x,i:integer;
begin
    Readln(s);
    s:=StringReplace(s,' ','',[rfReplaceAll]);
    for I := 0 to 2 do
    begin
      l:='';
      for x := 1 to length(s) do
        l := l + asc[StrToInt(s[x])][i];
      writeln(l);
    end;
    readln

fin.

Teun Pronk
fuente

1

PHP, 140 136 133 131 129 128 bytes

^{Podría ahorrar 5 7 más con ascii extendido: uno para cada "| _"y el salto de línea, tres para ~"z/]{4lno~|"(la negación bit a bit convertiría todo en caracteres ascii extendidos = sin caracteres especiales, y PHP no necesita comillas allí), dos para -1(es solo allí para mantener el mapa en ascii estándar). Pero por legibilidad y compatibilidad, me quedo con ASCII estándar.}

for(;""<$c=$argv[1][$i++];)for($n=753754680;$n>>=3;)$r[$p++%3].="| _"[ord(~"z/]{4lno~|"[$c])-1>>$n%8&1?:$n&2];echo join("
",$r);

el mapa de bits

Tome LEDS _, |_|, |_|como bits -6-, 024, 135(número de bit y 2 es 0 para LEDs verticales)
Crear mapas de bits para los números 0..9: [123,48,94,124,53,109,111,112,127,125]
Disminuya en 1 para hacerlos todos códigos ascii imprimibles -> "z/]{4lno~|"
negar -> ~"z/]{4lno~|"(permite la taquigrafía ternaria en la selección de caracteres)

la plantilla

utilizar 7los espacios -> 767, 024,135
reagrupamiento por columnas en lugar de filas -> 701, 623, 745(renders $p=0obsoleto)
reverse -> 547326107(lee el mapa de derecha a izquierda; permite el bucle aritmético)
agregar cero -> 5473261070(permite combinar el turno con la prueba en la cabeza del bucle)
leer octal, convertir a decimal -> 753754680(dos bytes más cortos: un dígito y el prefijo)

Descompostura

for(;""<$c=$argv[1][$i++];) // loop through input characters
    for($n=753754680;$n>>=3;)   // loop through template
        $r[$p++%3].="| _"[          // append character to row $p%3:
            ord(~"z/]{4lno~|"[$c])-1// decode bitmap
                >>$n%8&1            // test bit $n%8 (always 1 for bit 7)
            ?                       // if set: 1 (space)
            :$n&2                   // else: 2 (underscore) for bits 2,3,6; 0 (pipe) else
        ];
echo join("\n",$r);         // print result

Titus
fuente

+16 bytes para hexadecimal:ord(~"z/]{4lno~|v.J=NF"[hexdec($c)])-1

Titus

1

Java 8, 280 bytes

interface M{static void main(String[]a){String x="",y=x,z=x;for(int c:a[0].getBytes()){c-=48;x+=" "+(c==4|c==1?" ":"_")+" ";y+=(c==7|c>0&c<4?" ":"|")+(c==7|c<2?" ":"_")+(c>4&c<7?" ":"|");z+=(c%2<1&c!=4?"|":" ")+(c%3==1?" ":"_")+(c==2?" ":"|");}System.out.print(x+"\n"+y+"\n"+z);}}

Explicación:

Pruébalo aquí

interface M{                     // Class
  static void main(String[]a){   //  Mandatory main-method
    String x="",                 //   String for row 1, starting empty
           y=x,                  //   String for row 2, starting empty
           z=x;                  //   String for row 3, starting empty
    for(int c:a[0].getBytes()){  //   Loop over the bytes of the input
      c-=48;                     //    Convert the byte to integer
      x+=                        //    Append to row 1:
         " "                     //     a space
         +(c==4|c==1?            //     +If the digit is a 1 or 4:
            " "                  //       Append a space
           :                     //      Else:
            "_")                 //       Append an underscore
         +" ";                   //     + another space
      y+=                        //    Append to row 2:
         (c==7|c>0&c<4?          //      If the digit is 1, 2, 3, or 7:
           " "                   //       Append a space
          :                      //      Else:
           "|")                  //       Append a pipe
         +(c==7|c<2?             //     +If the digit is 0, 1, or 7:
            " "                  //       Append a space
           :                     //      Else:
            "_")                 //       Append an underscore
         +(c>4&c<7?              //     +If the digit is 5 or 6:
            " "                  //       Append a space
           :                     //      Else:
            "|");                //       Append a pipe
      z+=                        //    Append to row 3:
         (c%2<1&c!=4?            //      If the digit is 0, 2, 6 or 8:
           "|"                   //       Append a pipe
          :                      //      Else:
           " ")                  //       Append a space
          +(c%3==1?              //     +If the digit is 1, 4, or 7:
             " "                 //       Append a space
            :                    //      Else:
             "_")                //       Append a pipe
          +(c==2?                //     +If the digit is 2:
             " "                 //       Append a space
            :                    //      Else:
             "|");               //       Append a pipe
    }                            //   End of loop
    System.out.print(x+"\n"+y+"\n"+z);
                                 //   Print the three rows
  }                              //  End of main-method
}                                // End of class

Como función, esto sería 218 bytes en su lugar.

Kevin Cruijssen
fuente

0

Python, 227 caracteres

a="   ";b=" _ ";c="|_|";d="| |";e="|  ";f="  |";g="|_ ";h=" _|"
z=[[b,d,c],[a,f,f],[b,h,g],[b,h,h],[a,c,f],[b,g,h],[b,g,c],[b,f,f],[b,c,c],[b,c,h]]
x=map(int,raw_input())
for i in range(3):
 for j in x:
  print z[j][i],
 print

Simple y directo.

David Sousa
fuente

0

Perl, 145 caracteres

$i=<>;for$s(6,3,0){for($i=~/./g){$v=(175,9,158,155,57,179,183,137,191,187)[$_]>>$s;$o.=($v&4?'|':$").($v&2?'_':$").($v&1?'|':$")}$o.="
"}print$o

Sin golf:

# Read STDIN
$i = <>;
# Amount to bit shift later
for $s (6,3,0)
{
  # For each character C from STDIN
  for ($i =~ /./g)
  {
    # Get the Cth array index, bit shifted right by $s
    $v = (175, 9, 158, 155, 57, 179, 183, 137, 191, 187)[$_]>>$s;
    # Concatenate each character if the bitwise masked value says it should be there
    $o .= ($v & 4 ? '|' : $") .
          ($v & 2 ? '_' : $") .
          ($v & 1 ? '|' : $");
  }
  # Concatenate a newline
  $o .= "
";
}
# Print the result
print $o;

KJP
fuente

0

Python 3.4.3 - 1514 858 bytes

La tentación de resolver esto fue demasiado grande para no registrarse y responder = P

Soy un poco nuevo en Python, así que formateé mi programa de forma agradable y ordenada (o al menos lo hice). ¡Las mejoras son muy apreciadas!

import sys;l1,l2,l3,l4,l5="";num=input()
for c in num:
    if c=="1":
        l1+=" oo  ";l2+="  o  ";l3+="  o  ";l4+="  o  ";l5+="oooo "
    if c=="2":
        l1+="oooo ";l2+="   o ";l3+="oooo ";l4+="o    ";l5+="oooo "
    if c=="3":
        l1+="oooo ";l2+="   o ";l3+=" ooo ";l4+="   o ";l5+="oooo "
    if c=="4":
        l1+="o  o ";l2+="o  o ";l3+="oooo ";l4+="   o ";l5+="   o "
    if c=="5":
        l1+="oooo ";l2+="o    ";l3+="oooo ";l4+="   o ";l5+="oooo "
    if c=="6":
        l1+="oooo ";l2+="o    ";l3+="oooo ";l4+="o  o ";l5+="oooo "
    if c=="7":
        l1+="oooo ";l2+="   o ";l3+="   o ";l4+="   o ";l5+="   o "
    if c=="8":
        l1+="oooo ";l2+="o  o ";l3+="oooo ";l4+="o  o ";l5+="oooo "
    if c=="9":
        l1+="oooo ";l2+="o  o ";l3+="oooo ";l4+="   o ";l5+="oooo "
    if c=="0":
        l1+="oooo ";l2+="o  o ";l3+="o  o ";l4+="o  o ";l5+="oooo "
print(l1+"\n"+l2+"\n"+l3+"\n"+l4+"\n"+l5)

Editar: nombres de variables acortados, usados; para acortar, solo un espacio al final de los números de salida, variables definidas todas a la vez.

Las nuevas líneas son de 2 bytes (CRLF) y usé pestañas en lugar de 4 espacios.

fuente

2

¡Bienvenido a Programming Puzzles & Code Golf! Dado que este es un desafío de código de golf, querrás que tu código sea lo más corto posible. Estos consejos pueden ser útiles para jugar al golf.

Alex A.

"Usé pestañas en lugar de 4 espacios" Estoy confundido. ¿Por qué no estabas usando pestañas de todos modos? ;)

Lightness compite con Monica

0

SmileBASIC, 216 bytes

?INPUT N$DIM A[14]COPY A,@A@A
DATA 1,0,0,1,3,1,1,3,0,4,3,4,1,6FOR D=0 TO LEN(N$)-1X=ASC("w$]m.k{%\o"[VAL(N$[D])])FOR I=0TO 6T=I*2IF X<<31THEN GBOX A[T]+D*5,A[T+1],A[T]+D*5+!(I MOD 3),A[T+1]+!!(I MOD 3)
X=X/2NEXT
NEXT

Usar gráficos en lugar de texto, porque probablemente sea más corto.

Explicación:

PRINT 'so the input and output don't overlap
INPUT NUMBER$ 'get number
DIM PTS[7*2] 'locations of segments
COPY PTS,@PTDATA 'copy data into array
@PTDATA
DATA 1,0,0,1,3,1,1,3,0,4,3,4,1,6 'stored as x,y,x,y,...
FOR DIGIT=0 TO LEN(NUMBER$)-1
 NUM=ASC("w$]m.k{%\o"[VAL(NUMBER$[DIGIT])]) 'get digit data. That data string doesn't have any non-ASCII characters, except \ which is 127 in SB.
 FOR I=0 TO 7-1 'draw each segment
  T=I*2 'position of point in array
  IF X AND 1 THEN GLINE PTS[T]+DIGIT*5,PTS[T+1],PTS[T]+DIGIT*5+!(I MOD 3),PTS[T+1]+!!(I MOD 3) 'draw segment. I MOD 3 determines whether it's horizontal or vertical.
  X=X>>1 'shift to next bit
 NEXT
NEXT

12Me21
fuente

0

C ++, 230 229 225 223 218 207 204 198 bytes

#import<iostream>
#define d for(auto
std::string v[3],t,g="|_| =2$0^262\'032;2$2?272";main(){std::cin>>t;d i:t)d j:{0,1,2})d k:{0,1,2})v[k]+=g[g[i*2-92+!k]>>j+k/2*3&1?j:3];d j:v)std::cout<<j<<'\n';}

Lee desde stdin y salida a stdout.

Explicación:

#import<iostream>                // string inside

std::string v[3], t, g="|_| "    // symbol on different horizontal position
      "=2$0^262\'032;2$2?272";   // space(0) or not(1) for each number and position
                                 // binary representation, last 6 bits is used
                                 // even positions are for row 1, 2; odds are for row 0

main() {
    std::cin>>t;                 // input
    for (auto i:t)               // for each character
        for (auto j:{0,1,2})     // for each horizontal position
            for (auto k:{0,1,2}) // for each vertical position
                v[k]+=g[         // use first four chars only
                    g[i*2-92     // i*2-96 is number*2, +4 to skip first four
                        +!k]     // row 0 uses another character
                    >>j+k/2*3    // (k==2?3:0)+j, the expected bit
                    &1           // extract the bit
                    ?j:3         // space or not space
                ];

    for (auto j:v) std::cout<<j<<'\n'; // output
}

Colera Su
fuente

0

Powershell, 114 bytes

param($a)6,3,0|%{$l=$_
-join($a|% t*y|%{('   0 _ 0 _|0|_ 0| |0  |0|_|'-split0)[(+('f-SR5Z^mvr'["$_"])-shr$l)%8]})}

Script de prueba:

$f = {

param($a)6,3,0|%{$l=$_
-join($a|% t*y|%{('   0 _ 0 _|0|_ 0| |0  |0|_|'-split0)[(+('f-SR5Z^mvr'["$_"])-shr$l)%8]})}

}

&$f "1234567890"
&$f "81"

Salida:

    _  _     _  _  _  _  _  _
  | _| _||_||_ |_   ||_||_|| |
  ||_  _|  | _||_|  ||_| _||_|
 _
|_|  |
|_|  |

Idea principal:

Cada número de estilo de reloj digital estándar contiene 3 líneas. Además, la primera línea contiene solo 2 opciones. Un total de 6 opciones. Por lo tanto, 7 bits son suficientes para codificar cada dígito.

line str=@('   ', ' _ ', ' _|', '|_ ', '| |', '  |', '|_|')

#    line str    binary       dec    ASCII
-    --------    ---------    ---    -----
0 -> 1 
     4 
     6        -> 1 100 110 -> 102 -> 'f'

1 -> 0
     5
     5        -> 0 101 101 ->  45 -> '-'

...

8 -> 1
     6
     6        -> 1 110 110 -> 118 -> 'v'

9 -> 1
     6
     2        -> 1 110 010 -> 114 -> 'r'

Entonces, la cadena f-SR5Z^mvrcodifica todos los segmentos para todos los números de estilo de reloj digital estándar.

Nota: El orden del line strse seleccionó especialmente para que todos los códigos estuvieran en el intervalo 32..126.

mazzy
fuente

Renderizar números de "estilo de reloj digital"

Respuestas:

APL (Dyalog) (45)

Funciton

wxpython, muchos personajes

Golfscript - 66 caracteres

J, ^{90 , 78} 68 caracteres

Mathematica 205 209 198 179

JavaScript (145)

Rubí, 142

Golfscript - 97 caracteres

Windows PowerShell, 127

gforth, 186 175 caracteres

Personajes C # 369

Pitón, 218 180 176

Bash, 11 caracteres

Java, 2,095

D: 295 caracteres

Ocaml, 268

Perl (182 180)

Ghostscript (270) (248) (214)

Delphi || 453 (568 con formato)

Con formato

PHP, 140 136 133 131 129 128 bytes

Java 8, 280 bytes

Python, 227 caracteres

Python 3.4.3 - 1514 858 bytes

SmileBASIC, 216 bytes

C ++, 230 229 225 223 218 207 204 198 bytes

Powershell, 114 bytes

Renderizar números de "estilo de reloj digital"

Respuestas:

APL (Dyalog) (45)

Funciton

wxpython, muchos personajes

Golfscript - 66 caracteres

J, 90 , 78 68 caracteres

Mathematica 205 209 198 179

JavaScript (145)

Rubí, 142

Golfscript - 97 caracteres

Windows PowerShell, 127

gforth, 186 175 caracteres

Personajes C # 369

Pitón, 218 180 176

Bash, 11 caracteres

Java, 2,095

D: 295 caracteres

Ocaml, 268

Perl (182 180)

Ghostscript (270) (248) (214)

Delphi || 453 (568 con formato)

Con formato

PHP, 140 136 133 131 129 128 bytes

Java 8, 280 bytes

Python, 227 caracteres

Python 3.4.3 - 1514 858 bytes

SmileBASIC, 216 bytes

C ++, 230 229 225 223 218 207 204 198 bytes

Powershell, 114 bytes

J, ^{90 , 78} 68 caracteres