SHARE
TWEET

Untitled

a guest Aug 12th, 2017 42 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ###
  2. # #
  3. ###
  4.    
  5. ###
  6. # #
  7. ###
  8.    
  9. AAA
  10. A A
  11. AAA
  12.    
  13. 000
  14. 0 0
  15. 000
  16.    
  17. ###
  18. # #
  19. ###
  20.    
  21. B³S
  22.    
  23. B   Draw a box
  24. ³   3×3 (second dimension is implicit if omitted)
  25. S   Using the input character
  26.    
  27. 3Y6*c
  28.    
  29. 3Y6   % Push predefined literal: [true true true; true false true; true true true]
  30. *     % Implicitly input a character. Multiply element-wise by its code point
  31. c     % Convert to char. Implicitly display. Char 0 is displayed as space
  32.    
  33. 4×ð«û3ô»
  34.    
  35. INPUT    # ['R']                 | Implicit Input: 'R'
  36. ---------#-----------------------+-------------------------------
  37. 4×       # ['RRRR']              | Repeat string 4 times.    
  38.   ð      # ['RRRR',' ']          | Push space onto top of stack.
  39.    «     # ['RRRR ']             | Concatenate last 2 items.
  40.     û    # ['RRRR RRRR']         | Palindromize.
  41.      3ô  # [['RRR','R R','RRR']] | Split into 3 pieces.
  42.        » # ['RRRnR RnRRR']     | Join with newlines
  43. ---------#-----------------------+-------------------------------
  44. OUTPUT   # RRR                   | Implicitly print the top
  45.          # R R                   | of the stack on exit.
  46.          # RRR                   |
  47.    
  48. 30bûTIð«‡3ô»
  49.    
  50. c=>c+c+c+`
  51. ${c} ${c}
  52. `+c+c+c
  53.    
  54. →STR 1 4 START DUP NEXT " " + SWAP + 4 ROLLD + + SWAP 2 PICK
  55.    
  56. 3.: "###"
  57. 2.: "# #"
  58. 1.: "###"
  59.    
  60. x4,`Ks3Y
  61.    
  62. s:.:&&&n& &n&&&:
  63.    
  64. jc3.[9d
  65.    
  66. jc3.[9d Expects quoted input.
  67.   3     3
  68.      9  9
  69.       d ' '
  70.         Q (eval'd input) as implicit argument
  71.    .[   Pad B on both sides with C until its length is a multiple of A
  72.  c      Split B to chunks of length A, last chunk may be shorter
  73. j       Join A on newlines
  74.    
  75. (((((((({})))<((([])[]{}<>)<>)>)<(<>({})({}){}()()<>)>)<([]()()())>)))
  76.    
  77. dQA.X
  78.    
  79. (((((((({})))<([][][]())>)<(([][][]()){})>)<([]()()())>)))
  80.    
  81. (((
  82.    (
  83.     (
  84.      (
  85.  
  86.       #Duplicate the input 3 times
  87.       ((({})))
  88.  
  89. #Push 10 (newline)
  90. <([][][]())>
  91.  
  92.      #Push the input again
  93.      )
  94.  
  95. #Push 32 (space)
  96. <(([][][]()){})>
  97.  
  98.     #Push the input again
  99.     )
  100.  
  101. #Push 10 (newline)
  102. <([]()()())>)
  103.  
  104. #Push input 3 times
  105. )))
  106.    
  107. i:o:o:oao:o84*o:a0!.<o$
  108.    
  109. [1,2,3].map{$0==2 ? print(c+" "+c) : print(c+c+c)}
  110.    
  111. x3p2Ùlr
  112.    
  113. a=>Console.Write(a+a+a+"n"+a+" "+a+"n"+a+a+a);
  114.    
  115. var f = new Action<string>(
  116. a=>Console.Write(a+a+a+"n"+a+" "+a+"n"+a+a+a);
  117. );
  118. f("#");
  119.    
  120. +++++[->++<<++++++>],...>.<.<++.>.>.<...
  121.    
  122. +++++[->++<<++++++>]                         Sets the cells to |5*6|>0<|5*2|
  123. ,                   Takes input character into the middle cell | 30|>#<| 10|
  124. ...                                Print the top of the square | 30|>#<| 10| ###
  125. >.                                   Print a newline character | 30| # |>10|    n
  126. <.                               Print another input character | 30|>#<| 10| #
  127. <++.                  Add 30+2 for a space character and print |>32| # | 10|  _
  128. >.                   And just print the 5 remaining characters | 32|>#<| 10|   #
  129. >.                                                             | 32| # |>10|    n
  130. <...                                                           | 32|>#<| 10| ###
  131.    
  132. +++
  133. + +
  134. +++
  135.    
  136. @echo %1%1%1
  137. @echo %1 %1
  138. @echo %1%1%1
  139.    
  140. @echo ^%1^%1^%1
  141. @echo ^%1 ^%1
  142. @echo ^%1^%1^%1
  143.    
  144. x3pY2plr<space>
  145.    
  146. :tr&"...
  147. . .
  148. ..."&?.
  149.    
  150. :tr&"...
  151. . .
  152. ..."&?.
  153.    
  154. r9*4St3/N*
  155.    
  156. r9*4St3/N* e# Expects single char (token) as input
  157. r          e# Get input token (C)
  158.  9*        e# Repeat C 9 times
  159.    4St     e# Set the 5th char of C to be a space
  160.       3/   e# Split into parts of length 3
  161.         N* e# Join by newlines
RAW Paste Data
Top