fork(5) download
copy 
  1. : КАЖДЫЙ-СИМВОЛ,БЛЕАТЬ!  ( c-addr u xt -- )
  2.    SWAP 0 ?DO
  3.      >R  DUP C@ R@ EXECUTE OVER C!  CHAR+  R>
  4.    LOOP
  5.    2DROP
  6. ;
  7.  
  8. : ШИФРУЙ,СУКА!  ( c-addr u -- )  ['] 2/ КАЖДЫЙ-СИМВОЛ,БЛЕАТЬ! ;
  9. : ДЕШИФРУЙ,СУКА!  ( c-addr u -- )  ['] 2* КАЖДЫЙ-СИМВОЛ,БЛЕАТЬ! ;
  10.  
  11. : ЕБУЧУЮ-СТРОКУ  S" ФОРТ КАК ДАО: КАК МОРКОВЬ, ТОКА ОТКРblВ РОТИК МОЖHО ΠОΠРО6ОВАТЬ. XРΠКО¢ТЬ ĒrО — ĒrО МОШЬ, ĒrО ΠРО¢ТОТА — ĒrО HАΠРАВJlĒHИĒ." ;
  12.  
  13. : НАПЕЧАТАЙ,СУКА!  TYPE CR ;
  14.  
  15. ЕБУЧУЮ-СТРОКУ ШИФРУЙ,СУКА!
  16. ЕБУЧУЮ-СТРОКУ ДЕШИФРУЙ,СУКА!
  17. ЕБУЧУЮ-СТРОКУ НАПЕЧАТАЙ,СУКА!
Success #stdin #stdout 0s 22520KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
ФОРТ КАК ДАО: КАК МОРКОВЬ, ТОКА ОТКРblВ РОТИК МОЖHО ΠОΠРО6ОВАТЬ. XРΠКО¢ТЬ ĒrО — ĒrО МОШЬ, ĒrО ΠРО¢ТОТА — ĒrО HАΠРАВJlĒHИĒ.
https://ideone.com/nAH4V6
language:
Forth (gforth 0.7.3)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!