SHARE
TWEET

Untitled

a guest Jun 1st, 2017 587 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. rebol [] ;** R3 only
  2.  
  3. s:  {
  4.   1  4         5  8  
  5.                         11
  6.                        
  7.   3  2         6  7  9  10
  8. }
  9.  
  10. _:[skip]r:[(z: 77 + n // 81)z _ _ then[[i | j]reject | r | p:(p/1: pick"/|\-"n)end]|(++ n)]i: #"1"
  11. parse s[any[79[" "| and lf insert" "| _ not" "p:(p/1: p/1 +(-48 + p/0 * 10)p/0:" ")| _]_]
  12. 99[:s(i:(j: i)+ n: 1)to[i | j]0 4[and r]to j p:(p/1:"+")]]print s
  13.  
  14. halt
  15.  
  16. >>                                                                              
  17.   +  +---------+  +                                                            
  18.    \/          |  |\     +                                                    
  19.    /\          |  | \    |                                                    
  20.   +--+         +--+  +---+
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top