DVI连接器引脚

23

从更简单的角度来看，这应该是代码高尔夫挑战。但是我认为在这里进行一些微优化可能会很好。

DVI连接器有三种基本类型：DVI-A（模拟），DVI-D（数字）和DVI-I（集成）。此外，还有DVI-D和DVI-I连接器的单链接和双链接版本。这五个不同的连接器中的每一个都使用一组不同的引脚。

给定的一个A，D1，D2，I1，I2作为用于连接器的种类的识别符，打印连接器的销的对应的ASCII表示：

A:
#   #  # # #       # #
=====  # # #          
#   #  # #         # #

D1:
       # # #     # # #
=====  # # #     # # #
       # # #     # # #

D2:
       # # # # # # # #
=====  # # # # # # # #
       # # # # # # # #

I1:
#   #  # # #     # # #
=====  # # #     # # #
#   #  # # #     # # #

I2:
#   #  # # # # # # # #
=====  # # # # # # # #
#   #  # # # # # # # #

（这些X:行不是输出的一部分，您只应打印3行。）

您可以编写程序或函数，通过STDIN，ARGV或函数参数获取输入。必须使用可选的尾随换行符将输出打印到STDOUT。

您可能会或可能不会在A连接器的第二行中包含尾随空格。您不得在其他任何地方使用其他前导或尾随空格。

这是代码高尔夫球，因此最短的答案（以字节为单位）获胜。

code-golf  ascii-art  kolmogorov-complexity 
— 马丁·恩德
source
我是否可以要求输入用引号引起来，例如"I1"而不是I1？
— Claudiu 2014年
是否允许在其他行上使用尾随空格？
— got_native 2014年
1
@Claudiu不，对不起。
— Martin Ender 2014年
@gone_native也不，抱歉（将其添加到帖子中）。
— Martin Ender 2014年

Answers:

3

CJam，79 70字节

受nutki的回答启发。这也确保没有尾随空格（第二行除外）

"VF­wGC}*D"176b6b" DG1A="f=r'1+2<"  "aer{_s" ="&\"# "?}%s23/Wf<N*

使用此链接复制代码，因为SE去除了不可打印的字符。

不可打印的ASCII范围内有5个字符，但在一个字节之内（ASCII码255）

运作方式：

"VF­wGC}*D"176b6b" DG1A="f=              "This effectively results into this string:"
                                        "D  D GGG11AGG=====  GGG11AAAD  D GGA11AGG";
r'1+2<                                  "Read the input, convert A to A1";
      "  "er                            "Replace the occurrences of above two characters"
                                        "with double space '  '";
            {_s" ="&\"# "?}%s           "Convert every non = and space character to '# '";
                             23/        "Divide the string into parts of 23 characters";
                                Wf<     "String last character from above parts";
                                   N*   "Join with new line";

在这里在线尝试

— 优化器
source
16

Perl- 100 91（包括1个标志）

使用nutki的使用-p和减少双倍空格的想法。还简化了尾部空格的消除。

#!perl -p
$x=$_|" qb";$_="dbd xxxqqqax#
=====bxxxqqqaaa!dbd xxaqqqax#";s/[$x]/  /g;s/\w/# /g;s/ !/
/

输入来自stdin，并且必须仅包含连接器类型，没有尾随换行符。

以前：

$x=shift|" q";$_="d  d xxxqqqaxx
=====  xxxqqqaaa
d  d xxaqqqaxx";s/[$x]/  /g;s/\w/# /g;s/ $//mg;say

接受命令行参数。取消高尔夫：

# Read argument, transform A->aq, I1->iq, I2->is, D1->dq, D2->ds
$x=shift|" q";

# String compacted
$_ = "d  d xxxqqqaxx
=====  xxxqqqaaa
d  d xxaqqqaxx";

# Clear any pins with matching char in input
s/[$x]/  /g;
# Convert rest to '#'
s/\w/# /g;
# Eliminate trailing spaces
s/ $//mg;
say
— God_native
source
2
处理参数的巧妙想法。您仍然可以通过在模板中添加$x=shift|" qb"和替换3次出现的双倍空格来节省2个字节b。同样将输入处理更改为'-p'会得到7个额外的值（减去标志）：$x=$_|""而不需要final say。
— nutki 2014年
@nutki-谢谢，我错过了！
— got_native 2014年
@MartinBüttner -所有3线都尾部空格，虽然我发现我可以通过从转换的最终炭在那些线容易地固定在第一和第三行x到#。但是第二行在所有情况下仍具有尾随空格。对于A，该空间超出了#其他所有行的末尾（我认为这在技术上是允许的）。但对于I1，I2等等。在这种情况下，仍然需要留有余地。我想我可以打出更多的角色。
— got_native 2014年
@gone_native哦，您是对的。
— Martin Ender 2014年
9

Python，168个字符

t=raw_input()*2
Q="G   G  # # # 2 2 H # #\n=====  # # # 2 2 H H H\nG   G  # # H 2 2 H # #"
for A,B,N in('G0A','H0D','212'):Q=Q.replace(A,' #'[t[int(B)]in'I'+N])
print Q

似乎是一种新方法。我有字符串：

G   G  # # # 2 2 H # #
=====  # # # 2 2 H H H
G   G  # # H 2 2 H # #

我更换G，H以及2根据输入。

— 克劳迪乌
source
5

Ĵ，153 121 119个字符

缩小的 
('='(;/1,.i.5)}"_1' #'{~5 3 22$#:128#.32x-~3 u:'dt*`J%Q5"xjuH%Jv2uJ!H5 t*`J%@5Jp*uH%Jv2p*!H dp"')echo@{~I1`I2`D1`D2 i.<

第三种方法：将所有 和打包#成一个巨大的整数，作为位。之后添加=。但是，仍然没有利用许多连接器变体的对称性。

未缩小 
n =. 128 #. 32x -~ 3 u: 'dt*`J%Q5"xjuH%Jv2uJ!H5 t*`J%@5Jp*uH%Jv2p*!H dp"'
f =. ('=' (;/1,.i.5)}"_1 ' #' {~ 5 3 22 $ #: n) echo@{~ I1`I2`D1`D2 i. <
缩小的（153） 
[:echo@>({&(' #=',LF)&.:>;._2#;._1#:96#.32x-~3 u:' (0%dziqrDwbh5Ds6[gEl)_xkBS6?61m$1ne/v(]!&yW?_{K.S^X#Yn_d%O71KqXEw=I;meH>@eG2|2/gcR0'){~D1`D2`I1`I2 i.<

还作为功能。这是一种变长二进制编码，将二进制数加1并用零分隔。连续0个表示 ，1个表示#，2个表示=，3个表示换行，4个将五个字符串彼此分开。

不打高尔夫球 
s =. ' (0%dziqrDwbh5Ds6[gEl)_xkBS6?61m$1ne/v(]!&yW?_{K.S^X#Yn_d%O71KqXEw=I;meH>@eG2|2/gcR0'
f =. [: echo@> ({&(' #=',LF)&.:>;._2 #;._1 #: 96 #. 32x -~ 3 u:s) {~ D1`D2`I1`I2 i. <
— 萤火虫
source
4

Marbelous，281个字节/字符

缩小：

00
]]
GG]]
IIJJJJ
:G
}0
++
>>
>X{0
/\{<{>
:H
}0
-Z
>E-2
-C//
{0
:I
23232003002023}023
LLMMMMNNRROOMMRRLL
0003
0300
NNNN
:J
}0}1
HH-2
KKKK
:K
}1}0
}1}0}0
PPPPQQ
:L
}020
}0202020
:M
20}020}020}0
:N
}0
}020
+W20
:O
3D3D3D3D3D}0
:P
}023}1230A
LLMMNNMM
:Q
2023}0230A
OOMMNNMM
:R
}0
\/0A

这需要D1，D2，I1，I2或A从标准输入。输入中的尾随换行符是可选的。输出到STDOUT。

该程序调用子板，该子板可打印连接器的部分，#根据输入内容填充s或留出空格。

在这里尝试这个答案；需要圆柱板。

有评论：

00 .. ..
]] .. .. # get A/D/I
Gt ]] .. # pass into Gt; call PA if A or PrDI if D/I
PA Pr DI

# If 'A' is passed, a marble is emitted down
# Otherwise, marbles are sent left/right
# The value of the marble outputted is (I+1)/2, which creates a difference of 3
#   between D and I, the difference between a space and a #
:Gt
}0 .. ..
++ .. ..
>> .. ..
>X {0 ..
/\ {< {>

# Returns 0 if '1' is passed, and 3 if '2' is passed
:Ff
}0 ..
-Z ..
>E -2
-C //
{0 ..

# Prints connector A 
# Calls made: P1(23) P2(23) P2(20) P3(03) LF(00) P4(20) P2(23) LF(}0) P1(23)
#   P3(03) P3(00) P3(00) P3(03)
:PA
23 23 20 03 00 20 23 }0 23
P1 P2 P2 P3 LF P4 P2 LF P1
00 03 .. .. .. .. .. .. ..
03 00 .. .. .. .. .. .. ..
P3 P3 .. .. .. .. .. .. ..

# Prints connectors D0/D1/I0/I1
# }0 is either '1' or '2'
# }1 is either 32 or 35 (for D or I)
:PrDI
}0 }1
Ff -2
Li DI

# Helper for PrDI
# Calls made: L1(}1, }0) L2(}0) L1(}1, }0)
:LiDI
}1 }0 ..
}1 }0 }0
L1 L1 L2

# Prints '#   # ' (}0 = 0x23) or '      ' (}0 = 0x20)
:P1
}0 20 .. ..
}0 20 20 20

# Prints ' # # #' (}0 = 0x23) or '      ' (}0 = 0x20)
:P2
20 }0 20 }0 20 }0

# Prints ' # #' (}0 = 0x03) or '    ' (}0 = 0x00)
:P3
}0 ..
}0 20
+W 20

# Prints '===== ', }0 must be 0x20
:P4
3D 3D 3D 3D 3D }0

# Prints the top/bottom line of D/I connectors + newline
# Calls made: P1(}0) P2(23) P3(}1) P2(23) 
:L1
}0 23 }1 23 0A
P1 P2 P3 P2 ..

# Prints the middle line of D/I connectors + newline
# Calls made: P4(20) P2(23) P3(}0) P2(23)
:L2
20 23 }0 23 0A
P4 P2 P3 P2 ..

# Emits a newline (0x0A) regardless of input
:LF
}0 ..
\/ 0A
— es1024
source
4

Perl 5：105（包括1个标志）

另一个Perl解决方案。使用stdin作为参数。

#!perl -p
@x=map$_?'#':$",!/D/,-/2/,!/A/,1,0;$_='040 33311233
=====433311222
040 33211233';s/\d/$x[$&] /g;s/ $//mg
— 坚果
source
4

GNU sed，116字节

s/.*/&:#   #  33322433\n=====  33322444\n#   #  33422433/
/A/s/[42]/  /g
/1/s/2/  /g
/D/s/#/ /g
s/[2-4]/ #/g
s/.*://

输出：

$ echo "A
D1
D2
I1
I2"|sed -f dvi.sed
#   #   # # #       # #
=====   # # #          
#   #   # #         # #
        # # #     # # #
=====   # # #     # # #
        # # #     # # #
        # # # # # # # #
=====   # # # # # # # #
        # # # # # # # #
#   #   # # #     # # #
=====   # # #     # # #
#   #   # # #     # # #
#   #   # # # # # # # #
=====   # # # # # # # #
#   #   # # # # # # # #
$
— 数字创伤
source
3

J，198194157字符

缩小的 
3 22 echo@$'x   x  # # # x x x # #=====  # # # x x x x xx   x  # # x x x x # #'('x'I.@:=])}~(5 16$(#' #'$~#)"."0'4123212128262126290901824'){~D1`D2`I1`I2 i.<

实现为功能。请注意，该函数是一列火车，这意味着必须使用括号将其括起来或将其分配给一个名称才能使用它（也许我应该将括号作为函数的一部分，尽管从技术上讲并不是这样）。

不打高尔夫球 
S1 =. (#' #'$~#)"."0'4123212128262126290901824'
S2 =. 'x   x  # # # x x x # #=====  # # # x x x x xx   x  # # x x x x # #'
f  =. 3 22 echo@$ S2 ('x'I.@:=])}~ (5 16$S1) {~ D1`D2`I1`I2 i. <

这个想法是将字符串的公共部分与连接器类型之间不同的字符分开存储。 S1存储唯一字符，并S2充当模式，x以充当要填充的占位符。

— 萤火虫
source
3

蟒- 167 166 164 161 159

C=raw_input()
a=["#   # "," "*6]["D"in C]
r=" #"
b="A"in C
i=3-b
d=(r*[i,5][C[1:]>"1"]).rjust(10)
t=r*3
print a+t+d+"\n===== "+t+d*~-len(C)+"\n"+a+r*i+"  "*b+d
— 法尔科
source
3

JavaScript的（ES6）178 186

编辑具有7个基块，使用基数7
直接使用带有replace和7个基块的字符串构建。
根据OP的要求使用Alert输出到stdout。
现在，我将尝试一些微观优化...

F=t=>alert(
  {A:21349062249,D1:538695058296,D2:534740169498,I1:151139015296,I2:147184126498}[t]
  .toString(7).replace(/./g,c=>'\n0#   # 0===== 0 # # #0 # #0      0    '.split(0)[c])
)

测试在火狐/萤火控制台-删除“警报”来简化测试

;['A','D1','D2','I1','I2'].forEach(i=>console.log(F(i)))

输出量

#   #  # # #       # #
=====  # # #
#   #  # #         # #

       # # #     # # #
=====  # # #     # # #
       # # #     # # #

       # # # # # # # #
=====  # # # # # # # #
       # # # # # # # #

#   #  # # #     # # #
=====  # # #     # # #
#   #  # # #     # # #

#   #  # # # # # # # #
=====  # # # # # # # #
#   #  # # # # # # # #
— edc65
source
2

APL（115）

V←3 22⍴''⋄V[2;⍳5]←'='⋄V[⍳3;(2=⍴I)/(6+2×⍳8)~14 16/⍨'1'∊I]←V[⍳2;12]←V[⍳3;8 10]←V[R/1 3;1 5 20 22/⍨R←∨/'AI'∊I←⍞]←'#'⋄V

测试：

      V←3 22⍴''⋄V[2;⍳5]←'='⋄V[⍳3;(2=⍴I)/(6+2×⍳8)~14 16/⍨'1'∊I]←V[⍳2;12]←V[⍳3;8 10]←V[R/1 3;1 5 20 22/⍨R←∨/'AI'∊I←⍞]←'#'⋄V
A
#   #  # # #       # #
=====  # # #          
#   #  # #         # #
      V←3 22⍴''⋄V[2;⍳5]←'='⋄V[⍳3;(2=⍴I)/(6+2×⍳8)~14 16/⍨'1'∊I]←V[⍳2;12]←V[⍳3;8 10]←V[R/1 3;1 5 20 22/⍨R←∨/'AI'∊I←⍞]←'#'⋄V
D1
       # # #     # # #
=====  # # #     # # #
       # # #     # # #
      V←3 22⍴''⋄V[2;⍳5]←'='⋄V[⍳3;(2=⍴I)/(6+2×⍳8)~14 16/⍨'1'∊I]←V[⍳2;12]←V[⍳3;8 10]←V[R/1 3;1 5 20 22/⍨R←∨/'AI'∊I←⍞]←'#'⋄V
D2
       # # # # # # # #
=====  # # # # # # # #
       # # # # # # # #
      V←3 22⍴''⋄V[2;⍳5]←'='⋄V[⍳3;(2=⍴I)/(6+2×⍳8)~14 16/⍨'1'∊I]←V[⍳2;12]←V[⍳3;8 10]←V[R/1 3;1 5 20 22/⍨R←∨/'AI'∊I←⍞]←'#'⋄V
I1
#   #  # # #     # # #
=====  # # #     # # #
#   #  # # #     # # #
      V←3 22⍴''⋄V[2;⍳5]←'='⋄V[⍳3;(2=⍴I)/(6+2×⍳8)~14 16/⍨'1'∊I]←V[⍳2;12]←V[⍳3;8 10]←V[R/1 3;1 5 20 22/⍨R←∨/'AI'∊I←⍞]←'#'⋄V
I2
#   #  # # # # # # # #
=====  # # # # # # # #
#   #  # # # # # # # #
— 马里纳斯
source
@MartinBüttner：天哪，固定
— marinus
2

JavScript ES6，186个字节

f=c=>(b=(c[0]=='D'?'      ':'#   # '))+(e=(g=r=>parseInt(r,36).toString(2).replace(/./g,n=>' '+[' ','#'][n]))((o=c[1])?(o-1?73:'6f'):'6b'))+'\n===== '+(o?e:' # # #')+'\n'+b+(o?e:g('5f'))

显示代码段

该代码既快速又肮脏，但是可以完成工作。通常，将#'和's放入二进制，然后以36为底。我正在寻找一个更优雅，更短的解决方案。

— 忍者熊猴子
source
当我单击“运行代码段”时，我什么都看不到。
— AL
这可能是因为它使用了ECMAScript 6箭头功能，只有最新的Firefox版本才支持。
— NinjaBearMonkey
我使用Firefox的最新版本进行了测试，但没有任何反应。有什么要做的测试此功能吗？
— AL 2014年
1
哦，那是因为这只是一个功能。我将添加一种测试方法。
— NinjaBearMonkey
您可以编辑代码以使其可以作为代码段运行（使用第二个代码块保留原始代码），也可以删除代码段渲染器。
— AL
1

Perl 5-150（149 + 1 for n）

打高尔夫球：

@b=split//;$_='0   0 ###112##
===== ###11222
0   0 ##2112##';
@c=(@b[0]eq D,@b[1]ne 2,@b[0]eq A);@d=('#',$");s/([#12])/ \1/g;s/(\d)/$d[$c[$1]]/ge;say

从STDIN输入，输出到STDOUT。通过使用#或取决于输入来填充某些字符来工作。

取消高尔夫：

@b=split//; # char array from input
$_='0   0 ###112##
===== ###11222
0   0 ##2112##';

@c=(@b[0] eq 'D',@b[1] ne '2',@b[0] eq 'A');
@d=('#',' ');

s/([#12])/ \1/g; # add spaces
s/(\d)/$d[$c[$1]]/ge; # replace numbers with appropriate character
say $_;
— es1024
source
By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.