fork(8) download
  1. $_=$$/$$;@_=$_+$_;$-_=$_-@_
  2. $__=->_{_==[]||_==''?$.:$_+$__[_[$_..$-_]]}
  3. @__=->_,&__{_==[]?[]:[__[_[$.]]]+@__[_[$_..$-_],&__]}
  4. $_____=->_{@__[[*_],&->__{__[$.]}]}
  5. @_____=->_{@__[[*_],&->__{__[$-_]}]}
  6. $______=->_{___,______=$_____[_],@_____[_];_____=$__[___];____={};__=$.;(_=->{
  7. ____[______[__]]=___[__];(__+=$_)==_____ ?____:_[]})[]}
  8. @______=->_,__{_=[*_]+[*__];____=$__[_];___={};__=$.;(_____=->{
  9. ___[_[__][$.]]=_[__][$_];(__+=$_)==____ ?___:_____[]})[]}
  10. $_______=->_{$___=[];@___=$__[_];__=___=____=$.;$____,@____={},[]
  11. (_____=->{
  12. _[____]=='['?(@____<<____):$.
  13. _[____]==']'?($____[@____[$-_]]=____;@____=@____[$...$.-@_]):$.
  14. (____+=$_)==@___?$.:_____[]})[]
  15. $____=$____=={}?{}:@______[$____,$______[$____]]
  16. (______=->{_[__]==
  17. '+'?($___[___]||=$.;$___[___]+=$_):_[__]==
  18. '-'?($___[___]||=$.;$___[___]-=$_):_[__]==
  19. '>'?(___+=$_):_[__]==
  20. '<'?(___-=$_):_[__]==
  21. '['?(__=($___[___]||$.)==$.?$____[__]:__):_[__]==
  22. ']'?(__=($___[___]||$.)!=$.?$____[__]:__):_[__]==
  23. '.'?($><<(''<<$___[___])):$.
  24. (__+=$_)==@___?_:______[]})[]}
  25. $_______['++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.']
Success #stdin #stdout 0.02s 7772KB
stdin
Standard input is empty
stdout
Hello World!