Communities

Writing
Writing
Codidact Meta
Codidact Meta
The Great Outdoors
The Great Outdoors
Photography & Video
Photography & Video
Scientific Speculation
Scientific Speculation
Cooking
Cooking
Electrical Engineering
Electrical Engineering
Judaism
Judaism
Languages & Linguistics
Languages & Linguistics
Software Development
Software Development
Mathematics
Mathematics
Christianity
Christianity
Code Golf
Code Golf
Music
Music
Physics
Physics
Linux Systems
Linux Systems
Power Users
Power Users
Tabletop RPGs
Tabletop RPGs
Community Proposals
Community Proposals
tag:snake search within a tag
answers:0 unanswered questions
user:xxxx search by author id
score:0.5 posts with 0.5+ score
"snake oil" exact phrase
votes:4 posts with 4+ votes
created:<1w created < 1 week ago
post_type:xxxx type of post
Search help
Notifications
Mark all as read See all your notifications »

Activity for Shaggy‭

Type On... Excerpt Status Date
Edit Post #282507 Initial revision almost 3 years ago
Answer A: A number adder, not a death adder
Japt, 4 bytes P1 is: +"+U Try it Which outputs P2, where `N1` is the input from P1: N1+U Try it
(more)
almost 3 years ago
Edit Post #282505 Initial revision almost 3 years ago
Answer A: Shuffle a subset of a list
Japt, 17 bytes ô@VøYÃíUgV öx)c f Try it Japt, 17 bytes ô@VøYÃíUgV öx)c f Try it ô@VøYÃíUgV öx)c f :Implicit input of arrays U=integers & V=indices ô :Split U on elements ... @ :That return true when their indices are ...
(more)
almost 3 years ago
Comment Post #282499 [Save a byte with currying](https://tio.run/##dY9NboMwEIX3nMKLLEw1Qfw1P4rgBj2BNWrGiSFGDo7A6oZydmonUZtNR7OYmfc@67mjLxpPg765dW/Pammqhapa@k6udOO6qgUJjUCiQ6z83FVSfJC7JAP1Z3vl8ZtMjOpbd/lOMfg0YrycbD865tToRlYxETFfQmSQQwElvMMGtghMpPBy8vT/vtyvL4594aXsjqcplBlsd1BkUJSQP4HA72CPGOEhiho7MB7iMNs8YsVsur9llGOCgEn0QYN...
(more)
almost 3 years ago
Edit Post #282448 Initial revision almost 3 years ago
Answer A: Create a Sudoku
Japt, 10 bytes Outputs a 2D-array. 9õ ñu3 £éX Try it 9õ ñu3\n£éX 9õ :Range [1,9] ñ :Sort by u3 : Mod 3 of each \n :Assign to variable U £ :Map each X éX : U rotated...
(more)
almost 3 years ago
Comment Post #282427 Or, alternatively, `v`.
(more)
almost 3 years ago
Comment Post #282430 You don't need to count the `f=`.
(more)
almost 3 years ago
Edit Post #282370 Post edited:
almost 3 years ago
Edit Post #279287 Post edited:
almost 3 years ago
Edit Post #282370 Initial revision almost 3 years ago
Answer A: Partial Sums of Harmonic Series
JavaScript, 29 bytes f=(n,x=0)=>n>0?f(n-1/++x,x):x Try it online!
(more)
almost 3 years ago
Comment Post #279457 Shouldn't the footer be included as part of the solution, seeing as it's needed in order to output the `0`s?
(more)
almost 3 years ago
Comment Post #279287 @Quintec, for the sake of simplifying the explanation, the `Ä` is now gone.
(more)
almost 3 years ago
Edit Post #282312 Initial revision almost 3 years ago
Answer A: Golf a FRACTRAN interpreter
JavaScript, 44 bytes a=>g=n=>a.every(([p,q])=>(x=np/q)%1)?n:g(x) Try it online!
(more)
almost 3 years ago
Edit Post #282310 Initial revision almost 3 years ago
Answer A: Golf a FRACTRAN interpreter
Japt v2.0a0, 18 bytes The `r÷` can be removed if we can take an array of floats instead. T=V£Xr÷Ãæv1)?ßT:U Try it T=V£Xr÷Ãæv1)?ßT:U :Implicit input of integer U and 2D-array V T= :Assign to variable T V£ : Map each X in V ...
(more)
almost 3 years ago
Comment Post #281572 Can we take an array of floats instead of fractions?
(more)
almost 3 years ago
Edit Post #282287 Post edited:
almost 3 years ago
Edit Post #279723 Post edited:
almost 3 years ago
Edit Post #282202 Post edited:
almost 3 years ago
Edit Post #282293 Post edited:
almost 3 years ago
Edit Post #279287 Post edited:
almost 3 years ago
Edit Post #282307 Post edited:
almost 3 years ago
Edit Post #282307 Post edited:
almost 3 years ago
Edit Post #282307 Post edited:
almost 3 years ago
Edit Post #282307 Initial revision almost 3 years ago
Answer A: Prime Difference
Japt, 15 14 bytes @§XnÈj}aX+j}a2 Try it or run all test cases @§XnÈj}aX+j}a2 :Implicit input of integer U @ :Function taking an integer X as argument § : Is U <= ... Xn : Subtract X from È : ...
(more)
almost 3 years ago
Edit Post #282305 Initial revision almost 3 years ago
Answer A: Diagonalized alphabet
Japt `-R`, 16 bytes This feels far too long for the task at hand - what am I missing?! ;Bó v ¬£14îUiX q Test it ;Bó\nv ¬£14îUiX q ;B :Uppercase alphabet ó :Uninterleave \n :Assign to variable U ...
(more)
almost 3 years ago
Comment Post #281960 [40 byes](https://tio.run/##y0osSyxOLsosKNHNy09J/Z9m@7/C1q5CLzexQCPV1i7VPlGvoLQ4QyNV0wrIyi/Q0NRJtI2O1VRTS/xfUJSZV2KbnJ9XnJ@TqpeTn84FFtFI04g20IFBUx3zWE1NhIyhjhFQ1BhNzBQIDcAyBjoWGOqNdUzAMpZYTIJCoMx/AA)
(more)
almost 3 years ago
Edit Post #282303 Initial revision almost 3 years ago
Answer A: Backspace an array
Japt, 9 bytes ô rÈÔÅÔcY Try it or run all test cases ô rÈÔÅÔcY :Implicit input of array ô :Split on falsey elements (i.e., 0) r :Reduce by È :Passing each Y through the following function, with the first element serving as the st...
(more)
almost 3 years ago
Edit Post #282294 Post edited:
almost 3 years ago
Comment Post #282301 Well spotted, thanks, @Razetime - 'twas easily fixed.
(more)
almost 3 years ago
Edit Post #282301 Post edited:
almost 3 years ago
Edit Post #282301 Post edited:
almost 3 years ago
Edit Post #282301 Initial revision almost 3 years ago
Answer A: Word Set Square
Japt `-R`, 16 15 14 bytes pÔ¬Ëú°EDùEÃÆpÔ Try it pÔ¬Ëú°EDùEÃÆpÔ :Implicit input of string p :Append Ô : Reverse ¬ :Split Ë :Map each D at 0-based index E ú : Right pad ...
(more)
almost 3 years ago
Edit Post #282300 Initial revision almost 3 years ago
Answer A: Obligatory Quine Challenge
Japt, 9 bytes All credit to ETH on this one. 9îQi"9îQi Test it 9î :Repeat the following to length 9 Q : Quotation mark i"9îQi : Prepend "9îQi" And, for the sake of completeness, the original 10 byte Japt quine, again with all credit to ...
(more)
almost 3 years ago
Comment Post #279374 @Quintec, done!
(more)
almost 3 years ago
Edit Post #282299 Initial revision almost 3 years ago
Answer A: 1, 2, Fizz, 4, Buzz!
Japt `-R`, 27 bytes Lõ@"FiBu"ò úz4 ËpXv°EÑÄìªX Test it Lõ@"FiBu"ò úz4 ËpXv°EÑÄìªX L :100 õ :Range [1,L] @ :Map each X "FiBu" : Literal string ...
(more)
almost 3 years ago
Edit Post #282294 Post edited:
almost 3 years ago
Edit Post #282294 Post edited:
almost 3 years ago
Edit Post #282294 Post edited:
almost 3 years ago
Edit Post #282294 Initial revision almost 3 years ago