Search Results

Dyalog APL, 94 91-30= 61 bytes Usually APL golfing results in code that is more compact – but not more complex – than normal, but in this case I save chars in ugly ways: {1↓(∊' ',¨⍵,⍪'and' 'have'),' l …

Dyalog APL, 15 bytes ⌽∘⍉⍣(11|⎕UCS⍞)⍪ ⍪ make string into 1-column table ⍣(‍…) repeat (n) times ⍞ get string input ⎕UCS convert to UCS code point 11| division rest when divided by 11 ⌽∘⍉ rotate -90° (flip-transpose … ) Alternate method (same length): ⌽∘⍉⍣('<^>v'⍳⎕)⍪ ⎕ get evaluated input (so one must input, e.g. '^' or the name of a program/variable that returns the desired character) '<^>v'⍳ index into the string …

Dyalog APL, 19 bytes - 10% = 17.1 {(0≤⎕NC⍵)÷1+'_'=⊃⍵} {…⍵…} anonymous function where the right argument is represented by ⍵ ⊃⍵ first character (gives space if empty) '_'= 1 if equal to 'underbar, 0 o …

APL, 6 bytes ⎕←⍞ →1 This has worked in all APLs since the beginning of time. ⍞ wait for input ⎕← Output that →1 go to line 1

Dyalog APL, 8 bytes The niladic function f: ≢∊⎕NR'f' Notice that this prints 10 because APL counts (and stores) the function header (name + newline). However, PPCG practice is not to count this heade …

as c t/⍨ extract (consonants) from t ⌽ reverse (c/t)← replace consonants with (the reversed ones) t return the modified string …

Dyalog APL, 12 bytes ⌽f¨⍨⊢≠f←819⌶ 819⌶ is the case folding function f← because its name is long, we assign it to f ⊢≠f Boolean where text differs from lower-cased text f¨⍨ use that (1 means uppercase …

K, 1 byte + Try it here! Transpose

Dyalog APL, 22 20 bytes (∊⊢↑¨⍨⎕⌊⍴¨)⊢⊂⍨1,2≠/⊢ Prompts for n and takes input string as argument. ( the tacit function ... …

Dyalog APL, 21 bytes ∪'/\d' '\d'⎕R'/Y' 'X' ⎕R regex replaces the left-side strings with the right-side ones ∪ returns the unique elements TryAPL online!

Dyalog APL, 20 13 bytes ↑(⌽,\⍞),1↓,\⍞ ↑ matrify (⌽,\⍞) reversed (⌽) cumulative concatenation (,\) of character input (⍞) , prepended to 1↓ one element dropped from ,\⍞ cumulative concatenation of ch …

Dyalog APL, 18 bytes Prompts for n, then for k. ~∘'0'⍤1⍕(⌽⍳)⍤0⍣⎕⊢⎕ ~∘'0'⍤1 remove (~) the (∘) zeros ('0') from the rows (⍤1) (padding with spaces as needed) of ⍕ the character representation of (⌽⍳) …

. ⊢⍴'\/'⊃⍨2|⊢ ⊢ the argument ⍴ reshapes (repeats) '\/'⊃⍨ the string "/" selected by 2|⊢ the division remainder when the argument is divided by two TryAPL online! …

Dyalog APL 16.0, 15 characters (non-competing); 15.0, 17 bytes 16.0 solution {⍵⊆⍨(⍴⍵)↑⍺/+\⍺} Dyalog APL 16.0 adds APL2's partition primitive, ⊂, with the glyph ⊆. 15.0 solution: {(-⍺)↑¨(+\⍺)↑¨⊂⍵} …

Dyalog APL, 11 bytes Function returning list of strings. (⊂∩¨∪)~∘' ' (⊂∩¨∪) the intersection of the entirety and its unique characters ~∘' ' except spaces TryAPL online!