Sequence splitting [closed]

Question

Given an arbitrary sequence consisting of 1 and A split this sequence up so that A is at the beginning of each sub sequence. Sequences without a leading A and Sequences without 1 before the next A will be self contained.

Example

Input

111A11A1111111A1A1AA

should result in

111
A11
A1111111
A1
A1
A
A

Above already contains the edge cases * sequence of 1 without prior A * subsequent A's without 1 between

Update Open to all programming languages (functional / non-functional)

Answer 1

APL (Dyalog Unicode), 12 bytes

Anonymous tacit function. Returns a list of strings.

⊢⊂⍨1⊣@1=∘'A'

Try it online! (↑ is just to display the list of strings as separate lines.)

=∘'A' Boolean list (1s and 0s) indicating As

1⊣@1 replace with a 1 at the first position

⊢⊂⍨ begin partitions of the argument at each 1 in that

Answer 2

Retina, 6 bytes

\BA
¶A

Try it online!

An alternative to Luis's solution. Finds all A which are preceded by another character and inserts a linefeed in front of them.

Answer 3

Retina, 6 5 bytes

1 byte saved thanks to @Neil!

L`.1*

Try it online!

Explanation

L`      Configure the stage as "list", so that it outputs all matchings
.1*     Regex to be matched: any character followed by zero or more "1"

Answer 4

Haskell, 54 37 bytes

import Data.List
groupBy(\_ x->x<'A')

Try it online!

Answer 5

Jelly, 5 bytes

1 The slooooow but shorter method which gets all ways* to partition the list and then finds the maximal as measured by its transpose:

ŒṖZÞṪ

Try it online!

* that is all 2^{length(input)-1} ways!

2 The speedy method using the "partition at truthy indices" atom (the five byte =”Aœṗ fails for inputs starting with A):

Ḋ=”A0;œṗ

Try the speedy one!

Answer 6

05AB1E, 10 8 bytes

'A"
A".:

Try it online!

Can probably be golfed further, but first submission and attempt at this.

Explanation

'A"           Push A character, Push string "(new line) A"
 A"           close string
.:            Replace all. Replace "A" with "(new line) A" in input

If you want code to match output like in original post then 11 bytes

I'A" A".:#» 

-2 bytes thanks to Soaku!

Answer 7

Befunge-98 (FBBI), 14 12 bytes

-2 bytes thanks to Jo King

#@~:d%5/ja,,

Try it online!

#@            # skips @
  ~           push a byte of input
   :          duplicate it
    d%        modulo 13, 'A':0, '1':10
      5/      divided by 5, 'A':0, '1':2
        j     jump this number of blocks, skips the next two instructions for '1'
         a,   push 10 to the stack and output as a byte (\n)
           ,  output the byte of input

If there is no input left, ~ reflects the pointer and @ terminates the program

Answer 8

Standard ML (MLton), 40 bytes

String.translate(fn#"A"=>"\nA"|x=>str x)

Try it online!

Unfortunate that String.translate is so long...

Answer 9

Japt, 6 bytes

d'A_iR

Try it online!

Explanation:

d'A_iR
d       // Replace:
 'A     //   "A" with
   _iR  //   newline + "A"

Alternative 6-byte solution

r'A"
A

Try it online!

These would be 5-byte solutions if we could take a instead of A.

Answer 10

Perl 5 -p, 8 bytes

s/A/
A/g

Try it online!

Answer 11

JavaScript (Node.js), 27 bytes

z=>z.split(/(?=A)/).join`
`

Try it online!

---

Explanation :

z =>                   // lambda function taking z as input
    z.split(           // convert z to an array by splitting at
            /(?=A)/    // all `A's`
    ).                 // end split
        join`\n`       // join all via new line

---

Alternate :

If printing an array is okay, then :

JavaScript (Node.js), 19 bytes

z=>z.split(/(?=A)/)

Try it online!

Answer 12

JavaScript (Node.js), 22 bytes

s=>s.match(/A1*|^1+/g)

Try it online!

Answer 13

Scala, 20 bytes

_.replace("A","\nA")

Try it online!

(Not sure if putting the types in the header is allowed, I'll change it if not.)

Answer 14

JavaScript, 26 23 bytes

-3 bytes thanks to caird coinheringaahing

s=>s.replace(/A/g,`
A`)

Try it online!

Answer 15

Pyth, 8 7 bytes

:Q\A"
A

Try it here

Explanation

:Q\A"\nA
:Q         Replace in the input...
  \A       ... every instance of "A"...
    "\nA   ... with a newline followed by "A".

Answer 16

JavaScript (Node.js), 20 19 bytes

s=>s.split(/(?=A)/)

Try it online!

Thanks Pandacoder for 1 byte

Answer 17

Python 2, 29 bytes

lambda I:I.replace('A','\nA')

Try it online!

Answer 18

Batch, 44 bytes

@set/pa=
@for %%a in (%a:A= A%)do @echo %%a

Takes input on STDIN.

Answer 19

Java (JDK 10), 19 bytes

s->s.split("(?=A)")

Try it online!

Answer 20

Pepe, 59 bytes

rEEeREeEeeeeeEREeeeeeeeeREEreeEREEeeREEreEeREEeEReEREEeeRee

Try it online!

That was hard... Outputs with leading newline.

rEEe           # r - Get input               Take the string

REeEeeeeeE     # R - Push A                  A - splitter
REeeeeeeee     # R - Push \0                 \0 - end
REE            # R - Create label A          label A: Next + newline

 reeE          # Output newline              Output newline

 REEee         # R - Forward                 
 REE           # R - Create label \0         label \0: Next without newline

 reEe          # r - Output                  Output the current letter and pop it

 REEeE         # R - Rewind                  
 ReE           # r pointer == A, goto A      Output newline, next letter

 REEee         # R - Forward                 Else
 Ree           # r pointer != \0, goto \0    If stack isn't empty, next letter

Answer 21

Haskell, 29 bytes

f s=do c<-s;['\n'|c>'1']++[c]

Try it online!

Answer 22

R, 26 bytes

Not a whole lot to explain with this one.

cat(gsub("A","\nA",scan()))

Answer 23

sed, 9 bytes

s/A/\nA/g

Try it online!