HP Forums
Request for Circular Shift Functions - Printable Version

+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Calculators (and very old HP Computers) (/forum-3.html)
+--- Forum: HP Prime (/forum-5.html)
+--- Thread: Request for Circular Shift Functions (/thread-4385.html)



Request for Circular Shift Functions - douganc - 07-19-2015 07:54 PM

Hello,

Could you please add Circular Shift Functions for both Lists Type and Binary Bits Type to the HP Prime and also Xcas.

These Functions would be very useful for teaching Elementary Cryptography and also Programming.

I am thinking of a fun elementary cryptography App. on HP Prime, where the teacher and students could send encrypted text to each other using basic methods like Caesar Shift and Block Codes. Then students would decode received message using supplied algorithms they learn about in Class.

See Wikipedia "Circular Shift " for more info.

Some C code to help you start:

/*
* Shift operations in C are only defined for shift values which are
* not negative and smaller than sizeof(value) * CHAR_BIT.
*/
Rotate Left Example:

unsigned int rotl(unsigned int value, int shift) {
return (value << shift) | (value >> (sizeof(value) * CHAR_BIT - shift));
}
Rotate Right Example:

unsigned int rotr(unsigned int value, int shift) {
return (value >> shift) | (value << (sizeof(value) * CHAR_BIT - shift));
}

Thanks !
Colm


RE: Request for Circular Shift Functions - roadrunner - 07-20-2015 01:00 AM

Hello Colm,

Is this what you mean?

For lists:
Code:

LOCAL s;

EXPORT listright(t)
BEGIN
 IF type(t)≠6 THEN RETURN ;END;
 s:=SIZE(t);
 RETURN CONCAT(t(s),SUB(t,1,s-1));
END;

EXPORT listleft(t)
BEGIN
 IF type(t)≠6 THEN RETURN ;END;
 s:=SIZE(t);
 RETURN CONCAT(SUB(t,2,s),t(1));
END;

For bits:
Code:

EXPORT bitleft(t)
BEGIN
 RETURN BITSL(t,1)+BITSR(t,GETBITS(t)-1);
END;

EXPORT bitright(t)
BEGIN
 RETURN BITSR(t,1)+BITSL(t,GETBITS(t)-1);
END;

Road


RE: Request for Circular Shift Functions - douganc - 07-20-2015 06:07 AM

Yes, thank you.
Perhaps now they put functions in operating system.
Thank you
Colm [/i]


RE: Request for Circular Shift Functions - douganc - 07-20-2015 07:16 PM

Hello,
Could you please put these programs in the Hp Prime Software Section.
So everyone can use in their programs.
Thank You.
Colm