fork download
copy 
  1. const lewo:array[0..255] of byte = ( 
  2. 0,2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,
  3. 34,36,38,40,42,44,46,48,50,52,54,56,58,60,62,64,
  4. 66,68,70,72,74,76,78,80,82,84,86,88,90,92,94,96,
  5. 98,100,102,104,106,108,110,112,114,116,118,120,122,124,126,128,
  6. 130,132,134,136,138,140,142,144,146,148,150,152,154,156,158,160,
  7. 162,164,166,168,170,172,174,176,178,180,182,184,186,188,190,192,
  8. 194,196,198,200,202,204,206,208,210,212,214,216,218,220,222,224,
  9. 226,228,230,232,234,236,238,240,242,244,246,248,250,252,254,1,
  10. 3,5,7,9,11,13,15,17,19,21,23,25,27,29,31,33,
  11. 35,37,39,41,43,45,47,49,51,53,55,57,59,61,63,65,
  12. 67,69,71,73,75,77,79,81,83,85,87,89,91,93,95,97,
  13. 99,101,103,105,107,109,111,113,115,117,119,121,123,125,127,129,
  14. 131,133,135,137,139,141,143,145,147,149,151,153,155,157,159,161,
  15. 163,165,167,169,171,173,175,177,179,181,183,185,187,189,191,193,
  16. 195,197,199,201,203,205,207,209,211,213,215,217,219,221,223,225,
  17. 227,229,231,233,235,237,239,241,243,245,247,249,251,253,255);
  18.  
  19. const prawo:array[0..255] of byte = ( 
  20. 0,128,1,129,2,130,3,131,4,132,5,133,6,134,7,135,8,
  21. 136,9,137,10,138,11,139,12,140,13,141,14,142,15,143,16,
  22. 144,17,145,18,146,19,147,20,148,21,149,22,150,23,151,24,
  23. 152,25,153,26,154,27,155,28,156,29,157,30,158,31,159,32,
  24. 160,33,161,34,162,35,163,36,164,37,165,38,166,39,167,40,
  25. 168,41,169,42,170,43,171,44,172,45,173,46,174,47,175,48,
  26. 176,49,177,50,178,51,179,52,180,53,181,54,182,55,183,56,
  27. 184,57,185,58,186,59,187,60,188,61,189,62,190,63,191,64,
  28. 192,65,193,66,194,67,195,68,196,69,197,70,198,71,199,72,
  29. 200,73,201,74,202,75,203,76,204,77,205,78,206,79,207,80,
  30. 208,81,209,82,210,83,211,84,212,85,213,86,214,87,215,88,
  31. 216,89,217,90,218,91,219,92,220,93,221,94,222,95,223,96,
  32. 224,97,225,98,226,99,227,100,228,101,229,102,230,103,231,104,
  33. 232,105,233,106,234,107,235,108,236,109,237,110,238,111,239,112,
  34. 240,113,241,114,242,115,243,116,244,117,245,118,246,119,247,120,
  35. 248,121,249,122,250,123,251,124,252,125,253,126,254,127,255);
  36.  
  37. function rol( c:byte ): byte;
  38. begin
  39.   rol := lewo[c];
  40. end;
  41.  
  42. function ror( c: byte ): byte;
  43. begin
  44.   ror := prawo[c];
  45. end;
  46.  
  47. begin
  48.   writeln(rol(ror(64)));
  49. end.
  50.  
Success #stdin #stdout 0.01s 4112KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
64
https://ideone.com/M5nh6
language:
Pascal (gpc 20070904)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!