# Calculate gravity on a 1D field

Given a string or list, calculate the effects of gravity on that string/list.

The string will be made of 5 characters:

• N has a weight of 2
• L has a weight of 1
• S has a weight of -2
• D has a weight of -1

(the 5th character is whatever you want, it means empty space. I use (space) in my examples)

Items with negative weight fall upwards (towards the top of the string), and items with positive weight fall downwards (towards the bottom of the string).

When an object collides with something, one of three things happens:

• If the object collides with the top or bottom "walls" of the input, then it just stops.

• If the object collides with another object, their weight/velocity is summed (i.e. N and D would give 1). If the result is positive, both objects fall downwards. If it's negative, they fall upwards.

• If an object (let's call it A) collides with an object B, and B is already pinned against the ceiling/floor, A will just come to rest against B.

All non-occupied spaces of the string/list should be filled with the empty character.

If it wasn't clear already: each character in the string/line is on top of the next one. i.e. NL is the same as:

N
L

And SD is:

(blank)
S
D

Test cases: (uses (the space character) to show empty space)

" L D " -> " LD  " or "  LD "

" SDLN " -> "SD  LN"

" NLLSSD " -> "NLLSSD  "
• "Given a delimited string or list." Can also use a string without delimiters? Since all items are just individual characters that shouldn't be a problem, right? And what's the expected outcome for N0S or L0D? – Martin Ender May 10 '17 at 18:59
• @MartinEnder About the delimited string, that was left over form a previous version of the question. It has been edited out. And I added a test case to address the second issue. If it is still unclear, please let me know. – Comrade SparklePony May 10 '17 at 20:52
• Why the NUL character? – mbomb007 May 10 '17 at 21:21
• Should've specified a directional order-of-operations. – Magic Octopus Urn May 16 '17 at 19:54
• Side note: if "physics" is to be accounted for, letters with negative weights should probably fall downwards just like the rest. – Julian Wolf May 16 '17 at 23:04

h(x:y:r)|(w x&&g y<0)||(w y&&g x>0)=y:h(x:r)|w(x++y)||g x<0=x:h(y:r)|t<-x++y=h$t:r h r=r concat.until((==)=<<h)h.map(:[]) Try it online! Example usage: concat.until((==)=<<h)h.map(:[])$ " SDLN ".