1,2,错过几个,99,100

2021-02-24 17:12

当我还是个孩子的时候,有一个“非常酷”的快捷方式可以数到100:1,2,错过几个,99,100以尽可能少的字符输出上面的精确字符串,而不使用这些字符:0,1,2,9

解答动态

  • JavaScript(ES6),43 bytes 浏览器。
    ?=gt;[4-3,5-3,'miss a move',33*3,5*5*4].加入',` 在线试用!

    • Bash+coreutils,40 tr 3-?/-:lt;quot; 在线试试!

      • R,43 41字节 cat(T+F:T,quot;,3*33+F:T,sep=quot;) 在线试用!
        T和F等于TRUE和FALSE。它们被运算符+和强制为整数1和0:.

        • 耳语v3,124..120 114字节 gt;,然后7 3 6 3 4 3 54 3 8quot;quot;错过一些gt;quot;Lquot;quot;quot;3gt;gt;gt;gt;gt;quot;请联机尝试!
          Ex型刨削:
          I使用每个行号为\$x\$的行都可以用\$x+k\cdot n\$调用,其中\$k\in\mathbb{n}\$和\$n\$是行的总数代码.示例从11行代码:对第1行的引用可以替换为12、23、34等。
          在线尝试翻译版本!
          线路线路:
          一如既往在低语中,我们跑完最后一行第一:
          gt;输出56 该行输出第56行的结果。由于代码没有56行,它实际输出的行是\$56\mod 11=1\$:
          gt;gt;quot; L是第1行中Each语句的参数。L转换为字符串。
          现在第2行:
          gt;然后7 3 6 3 4 3 54 3 8 创建一个以参数作为其元素的数组。如果我们打印这一行,我们会得到以下结果阵列:
          [1,,,,2,,,,,,'错过几个',','99,,'100] 参数:
          3行4: strings
          第6行:返回第3行的长度,得到2
          第7行:返回第5行的长度,所以我们得到一个1
          第8行:返回第53行的结果(实际上是9)乘以第6行的结果的幂,得到100
          54行(实际上是10):用第7行的结果减去第8行的结果,得到一个99

          • Jelly,23 bytes 3?,一个?j“·m????W?j?, 在线试用!
            工作原理 需要注意的一点是:Jelly有一个?atom,它打印一个字符串Jelly表示它的参数。Jelly中的列表不使用[和]作为打开/关闭标记,而是由逗号分隔的列表组成值:
            1,2,3,4,5? 打印1,2,3,4,5,不幸的是,没有空格。
            3?,?'?j“?m??7817;??W?j?,主链接。不带参数3-产生3;?-从3弹出,产生[1,2]?将前面的链接分组为nilad:3-100'-减量;99?-Tack;[99,100],-Pair;[[1,2],[99,100]]·将前面的链接分组为nilad:“·m?????-压缩字符串quot;W-Wrap;[quot;]j-Join;[1,2,[quot;],99100]j?,—用quot;;quot;

            • Ruby,42 bytes $lt;[3/3,6/3,'错过几个',33*3,5*5*4]*quot; 在线试用!乔纳的
              -4。借用Arnauld's answer.
              Ruby,46 44 bytes $lt;“#2;cd”。字节.插入(2,“错过几个”)*“,” 上网试试吧!
              代码点1、2和3的三个不可打印项位于包含manatwork中的quot;.
              -2的字符串中。具有相同字节数
              的其他版本

              • Python 3、54、51、47 42 bytes 节省了2字节,这要感谢Digial trampar建议用33*3=99替换8*8+35=99。
                节省了1字节,因为我意识到我可以用4*5*5=100替换8*8+36=100。
                节省了4字节,这要感谢dingledooper建议在打印中使用sep=','!由于ovs建议使用bytes对象,
                节省了5个字节。
                New Answer print(*b“#2;”,“miss a move”,*b“cd”,sep=“,”) b“#2;”等同于b“\1\2”。 在线试用!
                旧答案: 打印(fquot;)在线试试吧!

                • PHP,57 56 53 bytes printf('%c,%d,错过几个,%d,%o',7*7,5-3,33*3,64); 在线试用!
                  A printf,some spices,stir
                  EDIT:-1字节多亏了数字创伤
                  edit 2:-3字节多亏了Michael Dorgan的八进制,考虑了153和%x的十六进制,但它有一个1..
                  同样,不太有趣,但是通过manatwork缩短了2字节,通过BadHorsie改进了(似乎lt;?=5-4,',',5-3,',错过一些,',33*3,',',5*5*4; 在线试用!

                  • 脑力操,146字节 -[-gt;+gt;++lt;lt;]gt;--.-.-.-.-.-.gt;++++.lt;+++.gt;lt;gt;++++.-.lt;gt;lt;++.lt;lt;+++++.-.lt;+++.-..lt;+++.-.. 在线试一试!
                    A相当简单的255/5=51循环,在5个连续的单元格中给出ASCII 51和ASCII 102作为333ff,然后是hunt和peck策略。

                    • HTML+CSS,118 bytes gt;,gt;,遗漏了一些,gt;gt;gt;,gt;style>;c:在前面{内容:计数器(a) ;计数器-增量:a}d{计数器-增量:a 48}

                      • 斯塔克斯,由于Razetime
                        ü←φr5╧wL'?,20 19 17字节 节省了2字节??$?ò╠? 运行并调试it
                        原始脑死亡解决方案,以供参考仅限:
                        Stax,22 bytes ü2Φ??b?╙m 6??╘╘╘u? 运行并调试it

                        • PowerShell(ASCII应答),128 bytes $k=3-3;(@(46+3),@(53-3),@('miss a move'),@(57,57),@((46+3),48,48))

                          • %{$k++;if($k-eq3)${}else{($

                            • %[char${})-加入‘‘‘})})- 在线尝试!
                              PowerShell(Base64 one),135字节 [文本.编码]::Unicode.GetString([Convert]::FromBase64string('mqasacaamgasacaabqbpahmacwagageaibmaguadwasaaoqa5acwaiaaaxadaamaa=')) 在线试用!

                              • 外壳,31字节 M?←←←lt;/?433 在线试用!
                                Ex型夷平面:
                                m地图函数。。。?←←←减量字符3次lt;quot;ASCII移位";3

                                • Jelly,23 bytes “×?5?p?:?5??JkxXp?¥? 在线试用!
                                  和凯德的答案一样长,更无聊。

                                  • R,52 bytes cat(chartr)(quot;,quot;,quot;) 在线试试吧!
                                    将数字编码为大写字母,然后应用字符范围转换。因为我们不能直接键入0-9,所以我们将范围在两个方向上扩展1个字符,结果是/-:.

                                    • Jelly,22 bytes ????j“·m?????W?j?, 一个打印结果的完整程序。
                                      请联机试用!怎么做? ??.??j“?m????W?j?,-链接:无参数3-100?-出列-gt;[[1,2],[2,3],…,[98,99],[99100]]。-0.5?-索引到-gt;[1,2,quot;,99100]?,-quot;j-join-quot;,quot;,quot;miss a mowquot;,99,gt;`1,2,miss a mow,99,100`,Perl 5,43 bytes sayquot;=~y,a-L,/-:,r 将B-K转换为0-9(在范围的每一侧扩展一个ASCII码)并打� �
                                      在线尝试!
                                      Perl 5,43 bytes $,=quot;miss a move";,3*33,4*5*5 设置记录分隔符,并打印几个数字和一个字符串。
                                      联机试用!

                                      • Vyxal,21 20 19字节 3?÷?ff?У?q????W?,j 在线试用!
                                        Explained 3÷#stack=[1,2]?ff?У?q?#stack=[1,2,quot;]!电子X装置:
                                        B,C,miss a mow,JJ,baa 用文字字符串替换空输入。
                                        T`L`d 将大写字母转换为数字。

                                        • Julia,41 bytes ()-#1;quot;\1\2quot;strquot;\1\2gt;[1,2]和bquot;=>;[99100]

                                          • Python 2,59 bytes print','.join(map(str,(4-3,5-3,'miss a move',33*3,5*5*4))) 联机试用!
                                            感谢@arnauld for js answer

                                            • C(gcc),54 bytes l(){printf(quot;,7*7,5-3,33*3,64);} 在线试用!
                                              让我们用八进制为100节省几个字节:)

                                              • Pyth,29 bytes j+\,d[=hZhZquot;t=*ttt 联机试用!
                                                3.8变速器翻译:
                                                Z=0T=10打印(quot;.join(map(str,[(Z:=Z+1),Z+1,quot;,(T:=T*T)-1,T]))

                                                • PHP,48 bytes lt;s;s x3);} 由注释P.1启发。用法:
                                                  #includegt;#includegt;使用命名空间std;int main(){auto k=[](){for(int x:lt;quo;s)putchar(x-3);};

                                                  • End

                                                  免责声明:

                                                  本页内容仅代表作者本人意见,若因此产生任何纠纷由作者本人负责,概与琴岛网公司无关。本页内容仅供参考,请您根据自身实际情况谨慎操作。尤其涉及您或第三方利益等事项,请咨询专业人士处理。