CapsLockআপনার কীবোর্ডের কীটির মধ্যে একটি খাঁজ না থাকলে কী ঘটে ?

"এই এইচপিএনএস" "

এই প্রোগ্রামটির লক্ষ্য হ'ল নিয়মিতভাবে কীবোর্ডকে অনুকরণ করা যেখানে প্রতিটি Aপ্রেস প্রতিস্থাপন করা হয় CapsLock। উত্স থেকে বড় 'এ'র একই প্রভাব পাওয়া উচিত। যখন CapsLockসক্ষম হলে, মূলধন বিপরীত।

পরীক্ষার মামলা

"The quick brown fox jumps over the lazy dog."
-> "The quick brown fox jumps over the lZY DOG."

"Compilation finished successfully."
-> "CompilTION FINISHED SUCCESSFULLY."

"What happens when the CapsLock key on your keyboard doesn't have a notch in it?"
-> "WhT Hppens when the CPSlOCK KEY ON YOUR KEYBOrd doesn't hVE  notch in it?"

"The end of the institution, maintenance, and administration of government, is to secure the existence of the body politic, to protect it, and to furnish the individuals who compose it with the power of enjoying in safety and tranquillity their natural rights, and the blessings of life: and whenever these great objects are not obtained, the people have a right to alter the government, and to take measures necessary for their safety, prosperity and happiness."
-> "The end of the institution, mINTENnce, ND dministrTION OF GOVERNMENT, IS TO SECURE THE EXISTENCE OF THE BODY POLITIC, TO PROTECT IT, nd to furnish the individuLS WHO COMPOSE IT WITH THE POWER OF ENJOYING IN Sfety ND TRnquillity their nTURl rights, ND THE BLESSINGS OF LIFE: nd whenever these greT OBJECTS re not obtINED, THE PEOPLE Hve  RIGHT TO lter the government, ND TO Tke meSURES NECESSry for their sFETY, PROSPERITY nd hPPINESS."

"aAaaaaAaaaAAaAa"
-> "" (Without the notch, no one can hear you scream)

"CapsLock locks cAPSlOCK"
-> "CPSlOCK LOCKS CPSlOCK"

"wHAT IF cAPSlOCK IS ALREADY ON?"
-> "wHt if CPSlOCK IS lreDY ON?"

বিজয়ী মানদণ্ড যথারীতি জমা দেওয়া প্রোগ্রামের উত্স কোডের আকার।

code-golf string keyboard

— ব্রডওয়েলের
সূত্র

110

সাইটে স্বাগতম! এটি একটি দুর্দান্ত প্রথম চ্যালেঞ্জ, এবং দুর্ভাগ্যক্রমে আমার এবং আমার এফটি ফিঙ্গার্সের জন্য খুব সম্পর্কিত able

— ডিজেএমসিএমহেম

5

প্রস্তাবিত পরীক্ষার কেস:teSTateSTateSTateST

— রড

88

যদি শুধুমাত্র Enter কী একটি খাঁজ এটা যাতে ছিল এই wouldn '

— 12Me21

75

ঘটবে না .......

— 12

22

আক্ষরিকভাবে এই সাইটে "

— উঁচু

115

অটোহটকি , 7 বাইট

a::vk14

// এটি বৈধ? এই সত্যিই কি ওপি চাও - প্রতিস্থাপন aদ্বারা CapsLock (vk14)।

এই প্রোগ্রামটি চালান, এবং কীবোর্ড থেকে ইনপুট টাইপ করুন ..

— TSH
সূত্র

4

"এটা কি বৈধ?" ওপি ইনপুট বা আউটপুট সীমাবদ্ধতাগুলি নির্দিষ্ট করে নি তাই আমি এই বৈধটিকে বিবেচনা করব।

— নেফরিন

5

অনেক আহ্ক উত্তর দেখতে পাবেন না!

— হ্যাস্পেসসুইট

57

এটি দুর্দান্ত তবে আমি কীভাবে এটি বাতিল করব?

— রবজিজি

69

@ রবজিজি কেবল "হত্যার এলএলওহোটকি" টাইপ করুন ... ওহ উইট

— নেফরিন

5

@ টিএসআই আমি মনে করি আপনি এখানে রসিকতাটি মিস করেছেন ...

— রবজিজি

32

ভি , 9 বাইট

ò/ãa
xg~$

এটি অনলাইন চেষ্টা করুন!

Hexdump:

00000000: f22f e361 0a78 677e 24                   ./.a.xg~$

ব্যাখ্যা:

ò       " Recursively:
 /ãa    "   Move forward to the next 'a' (upper or lowercase)
        "   This will break the loop when there are no more 'a's
x       "   Delete the 'a'
 g~$    "   Toggle the case of every character after the cursor's position.

— ডিজেএমসিএমহেম
সূত্র

21

Vim, 16 বাইট

qq/\ca
xg~$@qq@q

ধরে নিই ইনপুটটি একক লাইনে রয়েছে

ব্যাখ্যা

qq            Start a loop
 /\ca␊         Find the first occurence of an a, end the loop if there are none left
 xg~$          Remove it and invert the case of the rest of the file
@qq@q         End the loop

— হারমান এল
সূত্র

এই ক্ষেত্রে 'ক' এর সংবেদনশীল অনুসন্ধান?

— জিনুডিফ

@ গুনিডিফ \cযে কোনও জায়গায় রেইগেক্স -অনুসন্ধানে কেস-সংবেদনশীলতা সক্ষম করে

— হারমান এল

g~$কাজ করার জন্য আপনার কি একটি নির্দিষ্ট পতাকা সেট করা দরকার ? কারণ আমার জন্য এটি কেবল লাইন শেষ না হওয়া অবধি কেসকে উল্টে দেয়, পুরো ফাইলটি নয়, সুতরাং এটি আমার জন্য মাল্টলাইন ফাইলগুলির পক্ষে সত্যই কাজ করে না।

— কিউবিক

1

@ কিউবিক যেমন আমি উত্তরে লিখেছি, এটি "অনুমান করে যে ইনপুটটি একটি একক লাইনে রয়েছে"

— হারমান এল

@ কিউবিক যদি আপনি ফাইলটির শেষের দিকে যেতে চান এবং একাধিক লাইনে ইনপুটগুলি সমর্থন করেন তবে আপনি এটি করতে g~vGবা করতে পারেন vG~।

— ডিজেএমসিএমহেম

15

সি, 72 বাইট

@ টন হসপেলকে 16 বাইট সংরক্ষণে সহায়তা করার জন্য ধন্যবাদ!

t,c;f(char*s){for(t=0;c=*s++;6305%c?putchar(isalpha(c)?c^t:c):(t^=32));}

এটি অনলাইন চেষ্টা করুন!

— Steadybox
সূত্র

2

— টোন হসপেল

আপনি সম্ভবত না থাকার আরও বেশি সঞ্চয় করতে পারেন tহতে 0/32এমনকি / বিজোড় (XOR প্রত্যেকের জন্য 32 সঙ্গে টি পরিবর্তে aএবং তারপর XOR চিঠি সরাসরি সহ)t

— টন Hospel

2

aএর সনাক্ত করার দুর্দান্ত উপায়

— টোন হসপেল

1

@ টনহোপেল ফাংশনগুলি পুনরায় ব্যবহারযোগ্য হতে হবে এবং আমি মনে করি না যে প্রতিটি কলের পরে আবার ব্যবহারযোগ্য করার জন্য আপনার যদি বাহ্যিক কোড প্রয়োজন হয় তবে এটি পুনরায় ব্যবহারযোগ্য হিসাবে গণ্য হবে।

— স্টেডিবক্স

1

6305%cc13 হয় 0 হয়

— রোজি এফ

11

হুশ , 11 বাইট

Γ·§?m\:€"Aa

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

আমি Γবলা কিছুটা অস্পষ্ট ওভারলোডিং ব্যবহার করছি listNF, যা তালিকায় কাজ করে এমন পুনরাবৃত্ত ফাংশন তৈরি করে। এটি নিম্নলিখিত হাস্কেল প্যাটার্নের সাথে মিলে যায়:

listNF f = g
  where g (x : xs) = f g x xs
        g [] = []

ধারণাটি হ'ল listNFএকটি সহায়ক ফাংশন নেয় fএবং একটি নতুন ফাংশন দেয় g, যা একটি তালিকা নেয়। ফাংশনটি fএকটি ফাংশন নেয় যা সর্বদা থাকবে gএবং তালিকার মাথা xএবং লেজ থাকবে xsএবং তাদের সাথে কিছু করে। আমাদের অ্যাপ্লিকেশনটিতে, পুনরাবৃত্তভাবে fকলগুলি । প্রোগ্রামটি এভাবে ব্যাখ্যা করা হয়:gxs

Γ (· (§ (?m\) : (€"Aa")))
Γ (                     )  Create a function g that takes a list (x:xs) and applies a function on x and xs.
   · (                 )   Compose g with second argument of function in parentheses.
                           Instead of x and xs, the function is called on x and the result of a recursive call of g on xs.
                (€"Aa")    Check if x is 'A' or 'a'.
        (?m\)              If it is, then swap the case of every char in g(xs).
      §       :            Otherwise, prepend x to g(xs).

— Zgarb
সূত্র

3

বাহ, ভাল জিনিস আমি রিফ্রেশ আগে আমি আমার 12 বাইট সমাধান পোস্ট Ḟ·+m\ṁx'Ax'a। আমরা কি একটি ব্যাখ্যা পেতে পারি? Γঠিক কী করে সে সম্পর্কে আমি কোনও তথ্য পাই না এবং এটি শেখার একটি ভাল সুযোগ বলে মনে হচ্ছে।

— সোফিয়া ল্যাটারে

1

পছন্দ করেছেন এই সংস্করণটি Γব্যাখ্যা করা কিছুটা শক্ত, আমি আশা করি আপনি এটি উপলব্ধি করতে পারেন।

— Zgarb

বাহ এটা ধীর। এটা কি শুধু টিআইও?

— ফ্রাউনফ্রোগ 13

1

পছন্দ করুন সমন্বিত প্রোগ্রামগুলির টাইপ অনুক্রমটি Γসাধারণভাবে ধীর বলে মনে হচ্ছে। আপনি যদি হুকের সাথে পরিচিত না হন তবে প্রোগ্রামের সমস্ত সম্ভাব্য কাঠামো (মূলত প্যারেনেসিসের সম্ভাব্য স্থান) এবং প্রতিটি অন্তর্নির্মিত সমস্ত ওভারলোডিংয়ের মাধ্যমে লুপ করে একটি প্রোগ্রাম ব্যাখ্যা করা হয় এবং ফলাফলটি ভাল- টাইপ করা। দোভাষী দেরীতে কিছু সম্ভাবনা প্রত্যাখ্যান করার জন্য যথেষ্ট স্মার্ট, তবে মনে হয় এর পুনরাবৃত্ত সংস্করণ Γএই পদক্ষেপের সাথে ঝামেলা করতে পারে এবং এটিকে অনেক পছন্দ করে লুপ করতে বাধ্য করে।

— জাগারব

@ সোফিয়ালেকনার আমি একটি টিপΓ লিখেছিলাম যা কিছু বিশদে ব্যাখ্যা করেছে ।

— Zgarb

11

রেটিনা , 33 21 17 বাইট

i(Tv`lL`Ll`a.*
a

এটি অনলাইনে চেষ্টা করুন

ব্যাখ্যা:

i(              i is for case-insensitive, the paren makes it modify both stages
  Tv`           Transliteration, with simple overlaps (v) - 1 match at every start pos
     lL`Ll`     Replace lowercase with uppercase, and vice versa
           a.*  Every 'a' will match, overlapping to the end of the string
                This swaps the case on all letters after each 'a'
a               Replace all 'a's with nothing

-12 বাইট মার্টিনকে
ধন্যবাদ -4 বাইট ধন্যবাদ লিওকে

— mbomb007
সূত্র

— আশ্চর্যজনকভাবে

1

আমি মনে করি iT`aAlL`__Ll`a[^a]*a?এটি 21 বাইটের জন্যও কাজ করে।

— নীল

ওভারল্যাপিং ম্যাচগুলি ব্যবহার করে 4 বাইটগুলি সংক্ষিপ্ত

— লিও

আমি আপনার বিবরণ যোগ করার সময় থাকলে এটি কীভাবে কাজ করে তা সম্পর্কে আগ্রহী। ধন্যবাদ!

— শৈশুমারা

9

সি # , 121 বাইট

Console.WriteLine(string.Join("",Console.ReadLine().Split(new[]{'a','A'}).Select((a,i)=>i%2==0?a:a.ToUpper()).ToList()));

** আপডেট (@ জন এবং @ এলওআইএসডিগিকে ধন্যবাদ) **

সি # , 69 বাইট

x=>string.Concat(x.Split('a','A').Select((a,i)=>i%2>0?a.ToUpper():a))

— Aalawlx
সূত্র

2

পিপিসিজিতে আপনাকে স্বাগতম! প্রথম উত্তর!

— রেডক্লুভার

2

আপনি 7 বাইট পরিবর্তন সংরক্ষণ করতে পারবেন new[] { 'a', 'A' }করার'a', 'A'

— জন

5

আপনি একই যুক্তি দিয়ে 69 বাইটে এটি করতে পারেন! এটি অনলাইন চেষ্টা করুন! (কনসোলের পরিবর্তে ইনপুট / আউটপুট ব্যবহার করুন, টোললিস্ট সরান, তিনটি উল্টো করুন এবং @ জন মন্তব্য ব্যবহার করুন) এটি একটি দুর্দান্ত প্রথম উত্তর। চোলতে থাকা!

— aloisdg

3

ক্যাপসলক সক্ষম থাকলে এই উভয় সংস্করণই কেস অদল বদল করে না (কেবলমাত্র তারা বড় আকারে রূপান্তর করে)। এটি একটি প্রয়োজন। (শেষ পরীক্ষার

— কেসটি

@ ব্রডওয়েল ক্যাপসলক সক্ষম থাকলে আপনি কীভাবে জানতে পারবেন? আপনি কি নিশ্চিত যে শেষ পরীক্ষার কেসটি সঠিক? এটি অন্যান্য সমস্ত পরীক্ষার কেস পাস করে, যতদূর আমি দেখতে পাচ্ছি। ধন্যবাদ!

— আলাওলাক্স

7

জাভাস্ক্রিপ্ট (ES6), 93 88 84 82 বাইট

(@ শ্যাগগির 5 টি বাইট সংরক্ষণ করা হয়েছে, @ ব্যবহারকারী 81655 এর জন্য 4 বাইট ধন্যবাদ এবং @ এল 4 এম 2 এর জন্য 2 বাইট ধন্যবাদ

a=>a.replace(A=/./g,c=>c in{a,A}?(A=!A,''):A?c:c[`to${c<{}?'Low':'Upp'}erCase`]())

পরীক্ষার কেস:

কোড স্নিপেট দেখান

let f=

a=>a.replace(A=/./g,c=>c in{a,A}?(A=!A,''):A?c:c[`to${c<{}?'Low':'Upp'}erCase`]())

console.log(f("The quick brown fox jumps over the lazy dog."));
console.log(f("Compilation finished successfully."));
console.log(f("What happens when the CapsLock key on your keyboard doesn't have a notch in it?"));
console.log(f("The end of the institution, maintenance, and administration of government, is to secure the existence of the body politic, to protect it, and to furnish the individuals who compose it with the power of enjoying in safety and tranquillity their natural rights, and the blessings of life: and whenever these great objects are not obtained, the people have a right to alter the government, and to take measures necessary for their safety, prosperity and happiness."));
console.log(f("aAaaaaAaaaAAaAa"));
console.log(f("CapsLock locks cAPSlOCK"));
console.log(f("wHAT IF cAPSlOCK IS ALREADY ON?"));

স্নিপেট প্রসারিত করুন

— রিক হিচকক
সূত্র

1

['to${c<'a'?'Low':'Upp'}erCase']ব্যাকটিক্সের সাথে একক উদ্ধৃতিগুলি প্রতিস্থাপন করে আপনাকে কয়েকটি বাইট সংরক্ষণ করতে হবে।

— শেজি

শিওর, @ শেগি ধন্যবাদ!

— রিক হিচকক

ব্যবহার ^1আছে u: হতে সমতা আপনি এটা ইনিশিয়ালাইজ খাটো দেওয়া যাবেs=>s.replace(u=/./g,c=>/a/i.test(c)?(u^=1,''):+u?c[`to${c<'a'?'Low':'Upp'}erCase`]():c)

— user81655

চিঠির জন্য aযা পরীক্ষা করা যায় তার জন্য আরও একটি a=>a.replace(A=/./g,c=>c in{a,A}?(A^=1,''):+A?c[`to${c<'a'?'Low':'Upp'}erCase`]():c)

— কৌশলযুক্ত

উজ্জ্বল, @ ব্যবহারকারী 81655, বিশেষত inঅপারেটরটি ব্যবহার করে । সবসময় আরও শিখতে হবে!

— রিক হিচকক

6

আর , 92 বাইট

cat(`[<-`(v<-el(strsplit(scan(,""),"a|A")),w<-c(F,T),chartr("a-zA-Z","A-Za-z",v)[w]),sep="")

উত্তর ঠিক করার জন্য @ জিউস্প্পকে ধন্যবাদ জানাই।

ব্যাখ্যা

# Write
cat(
  # Replace and return, this is the function that powers
  # the R store at index operations, a[i]<-b
  `[<-`(
    # First arg - what to replace = extract first list element
    # of a string input after splitting at a or A
    v<-el(strsplit(scan(,""),"a|A")),
    # Second arg - index to replace = abuse vector recycling
    # to create infinite F, T, F, T, F, etc series
    w<-c(F,T),
    # Third arg - replacement values = replace with case toggled letters
    chartr("a-zA-Z","A-Za-z",v)[w]),
  # Write without separation
  sep="")

এটি অনলাইন চেষ্টা করুন!

— Vlo
সূত্র

সম্ভবত আমি এটি পরিষ্কার করেছিলাম না, তবে ক্যাপসলক সক্ষম থাকলে এই উত্তর মূলধনের বিপরীত হয় না (এটি কেবল সম্পাদন করে toupper), এটি একটি প্রয়োজনীয়তা।

— ব্রডওয়েল

2

ওওহহহহহহহহহহহহহ্, ওদের সাথে খুব চালাক c(F,T), যদিও @ ব্রডওয়েল ঠিক আছে; দেখে মনে হচ্ছে এটি chartr("a-zA-Z","A-Za-z",v)[w]বরং একটি হবেtoupper

— জিউসেপ্পে

@Giuseppe ধন্যবাদ

— Vlo

6

পাওয়ারশেল কোর , 105 বাইট

"$args"|% t*y|%{if($_-in97,65){$c=!$c}else{Write-Host -n($_,("$_"|%("*per","*wer")[$_-in65..90]))[!!$c]}}

এটি অনলাইন চেষ্টা করুন!

কোন সত্যিকারের টেরিনারি অপারেটর এবং স্ক্রিনে মুদ্রণের জন্য কোনও ডিফল্ট ওরফে নেই, এটি এতটা ছোট নয়।

% t*y| ForEach-Object -Method ToCharArrayসমপরিমাণে প্রসারিত হয় । এর"$args".ToCharArray()
Write-Host -n পরামিতি জন্য -NoNewLine
"$_"সক্রিয় [char]টাইপ পিছনে [string](অক্ষর নেট কোন উচ্চতর / ছোট হাতের আছে)
|% *perপূর্বের মতো একই পদ্ধতিতে কল শর্টকাট করে, তবে .ToUpper()একই সাথে.ToLower()
($a,$b)[boolean test] জাল-টের্নারি অপারেটর হিসাবে আপত্তিজনক
!!$c[bool]এখানে বলপূর্বক ক্যাসেটগুলি এটি অপরিবর্তিত শুরু হয় $nullতাই এটি "ক্যাপস লক: $ মিথ্যা" হিসাবে এটি অস্তিত্বের জন্য বাধ্য হয়।

— TessellatingHeckler
সূত্র

1

যে |% t*yএকটি ঝরঝরে কৌতুক আমি মনে রাখা প্রয়োজন হবে। এর চেয়ে কম [char[]], যা আমি প্রচুর ব্যবহার করি। আমি প্রায় বলতে চাই যে টিপস থ্রেড মধ্যে যেতে হবে।

— অ্যাডমবর্কবার্ক

94 বাইট: -join($args|% t*y|%{if($_-eq'a'){$c=!$c}else{(("$_"|%("*per","*wer")[$_-in65..90]),$_)[!$c]}})। |% *ethodঅপারেটরের জন্য ধন্যবাদ !

— mazzy

6

পার্ল 5 `-p` , 31 30 29 বাইট

-1 বাইট @ নোহেলহোফকে ধন্যবাদ

-1 বাইট @ikegami ধন্যবাদ

#!/usr/bin/perl -p
s/a([^a]*)a?/$1^uc$1^lc$1/egi

এটি অনলাইন চেষ্টা করুন!

— টন হসপেল
সূত্র

কেন কেবল s/a(.*?)(a|$)/uc$1/egi(22 বাইট) নয়?

— নলহ্নোফ

@ ননহ্নহফ কারণ ক্যাপসলকটি যখন সক্রিয় কেসটি টগল করে, এটি কেবল বড় হাতের কাজ করে না

— টন হসপেল

1

আহ আমি দেখি. তারপরে s/a(.*?)(a|$)/$1^uc$1^lc$1/egiএকটি বাইট খাটো হয়।

— নয়েলহোফ

@ ননহ্নহোফ ধন্যবাদ, এটি খুব ঝরঝরে

— টন হসপেল

a([^a]*)a?ই a(.*?)(a|$)

— ਕੇগামি

5

পাইথন, 63 বাইট

f=lambda s:s and[s[0]+f(s[1:]),f(s[1:]).swapcase()][s[0]in"aA"]

আর একটি পাইথন সলিউশন, পাইথন 2 এবং 3 এ কাজ করে small ছোট ইনপুট ব্যতীত সকলের জন্য খুব দীর্ঘ সময় লাগে।

— ManfP
সূত্র

5

6502 মেশিন কোড রুটিন (সি 64), 51 বাইট

A0 00 84 FE B1 FC F0 2A C9 41 F0 06 90 1A C9 C1 D0 08 A9 80 45 FE 85 FE B0 11
B0 06 C9 5B B0 08 90 04 C9 DB B0 02 45 FE 20 16 E7 C8 D0 D6 E6 FD D0 D2 60

0 টি সমাপ্ত ইনপুট স্ট্রিংটিতে পয়েন্টার আশা করে $fc/$fdস্ক্রিনের আউটপুটগুলিতে করে।

মন্তব্য বিচ্ছিন্ন

 .caps:
A0 00       LDY #$00
84 FE       STY $FE             ; init capslock state
 .loop:
B1 FC       LDA ($FC),Y         ; next char from string
F0 2A       BEQ .done           ; NUL -> we're done
C9 41       CMP #$41            ; compare to 'a'
F0 06       BEQ .isa            ; if equal, toggle capslock
90 1A       BCC .out            ; if smaller, direct output
C9 C1       CMP #$C1            ; compare to 'A'
D0 08       BNE .ctog           ; if not equal, check for letter
 .isa:
A9 80       LDA #$80            ; toggle bit 7 in caps lock state
45 FE       EOR $FE
85 FE       STA $FE
B0 11       BCS .next           ; and go on
 .ctog:
B0 06       BCS .cZ             ; if char larger 'A', check for 'Z'
C9 5B       CMP #$5B            ; compare with 'z'+1
B0 08       BCS .out            ; larger or equal -> direct output
90 04       BCC .tog            ; smaller -> apply capslock
 .cZ:
C9 DB       CMP #$DB            ; compare with 'Z'+1
B0 02       BCS .out            ; larger or equal -> direct output
 .tog:
45 FE       EOR $FE             ; toggle bit from capslock state
 .out:
20 16 E7    JSR $E716           ; output char
 .next:
C8          INY                 ; and loop to next char
D0 D6       BNE .loop
E6 FD       INC $FD
D0 D2       BNE .loop
.done:
60          RTS

রুটিন ব্যবহার করে এসেম্বলারের প্রোগ্রামের উদাহরণ:

অনলাইন ডেমো

Ca65 সিনট্যাক্সে কোড :

.import caps ; link with routine above

.segment "BHDR" ; BASIC header
                .word   $0801           ; load address
                .word   $080b           ; pointer next BASIC line
                .word   2018            ; line number
                .byte   $9e             ; BASIC token "SYS"
                .byte   "2061",$0,$0,$0 ; 2061 ($080d) and terminating 0 bytes

.bss
string:         .res    $800

.data
prompt:         .byte   $d, "input> ", $0

.code
                lda     #$17            ; set upper/lower mode
                sta     $d018

                lda     #<prompt        ; display prompt
                ldy     #>prompt
                jsr     $ab1e

                lda     #<string        ; read string into buffer
                sta     $fc
                lda     #>string
                sta     $fd
                jsr     readline

                lda     #>string        ; call our caps routine on buffer
                sta     $fd
                jmp     caps

; read a line of input from keyboard, terminate it with 0
; expects pointer to input buffer in $fc/$fd
; NO protection agains buffer overflows !!!
.proc readline
                ldy     #$0
                sty     $cc             ; enable cursor blinking
                sty     $fe             ; temporary for loop variable
                lda     $fd
                sta     $2              ; initial page of string buffer
getkey:         jsr     $f142           ; get character from keyboard
                beq     getkey
                sta     $fb             ; save to temporary
                and     #$7f
                cmp     #$20            ; check for control character
                bcs     prepout         ; no -> to normal flow
                cmp     #$d             ; was it enter/return?
                beq     prepout         ; -> normal flow
                cmp     #$14            ; was it backspace/delete?
                bne     getkey          ; if not, get next char
                lda     $fe             ; check current index
                bne     prepout         ; not zero -> ok
                lda     $2              ; otherwise check if we're in the
                cmp     $fd             ;    first page of the buffer
                beq     getkey          ; if yes, can't use backspace
prepout:        ldx     $cf             ; check cursor phase
                beq     output          ; invisible -> to output
                sei                     ; no interrupts
                ldy     $d3             ; get current screen column
                lda     ($d1),y         ; and clear 
                and     #$7f            ;   cursor in
                sta     ($d1),y         ;   current row
                cli                     ; enable interrupts
output:         lda     $fb             ; load character
                jsr     $e716           ;   and output
                ldx     $cf             ; check cursor phase
                beq     store           ; invisible -> to store
                sei                     ; no interrupts
                ldy     $d3             ; get current screen column
                lda     ($d1),y         ; and show
                ora     #$80            ;   cursor in
                sta     ($d1),y         ;   current row
                cli                     ; enable interrupts
                lda     $fb             ; load character
store:          cmp     #$14            ; was it backspace/delete?
                beq     backspace       ; to backspace handling code
                ldy     $fe             ; load buffer index
                sta     ($fc),y         ; store character in buffer
                cmp     #$d             ; was it enter/return?
                beq     done            ; then we're done.
                iny                     ; advance buffer index
                sty     $fe
                bne     getkey          ; not zero -> ok
                inc     $fd             ; otherwise advance buffer page
                bne     getkey
done:           lda     #$0             ; terminate string in buffer with zero
                ldy     $fe             ; get buffer index
                iny
                bne     termidxok       ; and advance ...
                inc     $fd
termidxok:      sta     ($fc),y         ; store terminator in buffer
                inc     $cc             ; disable cursor blinking
                rts                     ; return
backspace:      ldy     $fe             ; load buffer index
                bne     bsidxok         ; if zero
                dec     $fd             ;   decrement current page
bsidxok:        dey                     ; decrement buffer index
                sty     $fe
                bcs     getkey          ; and get next key
.endproc

— ফেলিক্স প্যালম্যান
সূত্র

আমি কেবল বলতেই পারি যে আপনি সমাবেশে লেখার প্রয়াসে গিয়েছিলেন আমি প্রশংসা করি। আমি মনে করি না যে এটি সত্যই আমি asm উপভোগ করতাম তার সাথে এর খুব বেশি সম্পর্ক রয়েছে তবে সম্ভবত অভিজ্ঞতা থাকলে এটি আমাকে যা দেয় তা সম্পর্কে আরও সচেতন করে তোলে। অভিজ্ঞতা বা স্বাচ্ছন্দ্য আমার কাছে বিন্দু ছাড়াও। এ জাতীয় উত্সাহটি দেখার জন্য এটি আমার দিনটিকে কিছুটা আলোকিত করে।

— প্রাইফ্টান

@ প্রিফটান ধন্যবাদ :) এটি অনুশীলনে রাখার একটি দুর্দান্ত উপায়, আমি কিছু গেমের সাথে কাজ করছি এবং সম্প্রতি এই দুর্দান্ত পুরানো মেশিনটির জন্য ডেমো

— কোডও করছি

ভাল এটা দেখতে দুর্দান্ত! এটা বজায় রাখা; আমি asm উপভোগ করার কথা মনে করি তবে আমি মনে করি না আমি আজকাল এটি এতটা উপভোগ করব (যদি না আপনার কাছে আমার মতো একটি পুরানো মেশিন থাকত, তবে এটি সম্ভবত তখনও না হয়) - সি সর্বদা আমার প্রিয় এবং এটি মূলত আমি যা করি ব্যবহার করুন। যাইহোক, এই আড্ডায় উত্থিত হতে দেবে না - শুধু আমি উত্তর প্রশংসা করতে বলতে চেয়েছিলেন!

— প্রিফটান

5

জাভা 8, 119 108 98 বাইট

s->{int f=0,t;for(int c:s)if((t=c&95)==65)f^=1;else System.out.printf("%c",f<1|t<66|t>90?c:c^32);}

-১১ বাইট @ অলিভিগ্রগ্রোয়ারকে ধন্যবাদ ।
-10 বাইট @ নেভায়ে ধন্যবাদ ।

ব্যাখ্যা:

এটি অনলাইনে চেষ্টা করুন।

s->{                           // Method with char-array parameter and no return-type
  int f=0,t;                   //  Flag-integer, starting at 0
  for(int c:s)                 //  Loop over the characters of the input as integers
    if((t=c&95)==65)           //   If the current character is an 'A' or 'a':
      f^=1;                    //    Toggle the flag (0→1 or 1→0)
    else                       //   Else:
      System.out.printf("%c",  //    Print integer as character
        f<1|                   //     If the flag-integer is 0,
        t<66|t>90?             //     or the current character isn't a letter:
         c                     //      Simply output the character as is
        :                      //     Else (the flag it 1 and it's a letter)
         c^32);}               //      Print it with its case reversed

— কেভিন ক্রুইজসেন
সূত্র

1

জঘন্য প্রতিবন্ধকতা ... তারা আমাকে তোমার আগে আমার উত্তর পোস্ট করতে নিষেধ করেছে ... যাইহোক, এখানে আমার উত্তর, 11 বাইট সংক্ষিপ্ত:s->{int z=0,d;for(int c:s)if((d=c&95)==65)z^=1;else System.out.printf("%c",z<1|d<66|d>90?c:c<91?c|32:c&95);}

— অলিভিয়ার গ্রাগোয়ার

@ অলিভিয়েরগ্রোয়ার চমৎকার উত্তর! এবং আমাকে পোস্ট করতে নিষেধ করে আপনি কী বোঝাতে চাইছেন? আপনার কাজের নেটওয়ার্ক কি কঠোর?

— কেভিন ক্রুইজসেন

আমার উত্তরটি কিছু সময়ের জন্য প্রস্তুত ছিল: পোস্ট করার আগে আমি কেবল পরীক্ষার কেসগুলি পোলিশ করছিলাম তবে হঠাৎ অবিরাম সভাগুলি ঘটেছিল।

— অলিভিয়ার গ্রাগোয়ার

1

না, ঠিক আছে, সভাগুলির আগে যথেষ্ট দ্রুত না হওয়ার জন্য আমাকে কেবল নিজেকেই দোষ দিতে হবে ;-) তবে এটি প্রস্তাব দেওয়ার জন্য আপনাকে ধন্যবাদ!

— অলিভিয়ার গ্রাগোয়ার

2

98 বাইট:s->{int f=0,t;for(int c:s)if((t=c&95)==65)f^=1;else System.out.printf("%c",f<1|t<66|t>90?c:c^32);}

— নেভায়ে

5

সি, 167 168 158 131 বাইট

কোড পর্যালোচনার জন্য @ মার্টিন ইন্ডারকে ধন্যবাদ: আমি পুনরায় ব্যবহারযোগ্যতার সাথে সহায়তা করতে স্ট্রিং প্রসেসিংয়ের জন্য স্ট্রিম প্রসেসিংটি স্যুইচ করেছি। এছাড়াও তাদের পরামর্শের জন্য @ রিয়াড এবং @ এসিলিংক্যাটকে অনেক ধন্যবাদ।

c,d;(*t[][2])()={{isupper,tolower},{islower,toupper}};f(char*s){for(d=1;c=*s++;)t[0][1](c)==97?d=!d:putchar(t[!t[d][0](c)][1](c));}

এটি অনলাইন চেষ্টা করুন!

এটা কিভাবে কাজ করে?

/* int c is the input character,
   int d is the Caps Lock flag (1=off, 0=on)  starting as "Off". */
int c, d;
/* array of comparison functions and transformation functions for each state */
(*t[][2])() = {{isupper, tolower}, {islower, toupper}};

f(char *s) {
  /* Loop if we haven't hit the terminator */
  for(d = 1; c = *s++;)
    t[0][1](c) == 97 ?
      /* If tolower(c)=='a' then flip the Caps Lock state */
      d=!d:
      /* Otherwise, convert character according to the following table:

                       Character case
         Caps Lock  UPPER       LOWER
                ON  tolower()   toupper()
               OFF  toupper()   tolower()
      */
      putchar(t[!t[d][0](c)][1](c));
  }
}

নোট

s[][]যেখানে জাদুটি ঘটে: [][0]এটি তুলনা ফাংশন এবং [][1]প্রতিটি রাজ্যের সম্পর্কিত ট্রান্সফর্মেশন ফাংশন।
! [0,1] সীমাতে বাধ্য করার জন্য তুলনা ফাংশনে প্রয়োগ করা হয়।

— ErikF
সূত্র

পিপিসিজিতে আপনাকে স্বাগতম! দুর্ভাগ্যক্রমে, আপনি এ জাতীয় আরম্ভের উপর নির্ভর করতে পারবেন না dকারণ এর অর্থ আপনার ফাংশন পুনরায় ব্যবহারযোগ্য নয় । একটি সরল d=0;এটি ঠিক করা উচিত।

— মার্টিন এন্ডার

এই ক্ষেত্রে পুনরায় ব্যবহারযোগ্যতা বা রাষ্ট্র বজায় রাখা আরও গুরুত্বপূর্ণ কিনা তা আমি নিশ্চিত ছিলাম না। যদি পুনঃব্যবহারযোগ্যতা আরও গুরুত্বপূর্ণ হয় তবে আমি ভেরিয়েবলের ঘোষণাগুলি ফাংশনের অভ্যন্তরে সরিয়ে ফেলব যাতে শুরুটি পড়ে void f(){int c,d=0;[...]। যাই হোক না কেন, স্ট্রিমটি মারা যায়, তাই একটি সম্পাদনা ক্রমযুক্ত!

— এরিকএফ

আপনার যখন আপনার লুপটি দরকার? যদি আপনি f (NULL)

— RiaD 16'18

— ফ্লিপিংয়ের

!! হবে ! যদি আপনি

— টিয়ের

4

হাস্কেল , 92 বাইট

import Data.Char
g x|x<'['=toLower x|1>0=toUpper x
f(a:b)|elem a"aA"=f$g<$>b|1>0=a:f b
f x=x

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

প্রথমে আমরা gসেই ফাংশন হিসাবে ঘোষণা করি যা আপার কেস এবং ছোট হাতের বড় হাতের কাছে ছোট হাতের মানচিত্র। এটি আসলে আমাদের বাইটকাউন্টের সংখ্যাগরিষ্ঠ। তারপরে আমরা ফাংশনটি সংজ্ঞায়িত করি f। ইনপুটটি যদি আমরা fফর্ম হয় a:bতবে

f(a:b)
 |elem a"aA"=f$g<$>b
 |1>0=a:f b

aএবং Aপ্রথম প্যাটার্নটি মেলে এবং সুতরাং আমরা fইনপুটটিতে এটি কেস ইনভার্ট করে প্রয়োগ করি। অন্যথায় আমরা aসামনে সরানো এবং প্রয়োগ fকরা b।

— শ্রুতচিলিজম ও'জাইক
সূত্র

4

ওল্ফ্রাম ভাষা (গণিত) , 70 বাইট

#//.{x___,"a"|"A",y___}:>Join[{x},ToUpperCase@#+ToLowerCase@#-#&@{y}]&

এটি অনলাইন চেষ্টা করুন!

অক্ষরের তালিকা হিসাবে ইনপুট এবং আউটপুট নেয়। সুবিধার জন্য আমি ফুটারে কোড যুক্ত করেছি এবং এটিকে স্ট্রিং থেকে ফিরে রূপান্তর করতে।

কিভাবে এটা কাজ করে

#//.{x___,"a"|"A",y___}:>Join[{x},... {y}]&প্রথম আমরা খুঁজে: পার্ট মান A(বড় হাতের বা ছোট হাতের), বিপরীত এক্ষেত্রে পরে আসে A, এবং পুনরাবৃত্তি অবশেষে আর বেশিA এর পাওয়া যাবে।

আকর্ষণীয় অংশটি হ'ল আমরা কীভাবে মামলাটিকে বিপরীত করি: ফাংশন ToUpperCase@# + ToLowerCase@# - #&। আমরা ইনপুটটির উপরের-কেসড সংস্করণ এবং ইনপুটটির লোয়ার-কেসড সংস্করণ একসাথে যুক্ত করি, তারপরে প্রকৃত ইনপুটটি বিয়োগ করুন। উদাহরণস্বরূপ, তালিকাটি দেওয়া হয়েছে {"I","n","P","u","T"}এই গণনাগুলি

{"I","N","P","U","T"}+{"i","n","p","u","t"}-{"I","n","P","u","T"}

তালিকা হিসাবে থ্রেড যা

{"I"+"i"-"I","N"+"n"-"n","P"+"p"-"P","U"+"u"-"u","T"+"t"-"T"}

এবং যদিও গাণিতিকের দুটি স্ট্রিং যুক্ত করার কোনও বিশেষ উপায় নেই তবে স্ট্রিংয়ের মান সহ যে কোনও মান এবং এর মান সহজ a+b-aকরার bজন্য এটি যথেষ্ট স্মার্ট so সুতরাং এটি আরও সরল ।ab{"i","N","p","U","t"}

— মিশা লাভরভ
সূত্র

4

রুবি , 42 41 বাইট

->s{s.sub!(/a(.*)/i){$1.swapcase}?redo:s}

এটি অনলাইন চেষ্টা করুন!

একটি ল্যাম্বদা একটি স্ট্রিং গ্রহণ করে, স্ট্রিংটিকে জায়গায় পরিবর্তিত করে আবার ফিরে আসে। এখানে কৌশলটি হ'ল subবিকল্পটি তৈরি করা হলে স্ট্রিংটি (সত্যবাদী মান) দেয় এবং nilঅন্যথায় ফিরে আসে । এর অস্তিত্বও swapcaseখুব সহজ।

-1 বাইট: অসোন তুহিদকে ধন্যবাদ, টের্নারি অপারেটরের সাথে বুলিয়ান যুক্তিকে প্রতিস্থাপন করুন

->s{
  s.sub!(/a(.*)/i){     # Replace "a" followed by anything with
    $1.swapcase         #   the case-swapped capture group
  } ? redo              # If a match was found, restart the block
    : s                 # Otherwise, return the modified string
}

— benj2240
সূত্র

1 বাইট সংরক্ষণ করুন । লিঙ্কটি খুব দীর্ঘ ছিল যদি আমি সমস্ত পরীক্ষার কেস অন্তর্ভুক্ত করি।

— অসোন তুহিদ

@ অ্যাসোনতুহিড ধন্যবাদ ... এই দিনগুলির একটির মধ্যে আমি সরাসরি ত্রিনিয়ী অপারেটরটি ব্যবহার করার কথা মনে করব, যাতে আপনাকে আমাকে স্মরণ করিয়ে দিতে হবে না।

— বেনজ 2240

4

পিএইচপি 101 99 বাইট

for($s=$argn;$i<strlen($s);$i++)lcfirst($s[$i])==a?$s=strtolower($s)^strtoupper($s)^$s:print$s[$i];

এভাবে চালান:

echo '[the input]' | php -nR '[the code]'

Ungolfed:

for ($s = $argn; $i < strlen($s); $i++) {
    if (lcfirst($s[$i]) == 'a') {
        $s = strtolower($s) ^ strtoupper($s) ^ $s; // Flip the whole string's case.
    } else {
        print $s[$i]; // Print the current letter.
    }
}

এটি কেবল স্ট্রিংটির সাথে একটি লুপের সাথে লুপ করে এবং প্রতিটি পুনরাবৃত্তির উপরে এটি পরীক্ষা করে যে বর্তমান চিঠিটি aযদি তা হয় তবে তা যদি পুরো স্ট্রিংয়ের ( এখানে থেকে পদ্ধতি ) ক্ষেত্রে কেটে ফেলা হয় , এবং যদি তা না হয় তবে বর্তমান অক্ষরটি মুদ্রণ করুন।

— Davіd
সূত্র

1

কোড গল্ফের কনভেনশনটি হ'ল সমস্ত কোডকে অবশ্যই অন্তর্ভুক্ত করা উচিত। (ব্যবহার যেমন তার মানে আপনি ফাংশন প্যারামিটার হিসাবে ইনপুট গ্রহণ করা এবং আসলে একটি ফাংশন (পিএইচপি ফাংশন শব্দ মাধ্যমে) ঘোষণা বা সম্পূর্ণ স্ক্রিপ্ট আছে $argn, $argv, $_GET)। সুতরাং এই মুহুর্তে এটি একটি সঠিক জমা নয়। রিটার্ন অবশ্যই echoসম্পাদনা বা returnএড হতে হবে (কেবলমাত্র অফিসার ফাংশনের জন্য অনুমোদিত)।

— ক্রিস্টোফ

1

@ ক্রিসটফের জন্য ধন্যবাদ, আমি গল্ফিংয়ের জন্য এক ধরণের নতুন :)। আমি এখনই আমার উত্তর আপডেট করেছি, অন্য কোনও ভুল আছে কিনা তা আমাকে জানান।

— ডেভড

@ ক্রিসটফ বাহ! 75! খুব সুন্দর! আপনার আমার +1 আছে

— ডেভড

4

জেলি , 14 বাইট

Œu=”Aœp⁸ŒsJḤ$¦

এটি অনলাইন চেষ্টা করুন!

পুরো প্রোগ্রাম।

ব্যাখ্যা:

Œu=”Aœp⁸ŒsJḤ$¦ Arguments: x
Œu             Uppercase x
  =”A          ^ Equals 'A' (vectorizes)
     œp⁸       ^ Partition ⁸ [⁸=x]
             ¦ Apply link A, keep results at specific indices B
        Œs     A: Swap case
            $  B: Form a >=2-link monadic chain
          JḤ      Arguments: y
          J       Get list indices ([1, length(list)]) of y
           Ḥ      Double (vectorizes) ^
                  This way, we only "apply" link A to even indices, so every second
                  element, starting from the secondd one.

— এরিক দ্য আউটগল্ফার
সূত্র

কোডের ব্যাখ্যা?

— এস কে 19

1

@ SK19 একটি ব্যাখ্যা যুক্ত করেছে।

— এরিক দি আউটগল্ফার

4

এমএটিএল , 23 20 বাইট

'a A'Yb&Ybt2L)Yo2L(g

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা:

'a A'Yb   % form a cell array containing {'a', 'A'}
&Yb       % split input into substrings, with either of those ('a' or 'A') as delimiters
t2L)      % extract out the even positioned cells from that result
Yo        % switch the case of those substrings
2L(       % place the result back in even positioned cells of the original cell array
g         % convert cell array to matrix, concatenating all substrings in the process
          % implicit output

পুরানো উত্তর (23 বাইট):

"এইচ @ 'aA'm? ~ XHx} @ W ~? ইয়ো] & H

অন্যান্য পদ্ধতিগুলি আমি চেষ্টা করেছি:

0w"@t'aA'm?x~}y?Yo]w]]xv!
t'aA'mXHYsot&y*XzcYowf([]H(
t'aA'mXHYsoy3Y2m*32*Z~c[]H(

— সুন্দর
সূত্র

3

হুশ , 15 বাইট

ω(F·+otm\↕·≠_'a

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

ω(F·+(tm\)↕·≠_'a) -- example input: "Bar, baz and Foo."
ω(              ) -- apply the following, until fixpoint is reached:
          ↕       -- | split string with predicate
           · _    -- | | the lower-cased character
            ≠ 'a  -- | | is not 'a'
                  -- | : ("B","ar, baz and Foo.")
  F               -- | apply the following to the tuple
    +             -- | | join the elements with..
   · (   )        -- | | ..the second element: "ar, baz and Foo."
       m\         -- | | | swap case: "AR, BAZ AND fOO."
      t           -- | | | tail: "R, BAZ AND fOO."
                  -- | : "BR, BAZ AND fOO."
                  -- : "BR, Bz ND fOO."

— ბიმო
সূত্র

3

05 এ বি 1 ই , 12 বাইট

õ?„AaS¡Dvć?š

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

õ?             # print an empty string (to account for the special case of only A's)
  „AaS¡        # split on occurrences of "A" or "a"
       D       # duplicate
        v      # for each element in the top copy
         ć?    # extract and print the head of the other copy
           š   # switch the case of the rest of the other copy

— Emigna
সূত্র

3

জাপট ভি 2.0a0, 16 বাইট

e/a.*/i_År\l_c^H

চেষ্টা করে দেখুন

ব্যাখ্যা

e                   :Recursively replace
 /a.*/i             :RegEx /a.*/gi
       _            :Pass each match through a function
        Å           :  Slice off the first character
         r          :  Replace
          \l        :  RegEx /[A-Za-z]/g
            _       :  Pass each match though a function
             c^     :    Bitwise XOR the character code
               H    :    With 32

— রোমশ
সূত্র

3

SNOBOL4 (CSNOBOL4) , 141 92 বাইট

	I =INPUT
S	I ANY("Aa") REM . R =REPLACE(R,&LCASE &UCASE,&UCASE &LCASE) :S(S)
	OUTPUT =I
END

এটি অনলাইন চেষ্টা করুন!

একক ইনপুট লাইন ধরে।

একটি নিখুঁত 49 বাইট সংরক্ষণ করেছেন @ নিনজালজ দ্বারা !

লাইন Sসমস্ত কাজ করে, নীচে ব্যাখ্যা করা হয়েছে:

I                    # in the subject string I match the following PATTERN:
 ANY("Aa")           # match A or a and
 REM . R             # match the remainder of I, assigning this to R
 =REPLACE(           # replace the PATTERN above with
          R, ...)    # R with swapped cases.
   :S(S)             # and if there was a match, goto S, else goto next line

— : Giuseppe
সূত্র

এটি ভুল উত্তর দেয় (যেমন আপনি আপনার মন্তব্যে বলেছিলেন,

— ক্যাপসলক

ক্যাপসলক সক্ষম থাকলে আমি কেস-অদল বদলে (কেবলমাত্র বড় হাতের বদলে) প্রয়োজনীয় পোস্টটি সম্পাদনা করেছি কারণ আমি কখনই বুঝতে পারি নি যে আমার যন্ত্রটি এটি করে does

— ব্রডওয়েল

@ mbomb007 আহ, আমি বুঝতে পারি নি যে ওপি এটি পরিবর্তন করেছে; আমি এখনই একটি ব্যাখ্যার জন্য সম্পাদনা করছি তাই আমি সেটিকে ব্যাখ্যায় অন্তর্ভুক্ত করব।

— জিউসেপ

I =INPUT;S I ANY("Aa") REM . R =REPLACE(R,&LCASE &UCASE,&UCASE &LCASE) :S(S); OUTPUT =I;END

— নিনজালজ

@ninjalj তুমি এছাড়াও একটি SNOBOL গল্ফ খেলোয়াড় বা আমি এটা golfing এ ভয়ানক am ??

— জিউসেপ্পে

3

ফরট্রান (জিফোর্টরান) , 307 বাইট

CHARACTER(999)F,G
G=' '
READ(*,'(A)')F
N=1
M=1
DO I=1,999
IF(F(I:I)=='a'.OR.F(I:I)=='A')THEN
M=-M
ELSEIF(M==1)THEN
G(N:N)=F(I:I)
N=N+1
ELSE
J=IACHAR(F(I:I))
SELECTCASE(J)
CASE(65:90)
G(N:N)=ACHAR(J+32)
CASE(97:122)
G(N:N)=ACHAR(J-32)
CASE DEFAULT
G(N:N)=F(I:I)
ENDSELECT
N=N+1
ENDIF
ENDDO
PRINT*,TRIM(G)
END

এটি অনলাইন চেষ্টা করুন!

যেহেতু ফোর্টরান স্ট্রিংয়ের সাথে কাজ করার জন্য "উন্নত" সরঞ্জামগুলি নেই, তাই আমি এই ছোট্ট দৈত্যটির সাথে এসেছি।

অভিযুক্ত এবং মন্তব্য করেছে:

CHARACTER(999)F,G	!Define input and output strings (up to 999 characters)
G=' '			!Fill output with spaces
READ(*,'(A)')F		!Take input
N=1			!Represent the position to be written in output string
M=1			!M=-1: Change case; M=1: Do not change case
DO I=1,999
	IF(F(I:I)=='a'.OR.F(I:I)=='A')THEN	!If the character is A...
		M=-M				!Ah-ha - you pressed cPS-LOCK!
	ELSEIF(M==1)THEN			!Case the character is not A, and do not need to change case...
		G(N:N)=F(I:I)			!...only copy the character
		N=N+1
	ELSE !Otherwise...
		J=IACHAR(F(I:I))			!...get ascii of current character
		SELECTCASE(J)
			CASE(65:90)			!If is upper case,
				G(N:N)=ACHAR(J+32)	!now is lower case
			CASE(97:122)			!If is lower case,
				G(N:N)=ACHAR(J-32)	!now is upper case
			CASE DEFAULT			!If do not belong to alphabet,
				G(N:N)=F(I:I)		!simply copy the character
		ENDSELECT
		N=N+1
	ENDIF
ENDDO
PRINT*,TRIM(G) !Trim out trailing spaces
END !That's all folks!

— rafa11111
সূত্র

3

স্ট্যাক্স , 12 বাইট

ìo'½`║â↨╪U?5

এটি চালান এবং অনলাইনে ডিবাগ করুন

এটি একটি রেজেক্সে বিভক্ত হয় এবং তারপরে পর্যায়ক্রমে কেস টগল করে। এখানে একই প্রোগ্রামটি প্যাকেজবিহীন, অসম্পূর্ণ এবং মন্তব্য করা হয়েছে।

"a|A"|s split on regex /a|A/
rE  reverse and explode array to stack
W   repeat forever...
p   print top of stack with no newline
:~p print top of stack, case inverted, with no newline

এটি চালান

— রিকার্সিভ
সূত্র

আমি কোনওভাবেই আপনার কোডটি আপনার ব্যাখ্যা সম্পর্কিত করতে পারি না।

— এসকে 19

মন্তব্য করা কোনওটির মধ্য দিয়ে পদক্ষেপ নেওয়ার চেষ্টা করুন এবং দোভাষীর অভ্যন্তরীণ অবস্থা দেখার চেষ্টা করুন। এটা কি সাহায্য করে?

— পুনরাবৃত্তি

1

@ এসকে 19: ওহ, আমি মনে করি আমি সমস্যাটি দেখছি। আমি উল্লেখ করিনি যে স্টেক্স প্রোগ্রামগুলির দুটি উপস্থাপনা রয়েছে। আসকি এবং প্যাকড দুজনের মধ্যে একটি নিখুঁত রূপান্তর আছে। Ascii টাইপ করা সহজ তবে গল্ফের জন্য অপব্যয়যোগ্য, কারণ এখানে কেবল 95 টি চিহ্ন রয়েছে। গল্ফযুক্ত প্রোগ্রামটি প্যাক করা হয়েছে, তাই এটি অন্যরকম দেখাচ্ছে তবে এটি একই প্রোগ্রাম।

— পুনরাবৃত্তি

3

জাভাস্ক্রিপ্ট (ES6), 80 79 বাইট

(আংশিকভাবে রিক হিচককের এই উত্তরটির ভিত্তিতে ভিত্তি করে a আলাদা উত্তর হিসাবে পোস্ট করা কারণ আমার মন্তব্য করার যথেষ্ট খ্যাতি নেই))

( এখানে @ l4m2 এর পোস্টের জন্য 1 বাইট সংরক্ষণ করা হয়েছে ))

a=>a.replace(j=/a()|./gi,(c,o=c[`to${j^c>{}?'Low':'Upp'}erCase`]())=>(j^=!o,o))

— ইয়ার র্যান্ড
সূত্র

পিপিসিজিতে আপনাকে স্বাগতম!

— লাইকনি

2

নোংরা , 55 বাইট

⇙U◌␛⮕⇨'aA'⇗⭱∈⊭⋱2wẂ[⭱y⋱1wx⮕⭧]
    \   ␛◌Ẃ!w1/      \1wX/

এটি অনলাইন চেষ্টা করুন!

প্রায় এক তৃতীয়াংশ কম হতে পারে।
আমি যখন একটি ডেস্কটপে থাকি তখন আমি একটি ব্যাখ্যা লিখব এবং আরও কিছু গল্ফ লিখব।

— Οurous
সূত্র

2

পাইথন 3, 78 72 বাইট

import re
lambda x:re.sub("[Aa](.*?)(a|A|$)",lambda m:m[1].swapcase(),x)

— pppery
সূত্র

আপনি পাইথন ৩.6+ এর m[1]স্থানে ব্যবহার করতে পারেন m.group(1)।

— বুদ্বুদ

এটিকে নিম্ন মানের হিসাবে কেন পতাকাঙ্কিত করা হয়েছিল…?

— নিসা

আমার কোনও ধারণা নেই ...

— পিপ্পি

1

নতুন পোস্টগুলি সংক্ষিপ্ত থাকলে এবং কোনও পাঠ্য না থাকলে স্বয়ংক্রিয়ভাবে পতাকাঙ্কিত হবে। একটি বিবরণ যোগ করা সাধারণত এটি প্রতিরোধ করে।

— mbomb007

এবং এখন আমি আশ্চর্য হয়েছি যে "পিপারি" -র মধ্যে কত "এ" রয়েছে?

— মিস্টার লিস্টার

না এ, স্রেফ ক্যাপস লক

পরীক্ষার মামলা

অটোহটকি , 7 বাইট

ভি , 9 বাইট

Vim, 16 বাইট

ব্যাখ্যা

সি, 72 বাইট

হুশ , 11 বাইট

ব্যাখ্যা

রেটিনা , 33 21 17 বাইট

সি # , 121 বাইট

সি # , 69 বাইট

জাভাস্ক্রিপ্ট (ES6), 93 88 84 82 বাইট

আর , 92 বাইট

পাওয়ারশেল কোর , 105 বাইট

পার্ল 5 -p , 31 30 29 বাইট

পাইথন, 63 বাইট

6502 মেশিন কোড রুটিন (সি 64), 51 বাইট

মন্তব্য বিচ্ছিন্ন

রুটিন ব্যবহার করে এসেম্বলারের প্রোগ্রামের উদাহরণ:

জাভা 8, 119 108 98 বাইট

সি, 167 168 158 131 বাইট

এটা কিভাবে কাজ করে?

নোট

হাস্কেল , 92 বাইট

ব্যাখ্যা

ওল্ফ্রাম ভাষা (গণিত) , 70 বাইট

কিভাবে এটা কাজ করে

রুবি , 42 41 বাইট

পিএইচপি 101 99 বাইট

জেলি , 14 বাইট

এমএটিএল , 23 20 বাইট

ব্যাখ্যা:

হুশ , 15 বাইট

ব্যাখ্যা

05 এ বি 1 ই , 12 বাইট

জাপট ভি 2.0a0, 16 বাইট

ব্যাখ্যা

SNOBOL4 (CSNOBOL4) , 141 92 বাইট

ফরট্রান (জিফোর্টরান) , 307 বাইট

স্ট্যাক্স , 12 বাইট

জাভাস্ক্রিপ্ট (ES6), 80 79 বাইট

নোংরা , 55 বাইট

পাইথন 3, 78 72 বাইট

পার্ল 5 `-p` , 31 30 29 বাইট