caesar cipher encryption 1

[TheSean]

Can anyone help me out with this. I'v to make a Cipher encrypyion in prolog.

Typical input would be AAABBBCCC output would be CCCDDDEEE

it's a 3 letter jump encryption.

Any help is much appreciated.

 

[joel76]

In Prolog, a string is a list of characters codes.
So, if you use SWI Prolog, you can use maplist to add 3 to the codes of the list "AAABBBCCC

 

[TheSean]

So, lets say a list
L("AAABBBCCC")
L2("")

I would do for example
encode(Char, L, L2) :- maplist(caesar(Char, L1, L2)

cipher(_, 26, 26) :- !.

would I be right doing this??

 

[joel76]

Here is the code :

caesar(L1, L2) :-
	maplist(cipher, L1, LT),
	string_to_list(L2,LT).


cipher(X,Y) :-
	Y is X+3.

and what you get

 ?- caesar("AAABBBCCC", L2) .
L2 = "DDDEEEFFF".

 

[TheSean]

Cheers man. Is that the whole program? I thought it would be a bit more complicated than that. This assignment is worth 25% of my total grand for the module.

 

[joel76]

You just have to check what happens for XYZ !

 

[TheSean]

Cheers,

Much appreciated

 

[monahad92]

Can anyone help me!!
If I wanted this to work with just the alphabet and no symbols or numbers how do I go about doing this and also is there anyway to use the space tab without getting a symbol in the encrypted part ? Thanks!!