fork(1) download
copy 
  1. import GHC.IO.Encoding
  2.  
  3. sabarusator :: String -> String
  4. sabarusator s = "~\n" ++ go ")" s where
  5. 	go l  ""     = ""
  6. 	go l ('.':s) = l ++ "...\n" ++ go (')':l) (drop 1 s)
  7. 	go l ( c :s) = c : go l s
  8.  
  9. main = do
  10. 	setLocaleEncoding utf8
  11. 	interact sabarusator
Success #stdin #stdout 0s 4676KB
comments (?)
stdin
copy 
Адаптация интересная штука. Адаптируемое, адаптирующий и снова адаптируемое. Кто из них кто? Личность адаптирует себя под воспринимаемое, или личность адаптирует воспринимаемое под себя?
stdout
copy 
~
Адаптация интересная штука)...
Адаптируемое, адаптирующий и снова адаптируемое))...
Кто из них кто? Личность адаптирует себя под воспринимаемое, или личность адаптирует воспринимаемое под себя?
https://ideone.com/TmkPZS
language:
Haskell (ghc 8.4.4)
created:
9 years ago
visibility:
secret

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!