Advertisement
imk0tter

Untitled

Apr 5th, 2011
175
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  2. [->+>+<<]>>[<<+>>-]>
  3. ++++++++++[>++++++++++[>++++++++++[>++++++++++[>++++++++++<-]<-]<-]<-]>>>>[<<<<+>>>>-]<<<<
  4. [->+>+<<]>>[<<+>>-]>
  5. ++++++
  6. >>>+>+>+>+>+>+ >>
  7. <<<<<<<<<<                                                  ;point to 8
  8. [  
  9.     <<<<<                                                   ;start main loop
  10.     [
  11.         >>>>>>>>>>>>>>[-]>[-]>[-] <<<<<<<<<<<<<             ;clear {ref} & div buff & base buff & point to v2{2}
  12.         [-<<<->>> >>>>>>>>>>>+<<<<<<<<<<<]                  ;decrease v2{2} then decrease v1{2} then increase div buff and point to v2{2} until v2{2} is empty
  13.         >>>>>>>>>>>>>+<<<<<<<<<<<<<<                        ;increase base buff by 1 point to v2{1}
  14.         [->+>+<<]>>[<<+>>-]>>>>>>>>>>>                      ;copy v2 and point to div buff
  15.         [-<<<<<<<<<<<<->>>>>>>>>>>>]<<<<<<<<<<<<            ;dec divbuff & v2{2} until div buff is empty then point to v2{2}
  16.         [>>>>>>>>>>>>>[-]<<<<<<<<<<<<<-]<                   ;if v2{2} != 0 then set base buff to 0 and v2 to 0 point to v2{1}
  17.         [->+>+<<]>>[<<+>>-]>>>>>>>>>>>>                     ;copy v2 and point to base buff
  18.         [->+<]<<<<<<<<<<<<<<<<                              ;if fill base buff real with base buff and point to v1{2}
  19.     ]                                                      
  20.     >>>>>>>>>>>>>>>>>[->+>+<<]>>[<<+>>-]<<                  ;copy base buff real point back to base buff real
  21.     [-<<<<[<]<+>>[>]>>>]<<<<[<]>[-]>[>]                     ;clever byte fill back to ref
  22.     >>>>[<<<<<<<<<<<<<<<<[->+>+<<]>>[<<+>>-]>>>>>>>>>>>>>>-<<<<<<<<<<<<<<<[->>>>>>>>>>>>>>>>+<<<<<<<<<<<<<<<<]>>>>>>>>>>>>>>>] ;fill v1 negator
  23.     >[-<<<<<<<<<<<<<<<<<<<->>>>>>>>>>>>>>>>>>>]             ;negate v1
  24.     <<<<<<<<<<<<<<<<<<<[->+>+<<]>>[<<+>>-]>                 ;copy v1 point to v2{1}
  25.     >[-]<[>>++++++++++[-<<->>]<+<]>[->+<<+>]>[-<+>]>        ;divide v2 by 10 and recopy v2 point to 8
  26. -]                                                          ;Decrease 8 and reloop
  27. >.>.>.>.>.>.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement