Skip to main content
deleted 12 characters in body
Source Link

R, 22 1919 17 bytes

ProducingFollowing earlier resolutions, this R code is producing two different sequences with the correct limiting frequencies whether \$s=0\$ (penultimate digits) or \$s\ne 0\$:

(1:n%/%10^  (!s)last digits)%%10:

1:n%/%10^(!s)%%10

Try it online!Try it online!

As for checking whether or not the merged sequences work as well, one can tryrun, e.g.,

summary(as.factor((10*((1:n)%/%10%%10)+((1:n)%%10))))
summary(as.factor((10*(1:n%/%10%%10)+(1:n%%10))))

R, 22 19 bytes

Producing two different sequences with the correct limiting frequencies whether \$s=0\$ or \$s\ne 0\$:

(1:n%/%10^(!s))%%10

Try it online!

As for checking whether or not the merged sequences work as well, one can try

summary(as.factor((10*((1:n)%/%10%%10)+((1:n)%%10))))

R, 22 19 17 bytes

Following earlier resolutions, this R code is producing two different sequences with the correct limiting frequencies whether \$s=0\$ (penultimate digits) or \$s\ne 0\$  (last digits):

1:n%/%10^(!s)%%10

Try it online!

As for checking whether or not the merged sequences work as well, one can run, e.g.,

summary(as.factor((10*(1:n%/%10%%10)+(1:n%%10))))
added 11 characters in body
Source Link

R, 2222 19 bytes

Producing two different sequences with the correct limiting frequencies whether \$s=0\$ or \$s\ne 0\$:

((1:n)%/%(1+9*!s))%%10

(1:n%/%10^(!s))%%10

Try it online!

As for checking whether or not the merged sequences work as well, one can try

summary(as.factor((10*((1:n)%/%10%%10)+((1:n)%%10))))

R, 22 bytes

Producing two different sequences with the correct limiting frequencies whether \$s=0\$ or \$s\ne 0\$:

((1:n)%/%(1+9*!s))%%10

Try it online!

As for checking whether or not the merged sequences work as well, one can try

summary(as.factor((10*((1:n)%/%10%%10)+((1:n)%%10))))

R, 22 19 bytes

Producing two different sequences with the correct limiting frequencies whether \$s=0\$ or \$s\ne 0\$:

(1:n%/%10^(!s))%%10

Try it online!

As for checking whether or not the merged sequences work as well, one can try

summary(as.factor((10*((1:n)%/%10%%10)+((1:n)%%10))))
added 1 character in body
Source Link

R, 2122 bytes

Producing two different sequences with the correct limiting frequencies whether \$s=0\$ or \$s\ne 0\$:

(((-31:n)^%/%(1+9*!s)*)%%10

Try it online!

As for checking whether or not the merged sequences work as well, one can try

summary(as.factor((10*((1:n)%/%10%%10)+((1:n)%%10))))

Try it online!

R, 21 bytes

Producing two different sequences with the correct limiting frequencies whether \$s=0\$ or \$s\ne 0\$:

(((-3)^!s)*(1:n))%%10

Try it online!

R, 22 bytes

Producing two different sequences with the correct limiting frequencies whether \$s=0\$ or \$s\ne 0\$:

((1:n)%/%(1+9*!s))%%10

Try it online!

As for checking whether or not the merged sequences work as well, one can try

summary(as.factor((10*((1:n)%/%10%%10)+((1:n)%%10))))
added 14 characters in body
Source Link
Loading
deleted 9 characters in body
Source Link
Loading
added 34 characters in body
Source Link
Loading
added 88 characters in body
Source Link
Loading
Source Link
Loading