Recent

Author Topic: happy christmas everyone :)  (Read 6516 times)

speter

  • Sr. Member
  • ****
  • Posts: 356
happy christmas everyone :)
« on: December 24, 2024, 11:28:06 pm »
May all you bugs turn out to be (Australian) Christmas Beetles.

cheers
S.
I climbed mighty mountains, and saw that they were actually tiny foothills. :)

Bart

  • Hero Member
  • *****
  • Posts: 5494
    • Bart en Mariska's Webstek
Re: happy christmas everyone :)
« Reply #1 on: December 25, 2024, 12:05:56 am »
Traditionally I add my greetings as an excercise in "obfuscated pascal"  O:-)

Code: Pascal  [Select][+][-]
  1. program x_x;
  2.  
  3. {$h-}
  4.  
  5. const
  6.   x = 0;
  7.   xx = 1;
  8.   xxx =  xx shl xx;
  9.   xxxx = xxx + xx;
  10.   xxxxx = xx shl xxx;
  11.   xxxxxx = xxxxx + xx;
  12.   xxxxxxx = xxxxx + xxx;
  13.   xxxxxxxx = xxxxx + xxxx;
  14.   xl = xx shl xxxxxx + xx shl xxxx;
  15.   xxxxxxxxxx = xx shl xxxxxxxx + xx shl xxxxxxx + xx shl xxxxxx + xx shl xxx ;
  16.  
  17.  
  18. var
  19.   xxxxxxxxxxxxxxx: string;
  20.  
  21. procedure xx_xx(_x:string);
  22. var _xx: Byte;
  23. begin
  24.   _xx := (xl-byte(_x[x]) shr xx);  while _xx > 1 do begin write(char(1 shl xxxxxx)); dec(_xx); end;writeln(_x);
  25. end;
  26.  
  27.  
  28. procedure xxx_xxx(var _x: string);
  29. var _xx: Integer;
  30. begin
  31.   for _xx := xx to byte(_x[x]) do _x[_xx]:= char(byte(_x[_xx])+byte(1 shl xxxxxxx + 1 shl xxxxx + 1 shl xxxx));
  32. end;
  33.  
  34. function xxxx_xxxx(_x,_xx:integer):integer;
  35. begin
  36.   case _x>_xx of true: exit(_xx);false: exit(_x);end;
  37. end;
  38.  
  39. procedure xxxxx_xxxxx;
  40. begin
  41.   setlength(xxxxxxxxxxxxxxx,xxxxxxxxxx);
  42. end;
  43.  
  44. procedure xxxxxx_xxxxxx;
  45. var
  46.   _x, _xx: Integer;
  47.   _xxx: String;
  48. begin
  49.   writeln;
  50.   _x := 1;
  51.   while xxxxxxxxxxxxxxx[x]>#0 do
  52.   begin
  53.     _xx := 1+(_x-1) shl 1;
  54.     _xxx := copy(xxxxxxxxxxxxxxx,1,_xx);
  55.     dec(byte(xxxxxxxxxxxxxxx[x]), xxxx_xxxx(byte(xxxxxxxxxxxxxxx[x]),_xx));
  56.     xxx_xxx(_xxx);
  57.     xx_xx(_xxx);
  58.     inc(_x);
  59.   end;
  60. end;
  61.  
  62. function xxxxxxx_xxxxxxx: string;
  63. var
  64.   _x: char;
  65.   _xx: integer;
  66. begin
  67.   _xx := xx;
  68.   xxxxxxx_xxxxxxx[x] := char(xx shl xxxxxx + xx shl xxx);
  69.   _x := #0;
  70.   inc(_x, xx shl xxxxxxx + xx shl xxxx + xx shl xxx + xx);
  71.   xxxxxxx_xxxxxxx[_xx] := _x;
  72.  
  73.   inc(_x, xx shl xxxxx + xx shl xxxx);
  74.   inc(_xx);
  75.   xxxxxxx_xxxxxxx[_xx] := _x;
  76.  
  77.   inc(_x, xx shl xxxx + xx shl xxx + xx);
  78.   inc(_xx);
  79.   xxxxxxx_xxxxxxx[_xx] := _x;
  80.   inc(_xx);
  81.   xxxxxxx_xxxxxxx[_xx] := _x;
  82.  
  83.   inc(_x, xx shl xxxx - xx);
  84.   inc(_xx);
  85.   xxxxxxx_xxxxxxx[_xx] := _x;
  86.  
  87.   _x := char(round(sqrt(byte(_x))) shl xx);
  88.   inc(_x, xx shl xxxx + xx shl xx);
  89.   inc(_xx);
  90.   xxxxxxx_xxxxxxx[_xx] := _x;
  91.  
  92.   _x := char(byte(_x) shl xx);
  93.   inc(_x, xx shl xx + xx);
  94.   inc(_xx);
  95.   xxxxxxx_xxxxxxx[_xx] := _x;
  96.  
  97.   inc(_x, xx shl xxxxxx + xx shl xxx + xx);
  98.   inc(_xx);
  99.   xxxxxxx_xxxxxxx[_xx] := _x;
  100.  
  101.   inc(_x, xx shl xxxx + xx shl xx);
  102.   inc(_xx);
  103.   xxxxxxx_xxxxxxx[_xx] := _x;
  104.  
  105.   dec(_x, xx shl xxxx + xx);
  106.   inc(_xx);
  107.   xxxxxxx_xxxxxxx[_xx] := _x;
  108.  
  109.   inc(_x, xx shl xxxx + xx shl xx);
  110.   inc(_xx);
  111.   xxxxxxx_xxxxxxx[_xx] := _x;
  112.  
  113.   inc(_x, xx);
  114.   inc(_xx);
  115.   xxxxxxx_xxxxxxx[_xx] := _x;
  116.  
  117.   dec(_x, xx shl xxx + xx shl xx + xx);
  118.   inc(_xx);
  119.   xxxxxxx_xxxxxxx[_xx] := _x;
  120.  
  121.   dec(_x, xx shl xxxx + xx shl xxx);
  122.   inc(_xx);
  123.   xxxxxxx_xxxxxxx[_xx] := _x;
  124.  
  125.   inc(_x, xx shl xxxxx + xx shl xx);
  126.   inc(_xx);
  127.   xxxxxxx_xxxxxxx[_xx] := _x;
  128.  
  129.   _x := char(byte(_x) shr xxx);
  130.   inc(_x, xx shl xxx);
  131.   inc(_xx);
  132.   xxxxxxx_xxxxxxx[_xx] := _x;
  133.  
  134.   _x := char(byte(_x) shl xx);
  135.   inc(_x, xx shl xxxxxx + xx);
  136.   inc(_xx);
  137.   xxxxxxx_xxxxxxx[_xx] := _x;
  138.  
  139.   inc(_x, xx shl xxxx + xx shl xxx + xx);
  140.   inc(_xx);
  141.   xxxxxxx_xxxxxxx[_xx] := _x;
  142.  
  143.   dec(_x, xx shl xxxx + xx shl xx);
  144.   inc(_xx);
  145.   xxxxxxx_xxxxxxx[_xx] := _x;
  146.  
  147.   _x := char(byte(_x) shr xxx);
  148.   inc(_x, xx shl xxx + xx shl xx + xx);
  149.   inc(_xx);
  150.   xxxxxxx_xxxxxxx[_xx] := _x;
  151.  
  152.   _x := char(byte(_x) shl xx);
  153.   inc(_x, xx shl xxxxxx + xx);
  154.   inc(_xx);
  155.   xxxxxxx_xxxxxxx[_xx] := _x;
  156.  
  157.   dec(_x, xx shl xxxxxx + xx);
  158.   _x := char(byte(_x) shr xx);
  159.   inc(_xx);
  160.   xxxxxxx_xxxxxxx[_xx] := _x;
  161.  
  162.   _x := char(byte(_x) shl xx);
  163.   inc(_x, xx shl xxxx);
  164.   inc(_xx);
  165.   xxxxxxx_xxxxxxx[_xx] := _x;
  166.  
  167.   inc(_x, xx shl xxxxx + xx shl xxxx + xx);
  168.   inc(_xx);
  169.   xxxxxxx_xxxxxxx[_xx] := _x;
  170.  
  171.   inc(_x, xx shl xxxxx - xx);
  172.   inc(_xx);
  173.   xxxxxxx_xxxxxxx[_xx] := _x;
  174.   inc(_xx);
  175.   xxxxxxx_xxxxxxx[_xx] := _x;
  176.  
  177.   inc(_x, xx shl xxxx + xx);
  178.   inc(_xx);
  179.   xxxxxxx_xxxxxxx[_xx] := _x;
  180.  
  181.   inc(_x, xx shl xxx + xx shl xx + xx);
  182.   _x := char(byte(_x) shr xxx);
  183.   inc(_xx);
  184.   xxxxxxx_xxxxxxx[_xx] := _x;
  185.  
  186.   _x := char(byte(_x) shl xx);
  187.   inc(_x, xx shl xxxx + xx shl xxx + xx shl xx);
  188.   inc(_xx);
  189.   xxxxxxx_xxxxxxx[_xx] := _x;
  190.  
  191.   inc(_x, xx shl xxxxx + xx shl xxxx - xx);
  192.   inc(_xx);
  193.   xxxxxxx_xxxxxxx[_xx] := _x;
  194.  
  195.   inc(_x, xx shl xxxxx + xx shl xx);
  196.   inc(_xx);
  197.   xxxxxxx_xxxxxxx[_xx] := _x;
  198.  
  199.   _x := char(byte(_x) shr xxx);
  200.   inc(_x, xx shl xx + xx);
  201.   inc(_xx);
  202.   xxxxxxx_xxxxxxx[_xx] := _x;
  203.  
  204.   _x := char(byte(_x) shl xx);
  205.   inc(_x, xx shl xxxxx + xx shl xxxx + xx);
  206.   inc(_xx);
  207.   xxxxxxx_xxxxxxx[_xx] := _x;
  208.  
  209.   inc(_x, xx shl xxxx + xx shl xxx);
  210.   inc(_xx);
  211.   xxxxxxx_xxxxxxx[_xx] := _x;
  212.  
  213.   dec(_x, xx shl xxx);
  214.   inc(_xx);
  215.   xxxxxxx_xxxxxxx[_xx] := _x;
  216.  
  217.   inc(_x, xx shl xxxxx + xx);
  218.   inc(_xx);
  219.   xxxxxxx_xxxxxxx[_xx] := _x;
  220. end;
  221.  
  222. procedure xxxxxxxx_xxxxxxxx;
  223. var
  224.   _x: String;
  225. begin
  226.   _x := xxxxxxx_xxxxxxx;
  227.   writeln;
  228.   xx_xx(_x);
  229. end;
  230.  
  231.  
  232. begin
  233.   xxxxx_xxxxx;
  234.   xxxxxx_xxxxxx;
  235.   xxxxxxxx_xxxxxxxx;
  236. end.

Have fun.

dsiders

  • Hero Member
  • *****
  • Posts: 1321
Re: happy christmas everyone :)
« Reply #2 on: December 25, 2024, 12:20:32 am »
Merry Christmas.

Watch out for the flying sheep, pigs and reindeer. ;)
Preview the next Lazarus documentation release at: https://dsiders.gitlab.io/lazdocsnext

dseligo

  • Hero Member
  • *****
  • Posts: 1443
Re: happy christmas everyone :)
« Reply #3 on: December 25, 2024, 01:51:52 am »
Have fun.

Nice :)

Merry Christmas to everyone!

ginoo

  • Full Member
  • ***
  • Posts: 108
Re: happy christmas everyone :)
« Reply #4 on: December 25, 2024, 06:21:45 am »
Merry christmas

paweld

  • Hero Member
  • *****
  • Posts: 1278
Re: happy christmas everyone :)
« Reply #5 on: December 25, 2024, 09:08:54 am »
Merry christmas
Best regards / Pozdrawiam
paweld

ackarwow

  • Full Member
  • ***
  • Posts: 102
    • Andrzej Karwowski's Homepage
Re: happy christmas everyone :)
« Reply #6 on: December 25, 2024, 09:47:20 am »
Merry Christmas!

Boleeman

  • Hero Member
  • *****
  • Posts: 767
Re: happy christmas everyone :)
« Reply #7 on: December 25, 2024, 10:04:49 am »
Merry Christmas to All.

Have a nice safe holiday, where ever in the world you reside.

A small animation of snowflakes made with Lazarus
(in Melbourne Australia it never snows, but we do have heat waves instead of cold snow)
« Last Edit: December 25, 2024, 11:18:52 pm by Boleeman »

AlexTP

  • Hero Member
  • *****
  • Posts: 2519
    • UVviewsoft
Re: happy christmas everyone :)
« Reply #8 on: December 25, 2024, 10:25:16 am »
Thanks for Merry Christmas. I live in russian federation which has 100 years of atheism (after anti-Czar 'revolution'). So ppl here respect New Year but pay small attention to Christmas, sad!

silvercoder70

  • Full Member
  • ***
  • Posts: 118
    • Tim Coates
Re: happy christmas everyone :)
« Reply #9 on: December 25, 2024, 12:37:28 pm »
Merry Christmas to Everyone Here
Explore the beauty of modern Pascal programming with Delphi & Free Pascal - https://www.youtube.com/@silvercoder70

440bx

  • Hero Member
  • *****
  • Posts: 4867
Re: happy christmas everyone :)
« Reply #10 on: December 25, 2024, 12:45:19 pm »
I live in russian federation which has 100 years of atheism (after anti-Czar 'revolution'). So ppl here respect New Year but pay small attention to Christmas, sad!
Also sad is that Christmas is originally a pagan tradition which was conveniently usurped by religion.... and these are the people who preach honesty and are usually prone to deliver a guilt trip to others.... hmmm... great example  :D

Anyway, any day is a good day to wish others have a wonderful day, including Christmas, therefore have a merry Christmas, hope you have a wonderful day regardless of religious beliefs (if any at all.)

Hopefully Ukraine won't be bombed today.  It would be nice for them to have  a nice day too (for a change.)
(FPC v3.0.4 and Lazarus 1.8.2) or (FPC v3.2.2 and Lazarus v3.2) on Windows 7 SP1 64bit.

alpine

  • Hero Member
  • *****
  • Posts: 1315
Re: happy christmas everyone :)
« Reply #11 on: December 25, 2024, 01:40:43 pm »
Thanks for Merry Christmas. I live in russian federation which has 100 years of atheism (after anti-Czar 'revolution'). So ppl here respect New Year but pay small attention to Christmas, sad!
Regardless, Merry Christmas to you and to everyone!

I believe in Russia it is celebrated in 7-th of Jan according to the Julian calendar. Are you really not celebrating? Here in BG it was also quiet before, there were no days off and people celebrated at home. But now it's complete shopping frenzy.
"I'm sorry Dave, I'm afraid I can't do that."
—HAL 9000

MarkMLl

  • Hero Member
  • *****
  • Posts: 8080
Re: happy christmas everyone :)
« Reply #12 on: December 25, 2024, 02:13:41 pm »
Thanks for Merry Christmas. I live in russian federation which has 100 years of atheism (after anti-Czar 'revolution'). So ppl here respect New Year but pay small attention to Christmas, sad!

In that case I'd point out that even though there might be historical discrepancies between our calendars, Russia and the USSR have long accepted the principle of using timezones relative to UTC.

And the 25th December is one of the days on which the Equation of Time- the discrepancy between UTC and Solar Time- is zero.

So even if different cultures and different subcultures justify a day of celebration using different arguments, let's enjoy it.

MarkMLl
MT+86 & Turbo Pascal v1 on CCP/M-86, multitasking with LAN & graphics in 128Kb.
Logitech, TopSpeed & FTL Modula-2 on bare metal (Z80, '286 protected mode).
Pet hate: people who boast about the size and sophistication of their computer.
GitHub repositories: https://github.com/MarkMLl?tab=repositories

AlexTP

  • Hero Member
  • *****
  • Posts: 2519
    • UVviewsoft
Re: happy christmas everyone :)
« Reply #13 on: December 25, 2024, 03:29:48 pm »
Thanks all. I must correct myself about '100 years of atheism'. Not 100 but 1991-1917 = about 70 years. After 1991 we have Eltsin's time and Pu's time. These times are somewhat filled with Christianity, but still russian federation has church separated from the state (like in USSR). Pu is walking to the Christ church and to the sinagoga (he fires sinagoga's candles there) at the same time, so it is not full rise of the Christianity.

Dzandaa

  • Sr. Member
  • ****
  • Posts: 404
  • From C# to Lazarus
Re: happy christmas everyone :)
« Reply #14 on: December 25, 2024, 05:45:27 pm »
Hi,
I don't care of Atheism, Pagan or Christianity,

Just take a good time with your peoples.

Merry Christmas To all the nice users of this great forum.

B->
Regards,
Dzandaa

 

TinyPortal © 2005-2018