2005-01-15 00:34
by Vasil KolevНай-накрая Велин ми даде нещото, с което са се забавлявали на нова година. Прилагам го директно, с неговото оформление.
миналата нова година получих поздравителен sms от spite издържан в духа на “Язык програмирования C” когато тази нова година му го върнах обратно (пазейки го в телефона цяла година), получих нов вариант, този път в python style. от там zaphod ги препрати на половината си phonebook, и в отговор получихме java вариант. това се оказа катализатор на ненормална реакция и всеки написа по един – dobber на bash, zaphod на perl и аз на asm. от тук до края има само една крачка: вечната липса на оригинален текст който да изпратите като sms на общоприетите случаи рожден ден, имен ден, коледа, нова година, великден и каквото още се сетите – които все пак да отразяват изкривеното ни съзнание. ето и идеята: ще организираме online депо за такива sms-и. условията: charset-a да е съвместим със всички телефони, дължината да не превишава 160 знака, да отразява някакъв програмен език или нещо друго в IT. изпращайте идеите като коментари в този блог или на velin@zadnik.org. а когато се съберат повечко, ще отделим отделна страничка.
2004, spite, C
————————
#include <greetings.h>
HAPPY_NEW_YEAR(2005)
#include <stdwishes.h>
2005, spite, python
————————
#!/usr/bin/env/python
import wishes
wishes.happy_new_year(‘velin’)
wishes.wish(‘velin’, wishes.ALL_GOOD_COME_TRUE)
2005, unknown, java
————————
class New_Year public static nain void (Strings [] args)
println(“Happy new year and best wishes!”)
2005, zaphod, perl
————————
#!/usr/bin/perl
$party = “old”;
$party =~ s/old/new/;
printf (“Happy %s year”, $party);
exit(0);
2005, velin, asm
————————
mov ah, 9
mov dx, offset wishes
int 21h
int 20h
wishes db ‘HNY’, ODh, OAh, ‘$’
2005, dobber, bash
————————
dobber:/# cat > party < EOF
#!/bin/bash
echo “Happy new $1 year”
EOF
dobber:/# sh ./party 2005
January 15th, 2005 at 01:16
(втори опит)
PHP, с евентуален warning (който се изключва през php.ini)
Също може да се наложи да си настроите кодовата таблица на браузъра, за да четете кирилицата ;)
<?=чнг?>
January 15th, 2005 at 02:15
Честита Нова Година на PROFAN (http://www.profan.de)
Print @Add$ ("Happy New Year ", @SubStr$ (@Date$(0),3,"/"))
PlaySound "JingleBells.wav", 8
January 15th, 2005 at 02:45
2005, ColdFusion, Makefile
————————
Пред gcc трябва да са табулации ама нали няма такова нещо при смс-ите съм сложил интервали. Обаче смс-ът не излиза хубаво на малък екран на GSM-a заради дългия ред… :/ За това го пращайте на GSM-и с по-голями екрани.
ColdFusion
January 15th, 2005 at 02:48
Е тука не излизат интервалите пред gcc… Трябва да са по 8 пред всяко gcc за да се впишем в ограничението от 160 знака.
January 15th, 2005 at 21:59
C++:
life.push_back(new year(2005));
(малко тъпо това с директната проверка за коментари на кирилица… върна ме преди малко, защото нямаше нищо освен парчето “код”. Като не съм написал нищо, това нищо не е на кирилица, ама не е и на 6lyokavica, нали така?)
January 15th, 2005 at 22:00
(Изяде ми темплейт параметъра преди малко, защото съм прост…. да видим така дали ще стане?)
C++:
life.push_back(new year<happy>(2005));
January 16th, 2005 at 09:47
Лек опит за bash script:
#!/bin/bash
for $person in `cat party`
while $person not tired
do HAVE_FUN
January 16th, 2005 at 16:49
По-правилно на bash би било следното:
January 16th, 2005 at 18:47
още един от spite:
——————-
$ mail -s “URGENT” pr@my.org
Could you please write and sendsome nice wishes for the new year to velin@zadnik.org.
Thank you!
Your boss
^D
January 17th, 2005 at 11:29
Вариант на XSLT:
<xsl:stylesheet>
<xsl:output omit-xml-declaration=”yes”/>
<xsl:template match=”Velin”>
Happy New Year <xsl:value-of select=”//Inputs/@NewYearNumber”/>! Wish you <xsl:value-of select=”//Wishes/AllBestWishes/@List”/>
</xsl:template>
January 17th, 2005 at 11:42
Ако ще гледаме да сме синтактично коректни, на java би трябвало да е така:
public class New_Year {
public static void main (Strings [] args) {
System.out.println(“Happy new year and best wishes!”);
}
}
January 17th, 2005 at 11:44
това е нещо като config на Juniper ;))
unit 2005 {
description Novata_2005_a;
vlan-id 2005;
family praznik {
filter {
input alcohol;
output veselba_i_prostotii;
}
policer {
input 10liters;
output kolkoto_moje_poveche;
}
}
}
January 17th, 2005 at 14:29
Честита Нова Година
January 17th, 2005 at 14:30
Честита Нова Година
January 18th, 2005 at 12:56
Patch-нат вариант на ASM. Все пак Int 20h, отдавна не се ползва :)
mov ah, 9
mov dx, offset wishes
int 21h
mov ax, 4c00h
int 21h
wishes db ‘HNY’, ODh, OAh, ‘$’
January 18th, 2005 at 13:34
Ъхмъъ, еми хайде още един вариант :)
MySQL:
select concat(‘Happy new year:’, DATE_FORMAT(NOW(),’%Y’,rcp.name)) from recipients rcp
WHERE name IS NOT NULL and name <> ”;
Pgsql:
select ‘Happy new year:’ || to_char(NOW(),’YYYY’)|| ‘ ‘|| rcp.name||’!’ from recipients rcp
WHERE rcp.id IN (SELECT id from friends);
:)
January 22nd, 2005 at 17:41
Ето поздрав на Flash ActionScript:
#initclip 1
var newYear:Number = oldYear + 1;
_root.TimelineMovie.gotoAndPlay(cYear);
greetingsText.text = “Happy new ” + cYear + ” year!”;
for (cWish in Wishes)
trace(cWish);
#endinitclip
December 10th, 2007 at 16:44
// Ето поздрав на Delphi
//—————————-
type
THappy = class(TObject)
FWishes : String;
procedure SetWishes(const Value: String);
const sWishes = ‘Happy New ‘;
public
type
TNewYear = class(TObject)
const nYear = 2008;
end;
constructor Create();
property Wishes : String read FWishes write SetWishes;
class procedure NewYearMessage; static;
end;
implementation
constructor THappy.Create;
begin
Wishes:=sWishes+IntToStr(TNewYear(TNewYear.Create).nYear)+’ Year’;
end;
class procedure THappy.NewYearMessage;
begin
ShowMessage(THappy(THappy.Create).Wishes);
end;
procedure THappy.SetWishes(const Value: String);
begin
FWishes := Value;
end;
…
procedure TForm1.Button1Click(Sender: TObject);
begin
THappy.NewYearMessage;
end;