deleted 61 characters in body

Source Link

edited Jul 7, 2018 at 20:36

15.5k
4
49
92

Husk, 1111 9 bytes

^{-2 thanks to @BMO!}

↑mS(d+d←)dNmSöd+d←dḣ

Try it online!

I'm not very good at Husk... I'm sure there's a way to shorten this somehow.Try it online!

Explanation

↑m          map(  flip take$
 m                     map
  S(    )               )
 S (\n->                                       )       <*>
  ö   d         (           .).    .   fromDecimal$      .
   d            fromDecimal
    +                         (++)
     d                     ++
      d  toDecimal
      ←                            toDecimal
       ←   (+1)
       d                                  (n-1)
         d toDecimal
                                                toDecimal n
          N   .
        ḣ                                                 [1     (\n->[1..]n])

↑mS(d+d←)dN mSöd+d←dḣ flip take$mapmap(\n->fromDecimal$toDecimal(n-1fromDecimal.)++toDecimal n.(++)[1.toDecimal.](+1)<*>toDecimal).(\n->[1..n])

Husk, 11 bytes

↑mS(d+d←)dN

Try it online!

I'm not very good at Husk... I'm sure there's a way to shorten this somehow.

Explanation

↑            flip take$
 m                     map
  S(    )                 (\n->                                       )
    d                          fromDecimal$
     +                                                   ++
      d                                    toDecimal
       ←                                            (n-1)
         d                                                 toDecimal n
          N                                                            [1..]

↑mS(d+d←)dN  flip take$map(\n->fromDecimal$toDecimal(n-1)++toDecimal n)[1..]

Husk, 11 9 bytes

^{-2 thanks to @BMO!}

mSöd+d←dḣ

Try it online!

Explanation

m          map(                                              )
 S                                               <*>
  ö            (           .).    .         .
   d            fromDecimal
    +                         (++)
     d                             toDecimal
      ←                                      (+1)
       d                                            toDecimal
                                                              .
        ḣ                                                      (\n->[1..n])

mSöd+d←dḣ  map((fromDecimal.).(++).toDecimal.(+1)<*>toDecimal).(\n->[1..n])

added 639 characters in body

Source Link

edited Jul 4, 2018 at 8:35

Esolanging Fruit

15.5k
4
49
92

Husk, 11 bytes

↑mS(d+d←)dN

Try it online!

I'm not very good at Husk... I'm sure there's a way to shorten this somehow.

Explanation

↑            flip take$
 m                     map
  S(    )                 (\n->                                       )
    d                          fromDecimal$
     +                                                   ++
      d                                    toDecimal
       ←                                            (n-1)
         d                                                 toDecimal n
          N                                                            [1..]

↑mS(d+d←)dN  flip take$map(\n->fromDecimal$toDecimal(n-1)++toDecimal n)[1..]

Husk, 11 bytes

↑mS(d+d←)dN

Try it online!

I'm not very good at Husk... I'm sure there's a way to shorten this somehow.

Husk, 11 bytes

↑mS(d+d←)dN

Try it online!

I'm not very good at Husk... I'm sure there's a way to shorten this somehow.

Explanation

↑            flip take$
 m                     map
  S(    )                 (\n->                                       )
    d                          fromDecimal$
     +                                                   ++
      d                                    toDecimal
       ←                                            (n-1)
         d                                                 toDecimal n
          N                                                            [1..]

↑mS(d+d←)dN  flip take$map(\n->fromDecimal$toDecimal(n-1)++toDecimal n)[1..]

Source Link

created Jul 4, 2018 at 8:20

Esolanging Fruit

15.5k
4
49
92

Husk, 11 bytes

↑mS(d+d←)dN

Try it online!

I'm not very good at Husk... I'm sure there's a way to shorten this somehow.

Stack Exchange Network

Return to Answer

Husk, 1111 9 bytes

Explanation

Husk, 11 bytes

Explanation

Husk, 11 9 bytes

Explanation

Husk, 11 bytes

Explanation

Husk, 11 bytes

Husk, 11 bytes

Explanation

Husk, 11 bytes