Post History
APL (Dyalog Unicode), 10 bytes Full program. Prompts for list of strings from stdin. 0~⍨,⍉↑0,¨⎕ Try it online! ⎕ prompt for list of strings 0,¨ prepend a zero to each ↑ convert to orthogona...
Answer
#3: Post edited
by
Adám
·
2020-11-22T12:19:17Z (over 3 years ago)
- # [APL (Dyalog Unicode)], 10 bytes
- Full program. Prompts for list of strings from stdin.
- ```apl
- 0~⍨,⍉↑0,¨⎕
- ```
- [Try it online!][TIO-kht2w1tr]
- `⎕` prompt for list of strings
- `0,¨` prepend a zero to each
- `↑` convert to orthogonal matrix (increase rank at cost of depth), padding with 0s
- `⍉` transpose
- `,` ravel (flatten)
- `0~⍨` remove 0s
- [APL (Dyalog Unicode)]: https://www.dyalog.com/
[TIO-kht2w1tr]: https://tio.run/##SyzI0U2pTMzJT///qKO94L9B3aPeFTqPejsftU000Dm04lHfVJDEfwUwKOBSz87My1dXUE/OzEvNTQQycvPLMlPVueDyyfkpqUDh9PycNCRRj0ygGBCFZKQWIanWedTVpO5aUZCTmJdYkpmfpw4A "APL (Dyalog Unicode) – Try It Online"
- # [APL (Dyalog Unicode)], 10 bytes
- Full program. Prompts for list of strings from stdin.
- ```apl
- 0~⍨,⍉↑0,¨⎕
- ```
- [Try it online!][TIO-kht2w1tr]
- `⎕` prompt for list of strings
- `0,¨` prepend a zero to each
- `↑` convert to orthogonal matrix (increase rank at cost of depth), padding with 0s
- `⍉` transpose
- `,` ravel (flatten)
- `0~⍨` remove 0s
- [APL (Dyalog Unicode)]: https://www.dyalog.com/
- [TIO-kht2w1tr]: https://tio.run/##SyzI0U2pTMzJT///qKO94L9B3aPeFTqPejsftU000Dm04lHfVJDEfwUwKOBSz87My1dXUE/OzEvNTQQycvPLMlPVueDyyfkpqUDh9PycNCRRj0ygGBCFZKQWIanWedTVpO5aUZCTmJdYkpmfh6TDBewoBccAH6A259KckswyiBIFdf@i5IzEohR1AA "APL (Dyalog Unicode) – Try It Online"
#2: Post edited
by
Adám
·
2020-11-22T12:11:52Z (over 3 years ago)
- # [APL (Dyalog Unicode)], 10 bytes
- ```apl
- 0~⍨,⍉↑0,¨⎕
- ```
- [Try it online!][TIO-kht2w1tr]
- [APL (Dyalog Unicode)]: https://www.dyalog.com/
- [TIO-kht2w1tr]: https://tio.run/##SyzI0U2pTMzJT///qKO94L9B3aPeFTqPejsftU000Dm04lHfVJDEfwUwKOBSz87My1dXUE/OzEvNTQQycvPLMlPVueDyyfkpqUDh9PycNCRRj0ygGBCFZKQWIanWedTVpO5aUZCTmJdYkpmfpw4A "APL (Dyalog Unicode) – Try It Online"
- # [APL (Dyalog Unicode)], 10 bytes
- Full program. Prompts for list of strings from stdin.
- ```apl
- 0~⍨,⍉↑0,¨⎕
- ```
- [Try it online!][TIO-kht2w1tr]
- `⎕` prompt for list of strings
- `0,¨` prepend a zero to each
- `↑` convert to orthogonal matrix (increase rank at cost of depth), padding with 0s
- `⍉` transpose
- `,` ravel (flatten)
- `0~⍨` remove 0s
- [APL (Dyalog Unicode)]: https://www.dyalog.com/
- [TIO-kht2w1tr]: https://tio.run/##SyzI0U2pTMzJT///qKO94L9B3aPeFTqPejsftU000Dm04lHfVJDEfwUwKOBSz87My1dXUE/OzEvNTQQycvPLMlPVueDyyfkpqUDh9PycNCRRj0ygGBCFZKQWIanWedTVpO5aUZCTmJdYkpmfpw4A "APL (Dyalog Unicode) – Try It Online"
#1: Initial revision
by
Adám
·
2020-11-22T12:09:59Z (over 3 years ago)
# [APL (Dyalog Unicode)], 10 bytes ```apl 0~⍨,⍉↑0,¨⎕ ``` [Try it online!][TIO-kht2w1tr] [APL (Dyalog Unicode)]: https://www.dyalog.com/ [TIO-kht2w1tr]: https://tio.run/##SyzI0U2pTMzJT///qKO94L9B3aPeFTqPejsftU000Dm04lHfVJDEfwUwKOBSz87My1dXUE/OzEvNTQQycvPLMlPVueDyyfkpqUDh9PycNCRRj0ygGBCFZKQWIanWedTVpO5aUZCTmJdYkpmfpw4A "APL (Dyalog Unicode) – Try It Online"