RLE

Here's my implementation of RLE in C.
http://en.wikipedia.org/wiki/Run-length_encoding
What is it in your lang?

#include <stdio.h>
int main(void) {
int i;
char s[] = "%*[_]%n";
for(i = 0; scanf("%c", &s[3]) == 1 && scanf(s, &i) != EOF);
printf("%d%c", ++i, s[3]));
return 0;
}

SOURCE FREE

IDENTIFICATION DIVISION.
PROGRAM-ID. run-length-encoding.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
REPOSITORY.
FUNCTION encode
FUNCTION decode
.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 input-str PIC A(100).
01 encoded PIC X(200).
01 decoded PIC X(200).

PROCEDURE DIVISION.
ACCEPT input-str
MOVE encode(FUNCTION TRIM(input-str)) TO encoded
DISPLAY "Encoded: " FUNCTION TRIM(encoded)
DISPLAY "Decoded: " FUNCTION TRIM(decode(encoded))
.
END PROGRAM run-length-encoding.


IDENTIFICATION DIVISION.
FUNCTION-ID. encode.

DATA DIVISION.
LOCAL-STORAGE SECTION.
01 str-len PIC 9(3) COMP.

01 i PIC 9(3) COMP.

01 current-char PIC A.

01 num-chars PIC 9(3) COMP.
01 num-chars-disp PIC Z(3).

01 encoded-pos PIC 9(3) COMP VALUE 1.

LINKAGE SECTION.
01 str PIC X ANY LENGTH.

01 encoded PIC X(200).

PROCEDURE DIVISION USING str RETURNING encoded.
MOVE FUNCTION LENGTH(str) TO str-len
MOVE str (1:1) TO current-char
MOVE 1 TO num-chars
PERFORM VARYING i FROM 2 BY 1 UNTIL i > str-len
IF str (i:1) <> current-char
CALL "add-num-chars" USING encoded, encoded-pos,
CONTENT current-char, num-chars

MOVE str (i:1) TO current-char
MOVE 1 TO num-chars
ELSE
ADD 1 TO num-chars
END-IF
END-PERFORM

CALL "add-num-chars" USING encoded, encoded-pos, CONTENT current-char,
num-chars
.
END FUNCTION encode.

IDENTIFICATION DIVISION.
PROGRAM-ID. add-num-chars.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 num-chars-disp PIC Z(3).

LINKAGE SECTION.
01 str PIC X(200).

01 current-pos PIC 9(3) COMP.

01 char-to-encode PIC X.

01 num-chars PIC 9(3) COMP.

PROCEDURE DIVISION USING str, current-pos, char-to-encode, num-chars.
MOVE num-chars TO num-chars-disp
MOVE FUNCTION TRIM(num-chars-disp) TO str (current-pos:3)
ADD FUNCTION LENGTH(FUNCTION TRIM(num-chars-disp)) TO current-pos
MOVE char-to-encode TO str (current-pos:1)
ADD 1 TO current-pos
.
END PROGRAM add-num-chars.


IDENTIFICATION DIVISION.
FUNCTION-ID. decode.

DATA DIVISION.
LOCAL-STORAGE SECTION.
01 encoded-pos PIC 9(3) COMP VALUE 1.
01 decoded-pos PIC 9(3) COMP VALUE 1.

01 num-of-char PIC 9(3) COMP VALUE 0.

LINKAGE SECTION.
01 encoded PIC X(200).

01 decoded PIC X(100).

PROCEDURE DIVISION USING encoded RETURNING decoded.
PERFORM VARYING encoded-pos FROM 1 BY 1
UNTIL encoded (encoded-pos:2) = SPACES OR encoded-pos > 200
IF encoded (encoded-pos:1) IS NUMERIC
COMPUTE num-of-char = num-of-char * 10
+ FUNCTION NUMVAL(encoded (encoded-pos:1))
ELSE
PERFORM UNTIL num-of-char = 0
MOVE encoded (encoded-pos:1) TO decoded (decoded-pos:1)
ADD 1 TO decoded-pos
SUBTRACT 1 FROM num-of-char
END-PERFORM
END-IF
END-PERFORM
.
END FUNCTION decode.

fuck all y'all all y'all in y'all high horses

>>2

main.cobc:7: Error: syntax error, unexpected "Identifier", expecting ALL or Literal"

Help me Cobol dude.

>>4
ITS NOT MY CODE. END-TRANSMISSION.
http://rosettacode.org/wiki/Run-length_encoding#COBOL

Really lame encoding, go away baby

>>2

SOURCE FREE

Pathetic.

>>6
It may be lame but it's a good lil algorithm to show off. I really like my code in >>1

My cigar is burning unevenly but I care not.

>>2
Such elegance and grace

Nice

check my dozen

Bitches brew

Bumping this with http://en.wikipedia.org/wiki/Kolakoski_sequence
Do you guys know about this sequence?

>>14
That's pretty neat.

>>15
Yeah, that's pretty cool.

>>16
Agreed, it is pretty nice.

>>17
Yup, that's pretty good.

>>15-18
Not as neat as dubs.

>>19
I see no dubs here, buddy!

>>1
It doesn't compile, but it's a very inspiring way to use scanf. One of the best programs I've seen on here.

>>21

It dpesn't compile

Disregard that.

>>22
Whom are you quoting? There is no word "dpesn't" in his post.

>>23
Parodying quote-kun doesn't make your shitposts any less shit.

>>24
I'm not parodying anyone, I'm genuinely interested why his quote contains a word the original post doesn't.

how do you pronounce rle?

Radical Left Encoding.

>>21
Thank you!
>>25
o and p are close in QWERTY

Note: "Who are you quoting" is a usenet thing, where old posters would shitpost on the newsgroup because some people used google groups and made usenet appear as a forum.

>>28
Close in QWERTY or not, it's strange that he chose to retype to quote them, as opposed to just copying and pasting them to save work and ensure precision.

>>29
Nice prime.