疯狂的8s码高尔夫


34

创建一个程序,该程序打印一个间隔内的所有整数(包括两端)(a, b),并用随机(均匀分布,独立于其他字符),非数字,非空格,可打印的ASCII字符替换序列中8的倍数。

假设在所有情况下0 <a <b。

如果数字超过1位,请确保替换字符数匹配!

例子:

(1, 16) -> 1 2 3 4 5 6 7 $ 9 10 11 12 13 14 15 n@

(115, 123) -> 115, 116, 117, 118, 119, :F<, 121, 122, 123

(1, 3) -> 1 2 3

非示例:

(1, 16) -> 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

(115, 123) -> 115 116 117 118 119 $ 121 122 123

这是代码高尔夫球,因此以字节为单位的最短代码将获胜!

目前获奖者:

泥泞鱼的皮克(21字节)

最受欢迎:

Dennis的Python 2(119字节)


11
恭喜您挑战出众,将所有超长事物结合在一起,以我的高尔夫语言来实现
Blue Blue

1
@muddyfish我的意思是挑战;)
GracefulLemming

我不确定是否缺少某些内容,但是随机字符是否应该唯一?例如,如果输入为16、16,那么输出可以为aa吗?如果不是这种情况,那么该数字是否超过85位(假设我计算正确)怎么办?
FryAmTheEggman '16

@FryAmTheEggman每个字符在大多数情况下应该是唯一的,但是如果连续随机选择“ a”和“ a”是可以的,但是由于概率极低
GracefulLemming

@FryAmTheEggman和其他示例中的案例16、16返回0或2个随机字符,但不必担心该案例,因为a始终严格小于b
GracefulLemming

Answers:


4

Pyke,22 21字节

h1:Fi8%!I`lV~Kl7T>Hs0

在这里尝试!

取得输入形式:higherlower

h1:                   -  range(lower, higher+1, 1)
   F                  - for i in ^:
    i8%               -    i % 8 
       !              -   not ^
        I             -  if ^:
         `l           -    len(str(i))
           V          -   repeat V ^ times
            ~K        -        printable_ascii
              l7      -       ^.strip()
                T>    -      ^[10:]
                  H   -     random.choice(^)
                   s0 -    sum(^)

列表都很好!
GracefulLemming

这很有趣,我看到的第一种情况是8n,8n导致错误
GracefulLemming

糟糕的是,我误读了输出
GracefulLemming

11

Python 2,126字节

在线尝试!

import random,string
def f(a,b):
 while b/a:print[a,eval('random.choice(string.printable[10:-6])+'*len(`a`)+"''")][a%8<1];a+=1

非常感谢Flp.Tkc和EasterlyIrk的所有帮助!


2
您可以使用b/a代替,最后a<=b不需要;。还import random,string节省了几个字节。tio.run/nexus/…–
丹尼斯

@Dennis,谢谢,那花了7个字节!
heather


6

zsh,100 98字节

for i in {$1..$2};{((i%8))&&<<<$i||<<<`yes 'shuf -e {!..~}|grep "[^0-9]"|head -c1'|head -$#i|zsh`}

两个输入参数作为命令行参数传递,数字在单独的行上输出。

for i in {$1..$2};{   # loop through the range
((i%8))&&             # if the number is not divisible by 8 (i % 8 != 0),
<<<$i||               # output it
<<<`                  # otherwise, output the following:
yes '                 # using `yes' as a golfy loop
shuf -e {\!..\~}      # shuffle the range of printable ASCII (minus space)
|grep "[^0-9]"        # get rid of numbers
|head -c1'            # take the first character
|head -$#i            # obtain a string with that code repeated len(i) times... 
|zsh                  # ... and eval it
`}

请问你为什么要输出的数字由8整除?
GracefulLemming

1
@Caleb糟糕,那是一个错字。它的意思是“ 不能被8整除”。
门把手

5

Mathematica,96个字节

Range@##/.a_?(8∣#&):>Join[33~(c=CharacterRange)~47,58~c~127]~RandomChoice~⌊Log10@a+1⌋<>""&

说明

对于输入mn

Range@##

生成 {m, m + 1, m + 2, ... , n}

/.a_?(8∣#&):>

对于所有可被8整除的数字(称为a),请应用以下替换规则:

Join[33~(c=CharacterRange)~47,58~c~127]

获取所有可打印的ASCII字符(数字除外)的列表。

... ~RandomChoice~⌊Log10@a+1⌋

伪随机地Floor[Log10[a] + 1]从列表中选择字符,从而允许重复。

<>""

加入角色。


使用96字节的另一种方法FromCharacterCode (r=Range)@##/.a_?(8∣#&):>FromCharacterCode[Join[33~r~47,58~r~127]~RandomChoice~⌊Log10@a+1⌋]<>""&
jaeyong

5

R,73个字节

i=scan();x=i[1]:i[2];x[!x%%8]=sample(sapply(c(32:46,58:126),intToUtf8));x

从stdin读取输入,并用8均匀选择的范围内的ascii字符样本替换用可整除的数字32...47, 58...126。要绘制随机样本,我们需要一个字符向量,不幸的是intToUtf8()返回一个字符串而不是向量,因此我们还必须使用对该向量进行向量化sapply


5

Python 2,126字节

(不只是超越高尔夫丹尼斯)

看到我在希瑟的答案上做了大量工作时,我想我也应该发布自己的解决方案。

import random,string
def f(a,b):
 while b/a:print[a,eval('random.choice(string.printable[10:-6])+'*len(`a`)+"''")][a%8<1];a+=1

这是一个需要两个参数并直接打印到的函数STDOUT

127字节

import random,string
lambda a,b:[[x,eval('random.choice(string.printable[10:-6])+'*len(`x`)+`''`)][x%8<1]for x in range(a,b+1)]

这是一个未命名的匿名函数-使用,分配给变量(例如f),然后使用进行调用f(a, b)。这将输出作为列表返回。


这是不正确的。随机选择的字符不能包含数字。
丹尼斯

@丹尼斯好吧,回到我的拼接想法:P感谢大家的注意
FlipTack

Python 2似乎是最受欢迎的竞争者,我喜欢它!
GracefulLemming

4

,28字节

Fia,b+1Pi%8?i{RC@>PA@`\D`}Mi

将数字用作命令行参数,并打印换行符分隔的结果列表。在线尝试!

说明:

                              a,b are cmdline args; PA is string of all printable ASCII
Fia,b+1                       For i in range(a, b+1):
       P                       Print this:
        i%8?i                  If i%8 is truthy (nonzero), i; otherwise:
             {           }Mi   Map this function to the digits of i:
                @>PA           All but the first character of PA (removes space)
                    @`\D`      Find all regex matches of \D (nondigits)
              RC               Random choice from that list of characters
                               The map operation returns a list, which is concatenated
                               before printing

4

JavaScript(ES6),114个字节

f=(x,y)=>(x+"").replace(/./g,d=>x%8?d:String.fromCharCode((q=Math.random()*84)+(q>15?43:33)))+(x<y?[,f(x+1,y)]:"")

O.textContent = f(1,200)
<pre id=O>

那些带有23字节名称的内置命令....


1
替换字符不应为数字
-LarsW

@LarsW不知何故错过了,谢谢
ETHproductions

3

MATL,26字节

&:"@8\?@}6Y24Y2X-Xz@VnT&Zr

在线尝试!

说明

&:        % Input a and b (implicit). Push range [a a+1 ... b]
"         % For each k in that range
  @       %   Push k
  8\      %   Modulo 8
  ?       %   If non-zero
    @     %     Push k
  }       %   Else
    6Y2   %     Push string of all printable ASCII chars
    4Y2   %     Push string '0123456789'
    X-    %     Set difference
    Xz    %     Remove space. Gives string of possible random chars
    @Vn   %     Push number of digits of k
    T&Zr  %     Random sample with replacement of that many chars from the string
          % End if, end for each, display (implicit)

哇酷!好答案。+1
希瑟

@希瑟谢谢!我觉得它可以做得更短...
Luis Mendo

3

Pyth,24个字节

jm?%d8dsmO-r\~\ jkUT`d}F

在线尝试!

说明:

jm?%d8dsmO-r\~\ jkUT`d}FQ  # Auto-fill variables
                      }FQ  # Splat inclusive range on the input
 m?%d8d                    # Map over each number, if it isn't divisible by 8 return it
       smO          `d     # for each other number, select a character at random for
                             each of it's digits and then flatten into one string
           r\~\            # Printable ASCII excluding space
          -     jkUT       # Setwise difference with numeric values (remove numbers)
j                          # Join with newlines

3

击+ 次助攻64,76字节

编辑:

  • 修复了“ 8 8”问题,从一组随机字符(+12个字节)中排除了数字字符

打高尔夫球

seq $1 $2|sed "$[(7&(8-$1%8))+1]~8s/.*/a=&;apg -a1 -n1 -Mcsl -m\${#a} -x0/e"

测试

>./crazy8 8 8
$

>./crazy8 115 123
115
116
117
118
119
As_
121
122
123

>./crazy8 1 16
1
2
3
4
5
6
7
"
9
10
11
12
13
14
15
x!

您能简要介绍一下吗?也crazy8 8 8很想知道会产生什么
GracefulLemming

@Caleb,实际上它只会原样输出,对于8 8,看来我已经过度使用它了,现在就进行修复。它也不会从随机字符串字符集中过滤掉数字(我也错过了)。
齐柏林飞艇

2

Perl 6,60个字节

{map {$_%8??$_!!S:g/./{grep(/\D/,"!".."~").pick}/},$^a..$^b}

说明:

  • { map { }, $^a .. $^b }:一个带两个参数的lambda,生成该范围内的整数列表,然后对每个元素应用以下转换返回它:
  • $_ % 8 ?? $_ !!:如果该元素不能被8整除,则将其原样传递。除此以外...
  • S:g/./{ }/:...用此表达式生成的值替换其字符串表示形式的每个字符:
  • grep(/\D/, "!" .. "~").pick:生成介于!和之间的字符范围~(以Unicode顺序排列),过滤掉数字,并随机选择其余字符之一。

1

PHP,163字节

$n=range(48,57);$c=array_diff(range(32,126),$n);
foreach(range($a,$b) as $v){if($v%8!=0){echo $v;}
else{for($i=0;$i<strlen($v);$i++){echo chr($c[array_rand($c)]);}}}

说明:

  • $n = range(48,57) 这些是数字的ASCII码,位于特殊字符(32-47)和其他字符(58-126)的中间。
  • $c = array_diff(range(32,126), $n)使用该$n数组,排除数字字符并构建一个可接受的ASCII字符数组。
  • foreach(range($a,$b) as $v)循环从$ $a$b(包括)在内的值范围,如$ v在循环内。
  • if($v % 8 != 0) { echo $v; }使用mod运算符测试$ v被8整除%
  • else { for($i = 0; $i < strlen($v); $i++) { ... }} 如果不能被8整除,请为数字中的数字循环足够的次数,并打印字符(在下一步中)。
  • echo chr($c[array_rand($c)])从中可接受的ASCII值数组中打印一个字符$carray_rand返回数组中的索引,因此我们必须使用来获取该索引处的实际值$c[random_key]

我可能可以通过创建$c不同的方法来使它变小,并且打印ASCII字符的循环感觉很笨拙,因此我将继续考虑如何缩短它。


1
谢谢杰克!很高兴收到您的来信!如果您还有时间,请看看我的新挑战“随机像素戳”!
GracefulLemming

1

postgresql9.6 251个字符

很长的代码,但postgresql也可以。

do language plpgsql $$ begin for n in a..bloop raise info'%',case when 0=n%8then(select array_to_string(array(select*from(select chr(generate_series(33,126)))t where chr!~'\d'order by random()limit floor(log(n))+1),''))else n::text end;end loop;end;$$

格式化的sql在这里:

do language plpgsql $$
begin
for n in a..b loop
    raise info '%',
    case when 0 = n % 8 then (
        select array_to_string(array(select * from (
            select chr(generate_series(33, 126))
        ) t where chr !~ '\d' order by random() limit floor(log(n)) + 1), '')
    ) else n::text
    end;
end loop;
end;
$$

1

Perl,66个字节

map{$_%8||s%.%do{$_=chr rand 126}until/[!-\/:-~]/;$_%ge;say}<>..<>

-E标志运行:

perl -E 'map{$_%8||s%.%do{$_=chr rand 126}until/[!-\/:-~]/;$_%ge;say}<>..<>' <<< "8
16"

这很简单:
- <>..<>创建2个输入数字之间的数字列表。然后map遍历它:
- $_%8||......仅当$_是8的倍数时才执行
-- s%.%xxx%ge:用替换每个字符xxx
- do{$_=chr rand 126}until/[!-\/:-~]/选择一个随机字符(从代码0到126),直到得到满足的字符/[!-\/:-~]/,即。可以打印而不是数字的数字。
- say:打印。


1

C(gcc)129119字节

s(a,r){a&&s(!isdigit(r=rand()%94+33)?putchar(r),a/10:a,0);}f(a,b){b>a&&f(a,b-1);b%8?printf("%d",b):s(b,0);printf(" ");}

在线尝试!

129→119使用OOBalance%94+33技巧

取消高尔夫:

s(a,r){
    a&&                                  // Loop recursively on a!=0
    s(!isdigit(r=rand()%94+33)           // Test random selection
      ?putchar(r),a/10                   // Print and reduce a
      :a                                 // Retry random selection
      ,0);                               // Second arg, recurse
}
f(a,b){
    b>a&&                                // Loop recursively on b>a
    f(a,b-1);                            // Reduce b, recurse
    b%8?printf("%d",b)                   // Print non 8's
       :s(b,0);                          // Call s() for 8's
    printf(" ");                         // Space separator
}

如果更改为换行符(puts而不是printf),则可以节省3个字节。
OOBalance

使用您的解决方案会更有趣:-)
jxh

1

C,157115字节

f(a,b){b-a&&f(a,b-1);if(b%8)printf("%d",b);else for(;b;b/=10){while(isdigit(a=rand()%94+33));putchar(a);}puts("");}

在这里在线尝试。感谢jxh打高尔夫球42个字节。

非高尔夫版本:

f(a, b) { // recursive function, parameters are implicitly int
    b-a && f(a, b-1); // recurse until a = b
    if(b % 8)            // if the number is a multiple of 8
        printf("%d", b); // simply print it
    else for(; b; b /= 10) { // while b > 0, lop off the last digit
        while(isdigit(a = rand() % 94 + 33)); // generate random characters in ASCII range [33, 127] until one is non-numeric
        putchar(a); // print the character
    }
    puts(""); // print a newline
}

聊天可以继续进行
DJMcMayhem

1

爪哇10,149个 147字节(lambda函数)

b->a->{var r="";for(;a<=b;r+=" ",a++)for(var c:(a+"").split("")){char t=0;for(;t<33|t>126|t>47&t<59;t*=Math.random())t=127;r+=a%8<1?t:c;}return r;}

在线尝试。

Java的10,227个 225字节(全程序)

interface M{static void main(String[]A){var r="";for(var a=new Long(A[0]);a<=new Long(A[1]);r+=" ",a++)for(var c:(a+"").split("")){char t=0;for(;t<33|t>126|t>47&t<59;t*=Math.random())t=127;r+=a%8<1?t:c;}System.out.print(r);}}

在线尝试。

说明:

b->a->{          // Method with two integer parameters and String return-type
  var r="";      //  Result-String, starting empty
  for(;a<=b      //  Loop as long as `a` is smaller than or equal to `b`
      ;          //    After every iteration:
       r+=" ",   //     Append a space to the result-String
       a++)      //     And increase `a` by 1
    for(var c:(a+"").split("")){
                 //   Inner loop over the characters of the current number
      char t=0;  //    Random-char, starting at 0
      for(;t<33|t>126|t>47&t<59;
                 //    Loop until `t` is a non-digit printable ASCII char
          t*=Math.random())t=127;
                 //     Set `t` to a random character with a unicode in the range [0,127)
      r+=a%8<1?  //   If the current `a` is divisible by 8:
          t      //    Append the random character
         :       //   Else:
          c;}    //    Append the digit instead
  return r;}     //  Return the result

范围[0,127]不符合规范:“非数字,非空白,可打印ASCII”
OOBalance

@OOBalance也许我的评论没有得到很好的解释,但这t<33|(t>47&t<59)|t>126;就是上面的地方。它基本上会在范围内生成一个随机数[0,127),然后检查它是否有效(因此在范围内[33..47,59..126],所有可打印的非数字ASCII字符)。如果是:很好,请附加它。如果不是,请:在此范围内[0,127)再次生成一个随机数,然后再次进行验证,直到找到有效的字符为止。
凯文·克鲁伊森

不,我认为您的评论很好。我的坏事:)
OOBalance

1

APL(Dyalog扩展),32字节

{(?84¨⍕⍵)⊇⎕D~⍨'!''~'}¨@{0=8|⍵}…

在线尝试!

非常感谢Adámdzaima的帮助。第一次使用Dyalog Extended!

说明:

{(?84¨⍕⍵)⊇⎕D~⍨'!''~'}¨@{0=8|⍵}…   Dyadic 2-train

                                  Tacit range: list of numbers from left arg 
                                   to right arg inclusive
{(?84¨⍕⍵)⊇⎕D~⍨'!''~'}¨@{0=8|⍵}    Monadic function applied to above          
                        {     }    Function definition
                           8|⍵     8 modulo every item in our range
                         0=        Transform list into a boolean vector, with
                                   1 where item was equal to zero, 0 otherwise
                      ¨@           Applies left function to each item selected
                                   by above
{                    }             Function definition
              '!''~'              Range of all printable ASCII chars
          D~⍨                     Remove numeric characters from above
 (    ⍕⍵)                          Convert function argument to string
                                   (e.g., 123 -> "123")
   84¨                             For each character, replace with number 84
                                   (number of non-numeric printable ASCII chars)
  ?                                Generate random number from 1-84 for each
                                   84 in list
                                  Index the ASCII char list with above random
                                   numbers

1

Scala,198字节

具有不变状态的改进功能版本(03-04-2018)

  def S(a: Int, b: Int)={
    val c=(33 to 47)++(58 to 126)
    val r = (a to b).toStream.map {case x if x%8==0=>c(Random.nextInt(c.length)).toChar.toString
      case x => String.valueOf(x)}
    r}

在线尝试!

一个有趣的Scala功能性解决方案(350字节)。

def r(a:Int, b:Int)={
    var l=(33 to 47).toList:::(58 to 126).toList
    l=Random.shuffle(l)
    var x=ListBuffer[String]()
    var k=0
    (a to b).toList.foreach{e=>{
         if(k==l.length){k=0
         l=Random.shuffle(l)}
         if (e.toInt%8==0){x+=l(k).toChar.toString
           k+=1}
         else{x+=e.toString
             k+=1}}}
    x}

欢迎提出改进建议。


1
在这里,关于代码高尔夫本身,我们仅允许至少已经尝试打高尔夫球的答案。这意味着1个字符变量名称和空格删除android向您的答案中添加了一个字节数
Blue

@muddyfish好吧,我打了我的代码,android如何增加字节数?
firephil

现在对我来说似乎不错
蓝色

0

Python 2,180字节

from random import*
def f(a,b):
 for i in range(a,b+1):
  if i%8<1:
   k,i=str(i),''
   for _ in k:i+=choice([chr(j)for j in range(33,48)]+[chr(j)for j in range(57,126)])
  print i

编辑:

感谢@ Flp.Tkc意识到我没有正确阅读任务。

感谢@Caleb指出我可以使用一些方法来减少字节数。

感谢@Dennis指出不能包含数字的事实。

编辑2:

当前版本可能比原来更简化了。


0

PowerShell82 89字节

$a,$b=$args;$a..$b|%{($_,(-join[char[]](33..47+58..127|random -c "$_".Length)))[!($_%8)]}

在线尝试!


1
58..127在33(!)到47(/)的较低范围内不包括可打印的ASCII符号。
齐柏林飞艇

@zeppelin是的,我不认为这是必要条件,但是重新阅读它,我想必须是统一分发。更新!
briantist

0

QBIC,79字节

::[a,b|~c%8=0|[_l!c$||_R33,116|~e>47 and e<58|e=e+z]Z=Z+chr$(e)]\Z=Z+!c$]Z=Z+@ 

跳过数字是一件昂贵的事情,这是一个版本,它也可能会随机选择0-9少20个字节:

::[a,b|~c%8=0|[len(!c$)|Z=Z+chr$(_r33,126|)]\Z=Z+!c$]Z=Z+@ 

的样本输出 1, 89

1 2 3 4 5 6 7 U 9 10 11 12 13 14 15 M9 17 18 19 20 21 22 23 ^L 25 26 27 28 29 30 
31 <U 33 34 35 36 37 38 39 gH 41 42 43 44 45 46 47 aJ 49 50 51 52 53 54 55 1b 57 58 59 60 
61 62 63 ,C 65 66 67 68 69 70 71 ]; 73 74 75 76 77 78 79 [B 81 82 83 84 85 86 87 Ix 89 

说明:

::        Get inputs 'a' and 'b' from the command line
[a,b|     FOR(c=a; c<=b; c++)
~c%8=0|   IF c is cleanly divisible by 8 THEN
 _l!c$|   Take the length (_l) of the string representation (! ... $) of c 
[      |  FOR (d = 1; d<= length(c); d++)
_R33,116| Set e to a random value in the range 33 - 116 (all the printable ascii's - 10)
~e>47     IF e falls between 47
and e<58| and 58 (ASCII code for 0-9) THEN 
e=e+z     e = e + 10 (z == 10 in QBIC)
]         END IF
Z=Z+      Add to Z$
chr$(e)]  ASCII character e
\         ELSE if c is not cleanly divisible by 8
Z=Z+!c$   Add to Z the string representation of c
]         NEXT
Z=Z+@     Add a space to Z$ (@ is an implicitly delimited string literal with 1 significant space)

( Z$ is implicitly printed at end of program )

0

05AB1E,17 个字节

ŸεD8ÖižQžhK¦.rsg£

将输入作为highest\nlowest,并输出列表。

在线尝试验证所有测试用例

说明:

Ÿ                  # Create a list in the range [low (implicit) input, high (implicit) input]
 ε                 # Map each value to:
  D                #  Duplicate the value
   8Öi             #  If it's divisible by 8:
      žQ           #   Push all printable ASCII characters (" " through "~")
        žhK        #   Remove all digits
           ¦       #   Remove the first character (the space)
            .r     #   Randomly shuffle the remaining characters
              s    #   Swap to take the map value again
               g   #   Get its length
                £  #   And leave that many characters from the string
                   # (and implicitly output the resulting list after we're done mapping)

0

Japt,20字节

;òV ®%8?Z:EÅk9ò)öZìl

试试吧

;òV ®%8?Z:EÅk9ò)öZìl     :Implicit input of integers U & V
 òV                      :Range [U,V]
    ®                    :Map each Z
     %8                  :  Modulo 8
       ?Z:               :  If truthy, return Z, else
;         E              :  Printable ASCII
           Å             :  Slice off first character
            k            :  Remove
             9ò          :    Range [0,9]
               )         :  End remove
                 Zì      :  Digit array of Z
                   l     :  Length
               ö         :  Get that many random characters from the string

0

第四(gforth),128字节

include random.fs
: f 1+ swap do i 8 mod if i . else i 0 <# #s #> 0 do 83 random 33 + dup 47 > 10 * - emit loop ."  "then loop ;

在线尝试!

说明

从头到尾循环,打印数字(如果不是8的倍数),否则获取数字中的数字并打印那么多随机字符,后跟一个空格

代码说明

include random.fs          \ include/import the random module
: f                        \ start new word definition
  1+ swap                  \ add 1 to end number, because forth loops are [start, end), and swap order
  do                       \ start counted loop form start to end
    i 8 mod                \ get the remainder of dividing i (loop index) by 8
    if                     \ if true (not 0, therefore not multiple of 8)
      i .                  \ print the index
    else                   \ otherwise
      i 0                  \ convert index to double-length number
      <# #s #>             \ use formatted numeric output to convert number to a string
      0 do                 \ loop from 0 to (string-length - 1)
        84 random          \ get random number between 0 and 83
        33 +               \ add 33
        dup 47 >           \ check if result is larger than 47
        10 * -             \ if it is add 10 to result (results in number in range: 33-47,58-126)
        emit               \ output ascii char corresponding with number
      loop                 \ end inner loop
    ."  "then            \ output a space and then close the if/else
  loop                   \ end the outer loop
;                        \ end the word definition

松散

我通常不会取消高尔夫的解决方案,但是这一解决方案太长/太复杂了,以至于我认为需要

include random.fs

\ get the length (in digits) of a number
: num-length 0 <# #s #> nip ;

\ check if a number is a multiple of another
: is-multiple mod 0= ;               

\ get a random printable non-digit ascii char           
: random-char 84 random 33 + dup 47 > 10 * - ;  

\ get a "random" string of printable ascii chars the same length as a number
: rand-str num-length 0 do random-char emit loop space ;

\ print numbers from a to b, replacing multiple of 8 with a random ascii string of the same length
: crazy-eights 1+ swap do i 8 is-multiple if i rand-str else i . then loop ;

0

PHP,130字节

function($a,$b){for(;$a<=$b;$a++)echo$a%8?$a:(function($l){while($l--)echo chr(($x=rand(44,128))-($x>58?:11));})(strlen($a))," ";}

在线尝试!

取消高尔夫:

function c8( $a, $b ) { 
    for( ; $a<=$b; $a++ ) {                // loop between a -> b
        echo $a % 8 ? $a :                 // every 8, call anon func instead of value
            (function($l) {
                while( $l-- ) {            // repeat length of value
                    $x = rand( 44, 128 );  // range size is printable chars [33,47][58,127]
                    $x-= $x > 58 ?: 11;    // Subtract one from x. If x was less than or 
                                           // equal to 58, subtract a further ten from it
                                           // so that it now falls within the 33-47 range
                    echo chr( $x );        // echo ASCII value
                }
            })( strlen( $a ) )," ";
    }
}

是的,我的错。关于$x-= $x > 58 ?: 11; // subtract 11, if x is less than 58-您能详细说明吗?
乔纳森·弗雷奇

@JonathanFrech换句话说,我们想要一个介于33-47或58-127之间的数字。因此,我们选择的数字是58减去下限范围的大小。如果该数字低于58,则通过减去差值将其转换为较低的范围。因为我们当然不能显示数字(ASCII char 48-57)
640KB

三元只是实现此目的的捷径。基本上$ x> 58的结果为1,因此我们从$ x减去该值或11。在更高的情况下,它会由于rand()语句中的ASCII值高一而偏移。你可以看到,这会产生均匀随机(尽可能均匀PHP的兰特()能够)分布:tio.run/...
640KB

我想我大致了解Elvis运营商的工作,我只是认为您的评论具有误导性。
Jonathan Frech

我认为它的工作原理是Subtract one from x. If x was less than or equal to 58, subtract a further ten from it.,不是吗?
Jonathan Frech

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.