2 added 8 characters in body
source | link

Mathematica 38

This simply returns the digits less than or equal to x, in the order in which they appear below.

Row@Select[{9,5,2, 9, 6, 4, 7, 1, 8, 5, 3},#<x+1&]

The results from 4 through 9:

enter image description hereoutput

Mathematica 38

This simply returns the digits less than or equal to x, in the order in which they appear below.

Row@Select[{9,5,2,6,4,7,1,8,3},#<x+1&]

The results from 4 through 9:

enter image description here

Mathematica 38

This simply returns the digits less than or equal to x, in the order in which they appear below.

Row@Select[{2, 9, 6, 4, 7, 1, 8, 5, 3},#<x+1&]

The results from 4 through 9:

output

1
source | link

Mathematica 38

This simply returns the digits less than or equal to x, in the order in which they appear below.

Row@Select[{9,5,2,6,4,7,1,8,3},#<x+1&]

The results from 4 through 9:

enter image description here