入力として(少なくとも 20の長さの)数字の文字列を取る最短のプログラムを作成し、標準のデジタル時計スタイルの数字を使用して出力を表示します。たとえば、入力81の場合、ascii出力のソリューションは次のようになります。
_
|_| |
|_| |
グラフィカルな出力も役立ちます。
入力として(少なくとも 20の長さの)数字の文字列を取る最短のプログラムを作成し、標準のデジタル時計スタイルの数字を使用して出力を表示します。たとえば、入力81の場合、ascii出力のソリューションは次のようになります。
_
|_| |
|_| |
グラフィカルな出力も役立ちます。
回答:
{3 3⍴' _|'[1+⍵⊤⍨9⍴3]}¨⎕UCS'ા8धगɯેࣃଏ૽'[1+⍎¨⍞]
文字列、ા8धगɯેࣃଏ૽
はユニコード文字です2750 56 2343 2327 623 2759 2777 2243 2831 2813
(ただし、単にコピーして貼り付けることができるはずです)。それらは数字をエンコードします。プログラムはキーボードから行を読み取ります。
説明:
1+⍎¨⍞
:キーボードから行を読み取り、各文字を数字として解析し、各番号に1を追加します(APL配列はデフォルトで1ベースです)。⎕UCS'ા8धगɯેࣃଏ૽'[
... ]
:入力した数字の桁に属する文字を選択し、Unicode値を検索します。{
... }¨
:これらの各値に対して、次の操作を行います。1+⍵⊤⍨9⍴3
:base-3で表現された値から最初の9 base-3桁を取得し、1を追加します(配列は1ベースであるため)。' _|'[
... ]
:これらの数字に応じて、スペース、水平線、または垂直線を選択します3 3⍴
:3行3列のボックスとしてフォーマットします。本当にゴルフに適した言語ではありません...しかし、それにもかかわらず、私はコードサイズをできる限り小さくしようとしました-「通常の」言語とはまったく異なる挑戦です。これは1555文字または3110バイトです(UTF-16としてエンコードされている場合、UTF-8の方が大きい)。
実行中のプログラムのスクリーンショットを次に示します。それは実際に動作します :)
StackExchangeでは余分な行間隔のためにこれは見苦しいため、ブラウザのJavaScriptコンソールで次のコードを実行して修正することを検討してください。 $('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╟───────────┘
╚═══╝ ╚════╝╚═══╝
出力が前面に戻ったために間違えなかった場合は、おそらく小さい可能性があります。入力を逆にするための追加の関数を追加することでそれを修正しました。そうでなければ、おそらくすべてを書き直す必要があります。
また、別のミス(2回の呼び出しでオペランドを交換する‼
)により、余分な‡
関数を宣言する必要がありましたが、これは非常に小さいため、メイン関数内に収まるため、文字は追加されません!
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()
テスト
echo -n 81 | python codegolf-997-wx.py
ps:深刻なエントリではありませんが、グラフィカルな出力も受け入れられるようですので、試してみました:-)
"placeholder text for userscript which counts chars ";
xxd
:(xxd -r
元に戻すために使用)
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 /;
これは、数字の間にスペースがなく、後続のスペースが保持されるという点で、他のほとんどの答えに従います。数字の間にスペースを1+
beforeで簡単に追加できます{"_ |"=}%
。ベース3の数値にパックされ、ベース243としてストリングにパックされます。
[ 更新:ユニコード(1バイト)エンコーディングを使用:
,./(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
前と同じように動作します:]
,./(10 3 3$((90$3)#:1219424106940570763878862820444729939648410x){' _|'){~"./. '58321'
_ _ _ _
|_ |_| _| _| |
_||_| _||_ |
キーは、数字を基数3の整数としてエンコードします。ゼロ、たとえば:
:
_
| |
|_|
または' _ | ||_|'
、010202212 3 = 2750になります。
http://codegolf.stackexchange.com/q/1000
)
148 145
JavaScriptには実際には標準の入出力がないため、これは文字列を受け取り、出力を文字列として返す関数として記述されています。
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}
間隔:
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
}
仕組みは次のとおりです。
最初の3ビットは最初の行などのためのものです。
3ビットの各グループでは、最初の文字が最初の文字が|
スペースであるかどうかを指定し、2番目の文字がスペースであるかどうかを指定し、3番目の文字が_
再び|
スペースであるかを指定します。
これらの3ビットはc&1
、c&2
およびとして取得さc&4
れ、文字列へのインデックスとして使用されますb
。
各反復でi%L
、「x座標」、つまり入力内の数字n
各反復でi/L
、「y座標」、つまり行ですが|0
、整数にする必要があります
最後に、数字の間のスペースと行間の改行も、にインデックスを付けることb
で取得されます。スペース文字とその文字列の未使用の位置3を再利用します。:)
' _ _ _ _ _ _ _ _
| | | _| _||_||_ |_ ||_||_|
|_| ||_ _| | _||_| ||_| _|'.lines{|l|puts x.chars.map{|i|l[i.to_i*3,3]}*''}
変数に入力が必要ですx
。例:
x = '321'
# _ _
# _| _| |
# _||_ |
x = '42'
# _
# |_| _|
# ||_
$i="$input"[0..99]
'☺ ☺☺ ☺☺☺☺☺','♠☻♥♥♦♣♣☻♦♦','♦☻♣♥☻♥♦☻♦♥'|%{$c=$_
""+($i|%{('···0·_·0··|0·_|0|_|0|_·0|·|'-split0)[$c[$_-48]]})}
文字列には書きにくい文字が含まれているため、便宜上、hexdumpを使用します。
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]]})}
新しいバージョン:
: 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
これは実際に終了するのも面倒です(+3文字):)。これはより読みやすいバージョンです。ビットパッキングを行ってLUTサイズを1/3減らしますが、結果のコードはより複雑になるため、それほど節約にはなりません。
: 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
古いバージョン:
: s query parse-word bounds s" _ _ _ _ _ _ _ _ | | | _| _||_||_ |_ ||_||_||_| ||_ _| | _||_| ||_| |" bounds do cr 2dup do i c@ '0 - 3 * j + 3 type loop 30 +loop ; s
これにより、スタックのバランスが崩れ、インタプリタを終了する必要がなくなります。これはより読みやすいバージョンです
: 7s query parse-word bounds
s" _ _ _ _ _ _ _ _ | | | _| _||_||_ |_ ||_||_||_| ||_ _| | _||_| ||_| |"
bounds do
cr
2dup do
i c@ '0 - 3 * j + 3 type
loop
30 +loop 2drop bye ;
7s
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())));}
いくつかの文字を簡単に切り取ることができました。ポイントはLINQを悪用することでした:)
より多くの空白バージョン:
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())));
}
using
s(409)が必要です。次に、削除できる不要な空白があります(402)。タスクは、数字間の空白を省略することを示しています(399)。
g
は一度だけ使用されるため、インライン化することで7文字を節約できます。
b
にも1回だけ使用されるため、インライン化することもできます。また、整数配列をに変更すると、多くの文字を保存できます。実際の文字#127(印刷不可ですが、許容)に"{H=mNgwI\x7fo"
変更\x7f
すると、さらに短くなります。>>
以下からの暗黙的な変換があるため、まだ動作しますchar
にはint
。
.ToCharArray()
と.ToArray()
はどちらも冗長です。削除するだけで済みます:)
Javaソリューション:585 570文字
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();}}}
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)
改行あり:
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)
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();
}
}
}
サンプルI / O
java DigitalNumber 98765432109876543210
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
|_||_| ||_ |_ |_| _| _| || ||_||_| ||_ |_ |_| _| _| || |
_||_| ||_| _| | _||_ ||_| _||_| ||_| _| | _||_ ||_|
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);}
より読みやすく:
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);
}
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
読みやすいバージョン
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
#!perl -l
$_=<<7;
_ _ _ _ _ _ _ _
| | | _| _||_||_ |_ ||_||_|
|_| ||_ _| | _||_| ||_| _|
7
@b=map{[/(...)/g]}split/\n/;@d=split//,<>;for$p(@b){print map$p->[$_],@d}
STDINから読み取ります。
$ perl 7segment.pl
1234567890987654321
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
| _| _||_||_ |_ ||_||_|| ||_||_| ||_ |_ |_| _| _| || |
||_ _| | _||_| ||_| _||_| _||_| ||_| _| | _||_ ||_|
編集:より多くの代替。数字間のスペースを削除しました。
編集:さらに多くの置換。メインループは今やそれのように見えます!
/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
ghostscriptの引数処理機能を使用:invoke with gs -dNODISPLAY -- digit.ps 012 345 6789
。
勝つほど近くはありませんでしたが、楽しかったです^。^
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.
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
終わり。
拡張ASCIIでさらに5 7を節約できます:for "| _"
とlinebreak、3 for ~"z/]{4lno~|"
(ビットごとの否定はすべて拡張ASCII文字になります=特殊文字なし、PHPはそこに引用符を必要としません)、2 for -1
(それはマップを標準のASCIIに保持するためだけにあります)。しかし、読みやすさと互換性のために、標準のASCIIのままにします。
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);
ビットマップ
_
、|_|
、|_|
ビットとして-6-
、024
、135
(ビット数&2は、垂直LEDの0です)[123,48,94,124,53,109,111,112,127,125]
"z/]{4lno~|"
~"z/]{4lno~|"
(文字選択で3進表記を許可)テンプレート
7
スペースのために- > 767
、024
、135
701
、623
、745
(はレンダリング$p=0
廃止)547326107
(マップを右から左に読みます;算術ループを許可します)5473261070
(ループヘッドのテストとシフトを組み合わせることができます)753754680
(2バイト短縮:1桁とプレフィックス)壊す
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
ord(~"z/]{4lno~|v.J=NF"[hexdec($c)])-1
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);}}
説明:
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
機能として、これは代わりに218バイトになります。
Perl、145文字
$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
ゴルフをしていない:
# 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;
これを解決する誘惑は、サインアップして= Pと答えないほど大きかった
私はPythonに少し慣れていないので、プログラムをきれいにフォーマットしました(または少なくとも私はそうしました)。改善は大歓迎です!
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)
編集:短縮された変数名、使用。出力番号の末尾にスペースを1つだけ短縮するために、変数を一度に定義しました。
改行は2バイト(CRLF)で、4つのスペースではなくタブを使用しました。
?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
おそらく短いので、テキストの代わりにグラフィックを使用します。
説明:
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
#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';}
stdinから読み取り、stdoutに出力します。
説明:
#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
}
param($a)6,3,0|%{$l=$_
-join($a|% t*y|%{(' 0 _ 0 _|0|_ 0| |0 |0|_|'-split0)[(+('f-SR5Z^mvr'["$_"])-shr$l)%8]})}
テストスクリプト:
$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"
出力:
_ _ _ _ _ _ _ _
| _| _||_||_ |_ ||_||_|| |
||_ _| | _||_| ||_| _||_|
_
|_| |
|_| |
本旨:
各標準デジタル時計スタイル番号には3行が含まれています。さらに、最初の行には2つのオプションのみが含まれています。合計6つのオプション。したがって、各桁をエンコードするには7ビットで十分です。
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'
そのため、文字列f-SR5Z^mvr
はすべての標準デジタル時計スタイル番号のすべてのセグメントをエンコードします。
注:の順序は、line str
すべてのコードが間隔内にあるように特別に選択されました32..126
。