बैट पर ब्रेनफैक दुभाषिया

ब्रेनफैक बोली विनिर्देश

1. इस तथ्य के कारण कि वर्ण " < " और " > " का उपयोग I / O को पुनर्निर्देशित करने के लिए किया जाता है, उन्हें ब्रेनफैक कमांड के रूप में उपयोग करने से अनावश्यक रूप से जटिल कोड हो जाएगा। इसलिए, हम उन्हें समान वर्तनी " ( " और " ) " से बदल देंगे।
2. टेक्स्ट आउटपुट और कीबोर्ड इनपुट के विकल्प सीमित हैं।

1. मेमोरी एक रिंग बफर का प्रतिनिधित्व करती है।
2. आउटपुट गैर-मुद्रण योग्य वर्णों और कुछ वर्णों के अपवाद के साथ कोड पृष्ठ के पहले 127 वर्णों तक सीमित है जो बैच फ़ाइल के काम करने में त्रुटि का कारण बना। उत्तरार्द्ध को प्रतीक "" द्वारा प्रतिस्थापित किया गया है। अंतरिक्ष को " _ " चिन्ह से बदल दिया गया है।
3. भाषा के "मुख्य शब्द":
   • ")" - अगली मेमोरी सेल पर जाएं
   • "(" - पिछली मेमोरी लोकेशन पर जाएं
   • "+" - एक से सेल वैल्यू बढ़ाएँ
   • "-" - एक से सेल मूल्य में कमी
   • "," - एक मानक इनपुट डिवाइस से सेल में मान पढ़ें। वर्तमान में लागू नहीं किया गया
   • "।" - मानक आउटपुट डिवाइस पर सेल वैल्यू प्रिंट करें
   • "[" - चक्र शुरू करें। यदि वर्तमान सेल का मान 0 नहीं है और अगले कमांड पर जाएं। अन्यथा, घोंसले के शिकार पर विचार करें
   • "]" चक्र का अंत है। यदि वर्तमान सेल का मान 0 नहीं है, तो लूप जारी रखें

दुभाषिया विवरण

• एमपी (मेमोरी पॉइंटर) - वर्तमान मेमोरी सेल के लिए पॉइंटर
• cp (कमांड पॉइंटर) - पॉइंटर करंट कमांड को

+++++++++[ * while mem[0]<=9 { )+++++ * mem[1]+=5 (-] * } ). * print chr(mem[1]) 

 set bf_prog= FOR /F "eol=c delims=*" %%I IN (%work_file%) DO SET bf_prog=!bf_prog!%%I 

 :work set cop=!bf_prog:~%cp%,1! if "%cop%" == "+" ( call :array get mem %mp% tmp set /a tmp += 1 if "!tmp!" == "256" set tmp=0 call :array set mem %mp% !tmp! ) else if "%cop%" == "-" ( call :array get mem %mp% tmp set /a tmp -= 1 if !tmp! LSS 0 set tmp=255 call :array set mem %mp% !tmp! ) else if "%cop%" == ")" ( set /a mp +=1 if !mp! == %maxmem% set mp=0 ) else if "%cop%" == "(" ( set /a mp -=1 if !mp! == -1 set /a mp=%maxmem% - 1 ) else if "%cop%" == "," ( call :comma ) else if "%cop%" == "." ( call :array get mem %mp% tmp call :Echochr !tmp! ) else if "%cop%" == "[" ( call :array get mem %mp% tmp if "!tmp!" == "0" ( call :skip1 ) ) else if "%cop%" == "]" ( call :array get mem %mp% tmp if "!tmp!" NEQ "0" ( call :skip2 ) ) set /a cp += 1 if %cp% == %bf_len% goto :exit goto :work 

कुछ रोचक समाधानों का वर्णन

 :echochr rem   . ,      cmd   "." set char=".#$...'()*+,-./0123456789.....?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]._`abcdefghijklmnopqrstuvwxyz{.}~_" if %1==10 echo. if %1==13 echo. if %1==32 <nul set /p strTemp="_" if %1 GTR 32 ( set /a code=%1 - 32 for /f %%t in ('cmd /c "echo %%char:~!code!,1%%"') do <nul set /p strTemp="%%t" ) exit /b 0 

 set t=%char:~%code%,1% 

 set t=%char:~!code!,1% 

 set t=!char:~%code%,1! 

 <nul set /p strTemp="%~1" 

निष्कर्ष

 ++++[)++++++++)++++++++++++++++++)++++++++++++++++) ++++++++++++++++++++)+++++++++++++++++++++++++(((((-] ))+.(.))))++++++++.+++.+++++++.-----------------. ((((.)-.)+.+.)++.(-.(.).+.). 

संदर्भ

• सरणियों के कार्यान्वयन के लेखक का पद: http://habrahabr.ru/blogs/crazydev/75951/
• एक मंच जहां कई विचारों को देखा गया था: http://forum.script-coding.com/viewforum.php?id=12
• यहां, बैच फ़ाइल में उपयोग किए गए समाधानों की विशेषताएं बताई गई हैं: http://rsdn.ru/article/winshell/NTCommandProcessor.xml

बैट-फाइलों की गति के अनुकूलन के बारे में

 @echo off setlocal ENABLEDELAYEDEXPANSION ENABLEEXTENSIONS echo %time% - start test1 set a=0 for /l %%i in (1,1,1000) do set /aa=!a!+1 echo %a% echo %time% - end test1 echo -------------- echo %time% - start test2 set a=0 for /l %%i in (1,1,1000) do call :m1 echo %a% echo %time% - end test2 goto :eof :m1 set /aa=%a%+1 exit /b /0