28

Écrivez le programme le plus court qui prendra en entrée une chaîne de chiffres (d' au moins 20 longueurs) et affichez la sortie en utilisant les numéros de style d'horloge numérique standard. Par exemple pour l'entrée 81, une solution avec sortie ascii donnerait:

 _
|_|  |
|_|  |

La sortie graphique est également acceptable, si cela aide.

code-golf ascii-art mootinator
la source

une limite supérieure sur "prendre une chaîne de nombres en entrée"?

Aman ZeeK Verma

Hmm, disons qu'une ligne sur un écran de 80 colonnes (20) est assez bonne .

mootinator

1

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

gnibbler

1

Également lié: stackoverflow.com/q/3324301/code-golf-digital-clock

dmckee

6

APL (Dyalog) (45)

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

La chaîne ા8धगɯે૙ࣃଏ૽,, sont les caractères unicode 2750 56 2343 2327 623 2759 2777 2243 2831 2813(cependant, vous devriez pouvoir simplement les copier et les coller). Ils codent les chiffres. Le programme lit une ligne sur le clavier.

Explication:

1+⍎¨⍞: lire une ligne du clavier, analyser chaque caractère sous forme de chiffre, puis ajouter 1 à chaque numéro (les tableaux APL sont basés sur 1 par défaut).
⎕UCS'ા8धगɯે૙ࣃଏ૽'[... ]: Sélectionnez les caractères appartenant aux chiffres des nombres que vous avez saisis et recherchez les valeurs Unicode.
{... }¨: pour chacune de ces valeurs, faites:
1+⍵⊤⍨9⍴3: obtenez les 9 premiers chiffres de base 3 à partir de la valeur exprimée en base 3 et ajoutez 1 (car les tableaux sont basés sur 1).
' _|'[... ]: sélectionnez un espace, une ligne horizontale ou une ligne verticale en fonction de ces chiffres
3 3⍴: format sous forme de boîte 3 x 3.

marinus
la source

36

Funciton

Pas vraiment un langage adapté au golf ... mais malgré tout, j'ai essayé de garder la taille du code aussi petite que possible - un défi assez différent de celui des langues "habituelles". Il s'agit de 1555 caractères ou 3110 octets (s'il est codé en UTF-16; UTF-8 est plus grand).

Voici une capture d'écran du programme en cours d'exécution. Ça marche vraiment :)

Étant donné que cela semble moche dans StackExchange en raison de l'espacement de ligne supplémentaire, envisagez d'exécuter le code suivant dans la console JavaScript de votre navigateur pour résoudre ce problème: $('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╟───────────┘
     ╚═══╝             ╚════╝╚═══╝

Il pourrait probablement être plus petit si je n'avais pas fait d'erreur à cause de laquelle la sortie était en arrière; J'ai corrigé cela en ajoutant une fonction supplémentaire pour inverser l'entrée. Sinon, je devrais probablement tout réécrire.

J'ai également fait une autre erreur (en échangeant les opérandes en deux appels à ‼) qui a rendu nécessaire la déclaration de la ‡fonction supplémentaire , mais celle-ci est si petite qu'elle tient dans la fonction principale et n'ajoute donc aucun caractère!

Timwi
la source

8

Whoa, ça a l'air cool. Pas seulement la solution, la langue aussi :-)

Joey

1

C'est tout simplement génial

Knerd

9

wxpython, plusieurs caractères

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()

Tester

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

entrez la description de l'image ici

ps: pas une entrée sérieuse, mais il semble que la sortie graphique soit également acceptable, donc je viens de l'essayer :-)

TOI
la source

+1 Content de voir ça :).

mootinator

1

Beaucoup trop d'entre vous. : P

Vous

8

Golfscript - 66 caractères

"placeholder text for userscript which counts chars             ";

xxd: (utiliser xxd -rpour revenir)

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                                     /;

Cela suit la plupart des autres réponses en ce sens qu'il n'y a pas d'espaces entre les nombres et que les espaces de fin sont conservés. Un espace entre les nombres peut facilement être ajouté avec 1+avant {"_ |"=}%. Emballé dans un numéro de base 3, puis en tant que base 243 dans une chaîne.

Nabb
la source

C'est suffisant. J'ai mis à jour la question pour ne pas déranger avec l'espace inutile entre les chiffres.

mootinator

6

Je pense que le truc "placeholder ..." est un peu déroutant.

Eelvex

8

J, ^{90 , 78} 68 caractères

[ mise à jour: en utilisant le codage unicode (1 octet):

,./(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

fonctionne comme avant:]

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

La clé réside dans le codage des chiffres sous forme d'entiers en base 3. Zéro, par exemple, est:

:
 _ 
| |
|_|

ou ' _ | ||_|', qui devient 010202212 ₃ = 2750.

Eelvex
la source

Je pourrais enregistrer 10 caractères si J avait des nombres en base 36 de haute précision. Des suggestions quelqu'un?

Eelvex

J'utilise du binaire maintenant. Je me demande si le trinaire me sauverait quelques coups?

luser droog

2

félicitations pour avoir le 1000ème post sur codegolf.SE! ( http://codegolf.stackexchange.com/q/1000)

Poignée de porte

2+ ans de retard mais merci :)

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})]]

Usage

z@1234567890

chiffres

DavidC
la source

5

JavaScript (145)

~~148~~ 145

Étant donné que JavaScript n'a pas vraiment d'entrée / sortie standard, cela est écrit comme une fonction qui prend une chaîne et renvoie la sortie sous forme de chaîne.

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}

Espacées:

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
}

Voici comment cela fonctionne:

Chaque forme de chiffre est codée dans un caractère Unicode composé de 9 bits.
Les trois premiers bits correspondent à la première ligne, etc.
Dans chaque groupe de trois bits, le premier spécifie si le premier caractère est |ou espace, le second si c'est _ou espace, et le troisième à nouveau |ou espace.
Ces trois bits sont récupérés sous la forme c&1, c&2et c&4, qui sont ensuite utilisés comme index dans la chaîne b.
À chaque itération, i%Lest la «coordonnée x», c'est-à-dire le chiffre dans l'entréen
À chaque itération, i/Lest la «coordonnée y», c'est-à-dire la ligne, mais nous devons |0en faire un entier
Enfin, les espaces entre les chiffres et les sauts de ligne entre les lignes sont également récupérés par indexation dans b, en réutilisant le caractère espace et la position 3 autrement inutilisée dans cette chaîne! :)

Timwi
la source

Unicode! BAH! ... eh bien, il est plus court que le mien. +1

luser droog

5

Rubis, 142

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

attend l'entrée dans la variable x. exemples:

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

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

Patrick Oscity
la source

ooooo. joli! ...

luser droog

3

Golfscript - 97 caractères

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

grignoteur
la source

Utilisez le backtick pour enregistrer un caractère pour toutes les chaînes numériques (comment puis-je insérer ce caractère dans le format de code?)

Nabb

@Nabb: Vous ne pouvez pas - StackExchange est de la merde comme ça ...

Timwi

3

Windows PowerShell, 127

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

Étant donné que les chaînes contiennent des caractères désagréables à écrire, un hexdump pour votre commodité:

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
la source

5

Regardez tous les smileys ..

Wang Dingwei

3

gForth, 186 175 caractères

Nouvelle version:

: 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

Cela dérange en fait de quitter (+3 caractères) aussi :). Voici la version la plus lisible, elle fait un peu de compression pour réduire la taille de la LUT de 1/3, mais le code résultant est plus complexe, donc ce n'est pas beaucoup d'économies:

: 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

Ancienne version:

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

Cela laisse la pile déséquilibrée et ne prend pas la peine de quitter l'interpréteur. Voici une version plus claire et plus lisible

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

Troy Deck
la source

2

Caractères 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())));}

Je pourrais facilement découper quelques caractères. Il s'agissait davantage d'abuser de LINQ :)

Plus de version d'espaces blancs:

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
la source

Tout d'abord, vous avez besoin d'une déclaration de classe et du usings (409). Ensuite, il y a un espace blanc inutile qui peut être supprimé (402). La tâche indique que les espaces entre les chiffres doivent être omis (399).

Joey

Euh, merci. J'ai modifié la tâche car personne ne suivait la règle d'origine des espaces blancs. N'hésitez pas à modifier la réponse si cela vous offense, car je m'en fiche.

mootinator

gn'est utilisé qu'une seule fois, vous pouvez donc enregistrer 7 caractères en l'intégrant.

Timwi

1

En fait, il bn'est également utilisé qu'une seule fois, vous pouvez donc l'inclure également. En outre, vous pouvez enregistrer un grand nombre de caractères si vous modifiez le tableau d'entiers en "{H=mNgwI\x7fo", ou même plus court si vous passez \x7fau caractère réel # 127 (qui n'est pas imprimable, mais autorisé). Le >>fonctionnera toujours car il y a une conversion implicite de charà int.

Timwi

De plus, le .ToCharArray()et le .ToArray()sont redondants, vous pouvez simplement les supprimer :)

Timwi

2

Solution Java: ~~585~~ 570 caractères

Je ne pense pas que je vais essayer de jouer au golf à 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
la source

Votre version java est bien meilleure / plus courte que la mienne :) btw! ... est-ce que 6 dans la représentation d'horloge numérique a un capuchon (_) en haut ou non? Je me suis perdu après la sortie!

Aman ZeeK Verma

Après avoir vérifié la cafetière derrière moi, les 6 devraient avoir un capuchon. Je mettrai à jour ma solution.

Mitch

2

Python, 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)

Avec des sauts de ligne:

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
la source

2

Bash, 11 caractères

toilet "$i"

Oui je sais, je triche.

Vous devez avoir installé des toilettes.

Wug
la source

1

Et définissez la police par défaut sur un avec 7 numéros d'affichage de segment. figletfonctionnerait également.

Rob

2

Java, 2095

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();
        }   
    }
}

EXEMPLE D'E / S

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

Aman ZeeK Verma
la source

5

Je devrais commencer à détester java :)

Aman ZeeK Verma

1

Java est idéal pour beaucoup de choses, mais le code laconique est n'en pas partie.

Jonathan M Davis

2

Eh bien, ce code n'est même pas joué au golf. Cela pourrait être beaucoup plus court.

Joey

J'ai un peu joué à votre code;)

joué à

1

D: 295 caractères

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);}

Plus lisiblement:

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
la source

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

Version lisible

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
la source

1

Perl (182 180)

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

lit de STDIN.

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

memowe
la source

1

Ghostscript (270) (248) (214)

Edit: Plus de substitutions. Suppression de l'espace entre les chiffres.

Edit: Encore plus de substitutions. La boucle principale ressemble maintenant à ce qu'elle fait!

/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

Utilise la fonction de traitement des arguments de ghostscript: invoquer avec gs -dNODISPLAY -- digit.ps 012 345 6789.

luser droog
la source

1

Delphi || 453 (568 avec format)

Pas même assez près pour gagner mais c'était amusant à faire ^. ^

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.

Avec format

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
la source

1

PHP, 140 136 133 131 129 129 128 octets

^{Je pourrais économiser 5 7 de plus avec ascii étendu: un pour "| _"et le saut de ligne, trois pour ~"z/]{4lno~|"(la négation au niveau du bit transformerait tout en caractères ascii étendus = pas de caractères spéciaux, et PHP n'a pas besoin de guillemets), deux pour -1(c'est seulement là pour garder la carte en ascii standard). Mais pour la lisibilité et la compatibilité, je reste avec ascii standard.}

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);

le bitmap

Prendre LEDS _, |_|, en |_|tant que bits -6-, 024, 135(nombre de bits et 2 est égal à 0 pour les LED verticales)
Créez des bitmaps pour les nombres 0 à 9: [123,48,94,124,53,109,111,112,127,125]
Diminuer de 1 pour tous les codes ascii imprimables -> "z/]{4lno~|"
nier -> ~"z/]{4lno~|"(permet un raccourci ternaire dans la sélection des caractères)

le gabarit

utiliser 7pour les espaces -> 767, 024,135
regroupement des colonnes au lieu de rangées -> 701, 623, 745(rend $p=0obsolète)
reverse -> 547326107(lire la carte de droite à gauche; permet le bouclage arithmétique)
ajouter zéro -> 5473261070(permet de combiner décalage avec test en tête de boucle)
lire octal, convertir en décimal -> 753754680(deux octets plus court: un chiffre et le préfixe)

panne

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
la source

+16 octets pour l'hexadécimal:ord(~"z/]{4lno~|v.J=NF"[hexdec($c)])-1

Titus

1

Java 8, 280 octets

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);}}

Explication:

Essayez-le ici.

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

En tant que fonction, ce serait plutôt 218 octets .

Kevin Cruijssen
la source

0

Python, 227 caractères

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 et direct.

David Sousa
la source

0

Perl, 145 caractères

$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

Non 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
la source

0

Python 3.4.3 - 1514 858 octets

La tentation de résoudre ce problème était trop grande pour ne pas s'inscrire et répondre = P

Je suis un peu nouveau sur Python, j'ai donc formaté mon programme de manière agréable et soignée (ou du moins je l'ai fait). Les améliorations sont grandement appréciées!

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)

Edit: noms de variables raccourcis, utilisés; pour raccourcir, un seul espace à la fin des numéros de sortie, des variables définies à la fois.

Les nouvelles lignes font 2 octets (CRLF) et j'ai utilisé des tabulations au lieu de 4 espaces.

la source

2

Bienvenue sur Programmation Puzzles & Code Golf! Comme il s'agit d'un défi de golf de code, vous voudrez rendre votre code aussi court que possible. Ces conseils peuvent être utiles pour le golf.

Alex A.

"J'ai utilisé des tabulations au lieu de 4 espaces" Je suis confus. Pourquoi n'utilisiez-vous pas des onglets de toute façon? ;)

Courses de légèreté avec Monica

0

SmileBASIC, 216 octets

?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

Utiliser des graphiques au lieu du texte, car il est probablement plus court.

Explication:

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
la source

0

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

#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';}

Lit depuis stdin et sort vers stdout.

Explication:

#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
la source

0

Powershell, 114 octets

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 test:

$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"

Sortie:

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

Idée principale:

Chaque numéro de style d'horloge numérique standard contient 3 lignes. De plus, la première ligne ne contient que 2 options. Un total de 6 options. Par conséquent, 7 bits suffisent pour coder chaque chiffre.

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'

Ainsi, la chaîne f-SR5Z^mvrcode tous les segments pour tous les numéros de style d'horloge numérique standard.

Remarque: L'ordre du a line strété spécialement sélectionné pour que tous les codes soient dans l'intervalle 32..126.

mazzy
la source

Rendre les nombres «Style d'horloge numérique»

Réponses:

APL (Dyalog) (45)

Funciton

wxpython, plusieurs caractères

Golfscript - 66 caractères

J, ^{90 , 78} 68 caractères

Mathematica 205 209 198 179

JavaScript (145)

Rubis, 142

Golfscript - 97 caractères

Windows PowerShell, 127

gForth, 186 175 caractères

Caractères C # 369

Python, 218 180 176

Bash, 11 caractères

Java, 2095

D: 295 caractères

Ocaml, 268

Perl (182 180)

Ghostscript (270) (248) (214)

Delphi || 453 (568 avec format)

Avec format

PHP, 140 136 133 131 129 129 128 octets

Java 8, 280 octets

Python, 227 caractères

Python 3.4.3 - 1514 858 octets

SmileBASIC, 216 octets

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

Powershell, 114 octets

Rendre les nombres «Style d'horloge numérique»

Réponses:

APL (Dyalog) (45)

Funciton

wxpython, plusieurs caractères

Golfscript - 66 caractères

J, 90 , 78 68 caractères

Mathematica 205 209 198 179

JavaScript (145)

Rubis, 142

Golfscript - 97 caractères

Windows PowerShell, 127

gForth, 186 175 caractères

Caractères C # 369

Python, 218 180 176

Bash, 11 caractères

Java, 2095

D: 295 caractères

Ocaml, 268

Perl (182 180)

Ghostscript (270) (248) (214)

Delphi || 453 (568 avec format)

Avec format

PHP, 140 136 133 131 129 129 128 octets

Java 8, 280 octets

Python, 227 caractères

Python 3.4.3 - 1514 858 octets

SmileBASIC, 216 octets

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

Powershell, 114 octets

J, ^{90 , 78} 68 caractères