웃으세요 제발 ^^;...theF..

좋은일 하자 좋은일 하며 살자.
착하게 살자 선하게 살자.
겸손해 지자 겸손하게 살자
열심히 살자 발에 땀나도록 열심히 살자
웃으며 살자 무조건 웃으며 살자.
감사하며 살자 숨쉬는것 자체에 감사 하며 살자

또 헛되이 돈을 썻다.

위에서 니가 그럼그렇지 하며 혀를 차시는거 같다.
그 돈으로 기부를 했더라면..

웃기는건

먹고 죽자 하며 쓴 돈은 안아까운데,
오늘 우연히 본 다음 기부코너에서
최소금액 1000원을 누르면서 아까운 마음이 드는거야.

나 지금 뭐하냐 란 생각에 이 악물고 만원 찍었어.
눈물 날라 그래.. ㅜ_ㅜ
아까워서 그런게 아니라 사상이 불순한 내가 너무 불쌍해서 눈물날라 그래.

다음에 다음에,
기회가 되면, 때가 되면 이란 말을 너무 좋아하는 내가
너무 불쌍해서...

그래서 눈물날라 그래.

몇가지 소트 알고리즘

procedure BubbleSort(Items: TStrings);
var
done: boolean;
i, n: integer;
Dummy: string;
begin
n := Items.Count;

repeat
done := true;
for i := 0 to n - 2 do
if Items[i] > Items[i + 1] then
begin
Dummy := Items[i];
Items[i] := Items[i + 1];
Items[i + 1] := Dummy;

done := false;
end;
until done;
end;


procedure SelectionSort(Items: TStrings);
var
i, n, maxIndex, topIndex: integer;
Dummy: string;
begin
n := Items.Count;

for topIndex := n - 1 downto 1 do
begin
maxIndex := topIndex;
for i := 0 to topIndex - 1 do
if Items[i] > Items[maxIndex] then
maxIndex := i;

Dummy := Items[topIndex];
Items[topIndex] := Items[maxIndex];
Items[maxIndex] := Dummy;
end;
end;


procedure InsertionSort(Items: TStrings);
var
i, Position, n: integer;
Value: string;
Done : boolean;
begin
n := Items.Count;

for i := 1 to n - 1 do
begin
Value := Items[i];
Position := i;
Done := false;

while not done do
begin
if Position <= 0 then
Done := true
else
if Value >= Items[Position - 1] then
Done := true
else
begin
Items[Position] := Items[Position - 1];
Position := Position - 1;
end;
end;

Items[Position] := Value;
end;
end;

어쩌면 우린...
가고 싶은 곳을 가기위해
멀리 돌아가는 것일지도 몰라.