کیسه ترفندهای تک (شماره ۱) چگونه یکی بودن دو رشته حرف را چک کنیم؟

Question

کیسه ترفندهای تک نام مجموعه‌ای از پرسش‌ها برای دانستن بیشتر در مورد ترفندهای برنامه‌نویسی در تک است. در هر پرسش یک سوال مطرح میشه و هر شخصی یک هفته وقت داره که روی پرسش فکر کنه و پاسخ رو بنویسه. برای پاسخ می‌تونید از هر کتابی که دلتون خواست استفاده کنید اما مجاز نیستید در گوگل یا هر موتور جستجوی دیگه‌ای و اینترنت استفاده کنید. از هیچ بسته‌ای نمی‌تونید استفاده کنید. از فرمت لاتک هم نمی‌تونید استفاده کنید. تمام پاسخ‌ها تنها و تنها باید با فرمت plain TeX خود کنوث و خود موتور اصلی tex کنوث انجام بشه. تنها منبع مورد نیاز برای پاسخگویی کتاب The TeXbook کنوث است.

برای شروع من یک پرسش ساده رو انتخاب کردم.

دستوری به نام \EqualString تعریف کنید که دو آرگومان داشته باشه که هر دو آرگومان یک یا چندین حرف باشه و این دستور به شما اجازه بده که یکی بودن رشته حروف آرگومان اول و دوم رو چک کنید. شما باید دستور \EqualString را به نحوی تعریف کنید تا به عنوان نمونه

\if\EqualString{vafa}{vafa}
  true
\else
  false
\fi

به شما مقدار true برگردونه اما

\if\EqualString{vafa}{Vafa}
  true
\else
  false
\fi

به شما مقدار false برگردونه. استفاده از \if قبل از دستور \EqualString اجباری است.

Comments

به نظرم اگر حداقل منابع هم معرفی می‌گردید خوب بود تا خواننده کنجکاو بتواند به دنبال آن در منابع مختلف بگردد.

در ضمن باز هم اینکه برای هر سوال ذکر شود که ذیل چه مبحثی باید در کتاب‌های مورد نظر جستجو انجام داد هم به علاقه‌مندان کمک می‌نماید تا به صورت هدفمند مطالعه نمایند. زیرا که شاید امکان مطالعه و درک کل کتاب برای اشخاص در زمان کوتاه ممکن نباشد.


در پاسخ خود با کمک کتاب کنوث؛ شاید ساعتی را بدنبال اینکه چگونه کاراکترها را به یک لیست از توکن تبدیل نموده و بعد این توکن‌ها را مقایسه نماییم می‌گشتم اما یکمرتبه یادم افتاد که اصلا نیازی به این کارها نبوده و ....

---

من پرسش را ویرایش کردم و اشاره کردم که تنها منبع کتاب تک کنوث است.

Answer 1

این هم جوابی دیگر ...

درستی یا نادرستی آن با طراح سوال!

\def\EqualString#1#2{11\fi%
\def\one{#1}\def\two{#2}%
\ifx\one\two
}

\if\EqualString{vafa}{vafa}
  true
\else
  false
\fi
\if\EqualString{Vafa}{vafa}
  true
\else
  false
\fi

\bye

Answer 2

  I dont know whether my answer is correct or not. but i can tell that i did my best and this may be the correct answer for it. 
my reference was the tex books and my old experiences.
sorry for my mistakes   
 \def\if\VAFAString#1#2{%
 Is #1\ equal to #2?
\def\r{#1}\def\t{#2}%
\ifx\r\t
True
\else
False
\fi
}
\if\VAFAString{vafa}{Vafa}
\bye
  shapour madadpour

Answer 3

پاسخی که من در نظر داشتم بصورت زیر است. این ماکرو و بسیاری ماکروهای دیگر هم‌اکنون در بسته biditools تعریف شده‌اند.

\def\EqualString#1#2{%
  00\fi
  \def\stringA{#1}%
  \def\stringB{#2}%
  \ifx\stringA\stringB}

\if\EqualString{vafa}{vafa}
  true
\else
  false
\fi  

\if\EqualString{vafa}{Vafa}
  true
\else
  false
\fi


\bye

Answer 4

نمیدانم منظورتان را دقیقا متوجه شده‌ام یا خیر؟ ولی پاسخی که به ذهنم می‌رسد به شرح زیر است:

\def\EqualString#1#2{%
\def\one{#1}\def\two{#2}%
\ifx\one\two
    true%
\else
    false%
\fi%
}

\EqualString{vafa}{vafa}
\EqualString{vafa}{Vafa}

\bye

Comments

درسته اما کد شما باید از syntaxی که من در پرسشم اشاره کردم استفاده کنه بنابراین \EqualString{vafa}{vafa} مورد نظر من نبوده.

---

همانطور که در پرسش هم اشاره کردم شما مجاز به استفاده از لاتک نیستید. پاسخ تنها باید با فرمت plain tex کنوث و موتور تک knuth انجام بشه.

---

اگر ماکروی تعریفی بجای  true توکن‌های 00   و بجای false توکن‌های 01 را برگرداند نمی‌دانم چرا در ساختار تعریفی شما دچار مشکل شده و خطا می‌دهد؛ در حالیکه در حالت عادی چنین نیست و \if00 و یا \if01 مشکلی ندارد؟!

---

من نمی‌توانم به پرسش شما پاسخ بدم. شما یک هفته وقت دارید و بنابراین باید با موضوع کمی struggle داشته باشید. اگر بخواهم به تمام پرسش‌هایی از این دست پاسخ بدهم کل fun از بین خواهد رفت و شما هم چیزی یاد نخواهید گرفت.

Answer 5

\long\def\if\EqualString#1#2#3\else#4\fi{%
\def\one{#1}\def\two{#2}%
\ifx\one\two
    #3%
\else
    #4%
\fi%
}


\if\EqualString{vafa}{vafa}
    ture%
\else
    false%
\fi
\if\EqualString{vafa}{Vafa}     
    true%
\else
    false%
\fi        

\bye

این راه حل خیلی به دلم نمی‌چسبند چون انتظار داشتم که از همان ساختار \if تک استفاده کنم و در بازگشت در حالت درست دو تا توکن همسان بفرستم و در غیر آن دو تا توکن ناهمسان که نشد. البته تلاش دیگری داشتم که بجای سطر اول در حالت درست \iftrue بگذاریم و در حالت نادرست \iffalse که آن هم با شکست مواجه شد! و هنوز هم تصورم این است که این دو راهی که در ذهنم آمده است باید شدنی باشد.