7 lines
395 B
Beef
7 lines
395 B
Beef
|
,----- ----- [>,----- -----] ; 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
|