Search type Search syntax
Tags [tag]
Exact "words here"
Author user:1234
user:me (yours)
Score score:3 (3+)
score:0 (none)
Answers answers:3 (3+)
answers:0 (none)
isaccepted:yes
hasaccepted:no
inquestion:1234
Views views:250
Sections title:apples
body:"apples oranges"
URL url:"*.example.com"
Favorites infavorites:mine
infavorites:1234
Status closed:yes
duplicate:no
migrated:no
wiki:no
Types is:question
is:answer
Exclude -[tag]
-apples
For more details on advanced search visit our help page
Results tagged with Search options user 24908

This challenge involves creating or parsing pictures using text characters as the paint. Typically this uses only 95 printable (from a total of 128) characters defined by the ASCII Standard from 1963.

4
votes
Dyalog APL, 43 40 bytes {⍉⊃⍪/⍺⍴⊂(⌽⍪⊢)(n,1-n←2×⍵)↑↑b⍴¨⍕¨b←a,1↓⌽a←⍳⍵} {⍉⊃⍪/⍺⍴⊂(⌽⍪⊢)n(1-n←2×⍵)↑↑⍴∘⍕¨⍨a,1↓⌽a←⍳⍵} (Thanks, Moris Zucca) This is a dyadic function with the amplitude as the right argument …
answered Jan 29 '15 by ngn
4
votes
APL (Dyalog Classic), 108 101 95 bytes ' -+|'[⊃,/⎕⍴⊂b/⍨3 1⍴⍨≢⍉b←⌽⊖2@a⌽1@(a←⊂0 0)⊖0,⊃{((4|-⊖⍉⍵),⍉¯2↑⍉⍵)⍪(2/⍪⍳2),¯2↑⍵}/⎕⍴⊂46 16 47⊤⍨3⍴4] Try it online!
answered Jun 27 '18 by ngn
1
vote
APL (Dyalog Classic), 33 bytes f←{'#-|'[⊖(⍉+⍨)⍣(⍵≤50)⊢⍵>⍎¨∘.,⍨⎕d]} Try it online! based on Adám's answer ⎕d is the string '0123456789' ∘., Cartesian product ⍨ with itself ⍎¨ evaluate each - …
answered Nov 25 '17 by ngn
1
vote
APL (Dyalog Classic), 12 bytes ↑('-'\⍨≤∘⍳)/ Try it online! APL has no varargs, so the arg here is a single Nx2 matrix.
answered Jan 29 '18 by ngn
2
votes
K (ngn/k), 172 bytes {s:1+|/'i-:&//i:1_--':1_4#!#'2*:\a:16!29!1+2/(!3){+'+x}/'{2+':''1+':'0=':x}'{++'x}\6{+'+0,|x}/{6}#{3}#'{2}#''s#1<+/x=!s:1+2*x;" |+/+ +-? ??? ++"s#@[&*/s;s/i;{x+y*~x};,//a]} Try …
answered May 13 by ngn
8
votes
K (ngn/k), 183 161 157 bytes {A:"^>v<";D,:-D:(-1 0;!2);s:(#x;#*x);c:~^x;r:" -+|"c*+/'3'0,c,0;$[#p:+s\&~^t:A?,/x;;:r];q:q@'*'&'~^x ./:/:q:+p+/:D@4!(t^0N)+/:0 1 3;s#@[,/r;s/+q;:;A@D?q-p]}/ Try it onl …
answered Jul 31 by ngn
1
vote
APL (Dyalog Classic), 57 51 50 bytes {⍉⊃⍪/,/((⊢-⌈/)≢¨⍵)⌽↑{⍪¨↓0 1↓⍕,∘⍉∘⌽⍣4/⍵,⊂⍉⍪¯1/⍵}¨⍵} Try it online!
answered Nov 11 '18 by ngn
0
votes
K (ngn/k), 13 bytes {" -"@&-':x}' Try it online! { } function with argument x { }' apply to each - in this case to each pair of numbers from the input -': subtract each prior - transform (a;b) i …
answered Jun 18 '18 by ngn
1
vote
K (ngn/k), 58 bytes {" \\/X|"4,'(+/3!1 2*(x#'e+2*|e:=2*x)(2*x)!z+(!y;-!y)),'4} Try it online! anonymous function that accepts three arguments: x the width, y the length, z a pair of starting posit …
answered Apr 10 '18 by ngn
2
votes
APL (Dyalog Unicode), 7 bytesSBCS (,⍕⊢)⌸⍳ Try it online!
answered Jan 13 '18 by ngn
13
votes
APL (Dyalog Classic), 29 25 bytes '|-'[{a,⊖⌽⍉~a←⍪⍨⍵}⍣⎕⍉⍪⍳2] Try it online! ⍳2 is the vector 0 1 ⍪ turns it into a 2x1 matrix ⍉ transposes it, so it becomes 1x2 ⎕ evaluated input { }⍣⎕ apply …
answered Feb 9 '18 by ngn
1
vote
APL (Dyalog Unicode), 50 bytesSBCS s[⊃¨0~¨⍨a,¨5|5⌊+⍀+\(⊢ׯ1*+⍀++\)5=a←⎕⍳⍨s←' #=-.+|'] Try it online! s←' #=-.+|' assign a string to variable s ⎕ evaluated input, it must be a character matrix …
answered Feb 9 '18 by ngn
1
vote
K (ngn/k), 230 231 bytes (+1 byte after a change in the language impl) f:{{x,'" ",/:y}/(#s;5;5)#@[(#c)#"";i;:;(#i:&c:,/(36 25#4_,/+2\a)s)#`c$b s:((b:(48+!10),65+!26)?x-32*(96<x)&x<123)^0N]} Try i …
answered Jun 16 '18 by ngn
1
vote
Dyalog APL, 27 bytes <∘(+/(⍎'='⎕r' ')÷⍨'=+'⎕s 1) '=+'⎕s 1 is a function that identifies stretches of '=' with a regex and returns a vector of their lengths (⎕s's right operand 0 would mean offsets; …
answered Apr 13 '17 by ngn
4
votes
APL, 65 bytes ⍉⌽↑⌽¨h↑¨'^/v\'[1+(~×a)×2+×2+/2-/0,0,⍨h←¯1+⊃⌈/a-↓|∘.-⍨⍳⍴a←11|⎕d⍳⍞] ⍞ this symbol returns raw (not evaluated) input as a character array. Solving interactively, in an APL session: …
answered Feb 2 '15 by ngn

15 30 50 per page