6 lines
395 B
Brainfuck
6 lines
395 B
Brainfuck
,----- ----- [>,----- -----] ; read a text until a newline
|
|
<[+++++ +++++<] ; restore the original text
|
|
>[[-]<[>+<-]>+>]< ; add one to the accumulator cell for every byte read
|
|
;; from esolang dot org
|
|
>[-]>[-]+>[-]+< [>[-<-<<[->+>+<<]>[-<+>]>>]++++++++++>[-]+>[-]>[-]> [-]<<<<<[->-[>+>>]>[[-<+>]+>+>>]<<<<<]>>-[-<<+>>]<[-]++++++++ [-<++++++>]>>[-<<+>>]<<] <[.[-]<]
|
|
[-]+++++ +++++. ; print newline
|