लोअरकेस में अपरकेस लेटर्स का अनुपात

Question

इस चुनौती में आप और आपके दोस्त बहस कर रहे हैं कि कौन सा मामला बेहतर है, अपरकेस या लोअरकेस? यह जानने के लिए, आप यह करने के लिए एक कार्यक्रम लिखें।

क्योंकि esolangs आपके दोस्तों को डराता है, और वर्बोज़ कोड आपको डराता है, आपके कोड को जितना संभव हो उतना कम होना चाहिए।

---

उदाहरण

PrOgRaMiNgPuZzLeS & CoDe GoLf
0.52 uppercase

DowNGoAT RiGHtGoAt LeFTGoat UpGoAT
0.58 uppercase

Foo BaR Baz
0.56 lowercase

---

विशेष विवरण

इनपुट में केवल ASCII वर्ण शामिल होंगे। सभी गैर-वर्णनात्मक वर्णों को अनदेखा किया जाना चाहिए। प्रत्येक केस का कम से कम 1 चरित्र होगा

आउटपुट उस मामले की मात्रा होना चाहिए जो वर्णमाला के कुल वर्णों पर सबसे अधिक बार दिखाई देता है। यह कम से कम 2 दशमलव स्थानों के लिए एक दशमलव सटीक होना चाहिए । यदि अपरकेस अधिक बार दिखाई देता है, तो आउटपुट को समाप्त होना चाहिए uppercase, या lowercase।

अपरकेस और लोअरकेस वर्णों की समान मात्रा कभी नहीं होगी।

Comments

Esolangs मेरे दोस्तों को डराता नहीं है। क्या इसका मतलब यह है कि मेरा कोड बेतहाशा क्रिया हो सकता है?

— एलेक्स ए।

@AlexA। वर्बोज़ कोड आपको डराता है, इसलिए आपके कोड को भी गोल्फ की आवश्यकता होगी।

— डाउनगेट

ओह ठीक है, मैं अपने आवर्ती जावा बुरे सपने के बारे में भूल गया था।

— एलेक्स ए।

क्या केवल एक मामले में इनपुट होगा?

— मैनेटवर्क

क्या "कम से कम 2 दशमलव स्थानों पर सटीक" प्रिंट करने के लिए कम से कम दो दशमलव की आवश्यकता होती है, या शून्य के दूसरे दशमलव को छोड़ दिया जा सकता है?

— hvd

Answer 1

पायथ - 40 बाइट्स

यह पहली बार है जब मैंने कभी भी वेक्टर स्ट्रींग फॉर्मेटिंग का उपयोग किया है जो बहुत अच्छा है।

Kml-zrzd2eS%Vm+cdsK" %sercase"Kc"upp low

टेस्ट सूट ।

Answer 2

जावास्क्रिप्ट (ईएस 6) 87 बाइट्स

संपादित 1 बाइट बचाया thx ETHProductions
संपादित करें 1 बाइट बचाया thx l4me

एक अनाम फ़ंक्शन। लंबा, लेकिन मुझे इसे और अधिक गोल्फ के लिए एक रास्ता नहीं मिला

s=>(l=t=0,s.replace(/[a-z]/ig,c=>l+=++t&&c>'Z'),l/=t,l<.5?1-l+' upp':l+' low')+'ercase'

कम गोल्फ वाला

s=>( // arrow function returning the value of an expression
  // here I use comma for clarity, 
  // in the golfed version it's all merged in a single expression
  t = 0, // counter for letters
  l = 0, // counter for lowercase letters 
  s.replace(
    /[a-z]/ig, // find all alphabetic chars, upper or lowercase
    c => // execute for each found char (in c)
        l += ++t && c>'Z', // increment t, increment l if c is lowercase
  ),
  l /= t, // l is the ratio now
  ( l < .5 // if ratio < 1/2
    ? (1-l) +' upp' // uppercase count / total (+" upp")
    : l +' low'     // lowrcase count / total (+" low")
  ) + 'ercase' // common suffix
)

Comments

मेरा मानना है कि आप का उपयोग करके एक बाइट को बचा सकता है &&` ${t-l>l?1-l/t+'upp':l/t+'low'}ercase` ।

— ETHproductions

इसके अलावा, c=>l+=++t&&c>'Z'काम करेगा, मुझे लगता है ...?

— ETHproductions

@ETHproductions आपका पहला संकेत उपयोगी नहीं लगता है, दूसरा चालाक है, thx

— edc65

क्या हम एक स्पष्टीकरण के साथ असंगठित संस्करण देख सकते हैं?

— साइओस

@Cyoce स्पष्टीकरण जोड़ा गया - यह वास्तव में सरल है

— edc65

Answer 3

सीजेएम, 47 45 बाइट्स

q__eu-\_el-]:,_:+df/" low upp"4/.+:e>"ercase"

इसे ऑनलाइन आज़माएं।

बहुत लंबे समय तक गोल्फ नहीं ...

व्याख्या

q               e# Read input.
__eu-           e# Get only the lowercase characters.
\_el-           e# Get only the uppercase characters.
]:,             e# Get the lengths of the two strings.
_:+             e# Sum of the lengths.
df/             e# Lengths divided by the sum of the lengths.
" low upp"4/.+  e# Append the first number with " low" and the second " upp"
:e>             e# Find the maximum of the two.
"ercase"        e# Output other things.

Answer 4

जाप , 58 बाइट्स

A=Uf"[a-z]" l /Uf"[A-Za-z]" l)>½?A+" low":1-A+" upp" +`ÖÐ

(नोट: एसई ने पहले एक विशेष चार्ट छीन लिया Ö, इसलिए कृपया उचित कोड प्राप्त करने के लिए लिंक पर क्लिक करें)

Comments

अच्छा काम! आपके पहले रेगेक्स (डॉलर के संकेतों सहित) को बदला जा सकता है "[a-z]", और दूसरे के साथ "A-Za-z"। 0.5के बराबर है ½। आप अंतिम उद्धरण चिह्न भी निकाल सकते हैं।

— ETHproductions

उल्लिखित परिवर्तनों और स्ट्रिंग संपीड़न के साथ, मुझे 58 मिलता है: A=Uf"[a-z]" l /Uf"[A-Za-z]" l)>½?A+" low":1-A+" upp" +`\x80ÖÐआप अंतिम तीन बाइट्स के कच्चे संस्करण को प्राप्त कर सकते हैं Oc"ercase।

— ETHproductions

@ \x80कुछ भी करने के लिए दिखाई नहीं दिया, और ÖÐ"केस" का उत्पादन किया ... शायद कुछ इनविसी-चार जो छंट गए? Btw, अपना स्वयं का मॉड प्रदान किया, युक्तियों के लिए धन्यवाद

— nikel

@ETH ओके, 17/11 को उस invisi- चार :)

— nicael

दुर्भाग्य से, बैकस्लैश को रेगेक्स पार्सर को काम करने के लिए स्ट्रिंग्स के अंदर दोगुना करना पड़ता है। इस मामले में, "\w"बस सभी से मेल खाता है w, और "\\w"सभी से मेल खाता है A-Za-z0-9_। इसलिए मुझे लगता है कि आपको रखने की आवश्यकता होगी "[a-z]"।

— ETHproductions

Answer 5

आर , 133 123 118 108 108 106 104 बाइट्स

नीचे 10 बाइट्स को @ ovs के लिए धन्यवाद, @Giuseppe को 8 धन्यवाद और @ngm को फिर से 10 धन्यवाद दिया गया। इस बिंदु पर यह वास्तव में एक सहयोगी प्रयास है जहां मैं बाइट्स प्रदान करता हूं और अन्य उन्हें बंद कर देते हैं;)

function(x)cat(max(U<-mean(utf8ToInt(gsub('[^a-zA-Z]',"",x))<91),1-U),c("lowercase","uppercase")[1+2*U])

इसे ऑनलाइन आज़माएं!

Comments

1 और बाइट का मुंडन।

— JayCe

Answer 6

MATL , 49 50 बाइट्स

भाषा के वर्तमान संस्करण (4.1.1) का उपयोग करता है , जो चुनौती से पहले है।

jt3Y2m)tk=Ymt.5<?1w-YU' upp'h}YU' low'h]'ercase'h

उदाहरण

>> matl
 > jt3Y2m)tk=Ymt.5<?1w-YU' upp'h}YU' low'h]'ercase'h
 > 
> PrOgRaMiNgPuZzLeS & CoDe GoLf
0.52 uppercase

>> matl
 > jt3Y2m)tk=Ymt.5<?1w-YU' upp'h}YU' low'h]'ercase'h
 > 
> Foo BaR Baz
0.55556 lowercase

व्याख्या

j                   % input string
t3Y2m)              % duplicate. Keep only letters
tk=Ym               % duplicate. Proportion of lowercase letters
t.5<?               % if less than .5
    1w-             % compute complement of proportion
    YU' upp'h       % convert to string and append ' upp'
}                   % else
    YU' low'h       % convert to string and append ' low' 
]                   % end
'ercase'            % append 'ercase'

Answer 7

जूलिया, 76 74 बाइट्स

s->(x=sum(isupper,s)/sum(isalpha,s);(x>0.5?"$x upp":"$(1-x) low")"ercase")

यह एक लंबोतरा फ़ंक्शन है जो एक स्ट्रिंग को स्वीकार करता है और एक स्ट्रिंग लौटाता है। इसे कॉल करने के लिए, इसे किसी वैरिएबल पर असाइन करें।

Ungolfed:

function f(s::AbstractString)
    # Compute the proportion of uppercase letters
    x = sum(isupper, s) / sum(isalpha, s)

    # Return a string construct as x or 1-x and the appropriate case
    (x > 0.5 ? "$x upp" : "$(1-x) low") * "ercase"
end

सहेजे गए 2 बाइट्स edc65 की बदौलत!

Comments

U निश्चित रूप ercasecase

— edc65

@ edc65 महान विचार, धन्यवाद!

— एलेक्स ए।

Answer 8

पर्ल 6 ,  91 70 69 63   61 बाइट्स

{($/=($/=@=.comb(/\w/)).grep(*~&' 'ne' ')/$/);"{$/>.5??$/!!1-$/} {<low upp>[$/>.5]}ercase"} # 91

{$/=m:g{<upper>}/m:g{\w};"{$/>.5??$/!!1-$/} {<low upp>[$/>.5]}ercase"} # 70

{"{($/=m:g{<upper>}/m:g{\w})>.5??$/!!1-$/} {<low upp>[$/>.5]}ercase"} # 69

{"{($/=m:g{<upper>}/m:g{\w})>.5??"$/ upp"!!1-$/~' low'}ercase"} # 63

{"{($/=m:g{<:Lu>}/m:g{\w})>.5??"$/ upp"!!1-$/~' low'}ercase"} # 61

उपयोग:

# give it a lexical name
my &code = {...}

.say for (
  'PrOgRaMiNgPuZzLeS & CoDe GoLf',
  'DowNGoAT RiGHtGoAt LeFTGoat UpGoAT',
  'Foo BaR Baz',
)».&code;

0.52 uppercase
0.580645 uppercase
0.555556 lowercase

Comments

स्ट्राइक-थ्रू कोड ब्लॉक? यह कुछ नया है ...

— बोजिडर मारिनोव

अधिकतम ("0.55 अपर", "0.45 कम") के लिए टर्नरी की अदला-बदली करके 3 चार्ट खो दें: इसे आज़माएं

— Phil H

Answer 9

सी #, 135 बाइट्स

आवश्यक है:

using System.Linq;

वास्तविक कार्य:

string U(string s){var c=s.Count(char.IsUpper)*1F/s.Count(char.IsLetter);return(c>0.5?c+" upp":1-c+" low")+"ercase";}

स्पष्टीकरण के साथ:

string U(string s)
{
    var c = s.Count(char.IsUpper) // count uppercase letters
               * 1F               // make it a float (less bytes than (float) cast)
               / s.Count(char.IsLetter); // divide it by the total count of letters
    return (c > 0.5 
        ? c + " upp"  // if ratio is greater than 0.5, the result is "<ratio> upp"
        : 1 - c + " low") // otherwise, "<ratio> low"
        + "ercase"; // add "ercase" to the output string
}

Answer 10

पायथन 2, 114 110 बाइट्स

i=input()
n=1.*sum('@'<c<'['for c in i)/sum(c.isalpha()for c in i)
print max(n,1-n),'ulpopw'[n<.5::2]+'ercase'

Comments

आप की जगह 2 बाइट्स बचा सकता है ['upp','low'][n<.5]के साथ 'ulpopw'[n<.5::2]की जगह है, और 3 अधिक [n,1-n][n<.5]के साथ max(n,1-n)।

— पुरकाकूदरी

106 बाइट्स

— ओव

Answer 11

मैथेमेटिका, 139 105 बाइट्स

a=ToString;If[(b=1.#~(c=StringCount)~Alphabet[]/c[#,_?LetterQ])<.5,a[1-b]<>" upp",a@b<>" low"]<>"ercase"&

वर्बोज़ कोड डरावना है , लेकिन मुझे इसके साथ रहना होगा ...

Answer 12

पीएचपी, 140 129 अक्षर

गोल्फ का मेरा पहला दौर - 'मानक' भाषा के लिए बहुत बुरा नहीं है, एह? :-)

मूल:

function f($s){$a=count_chars($s);for($i=65;$i<91;$i++){$u+=$a[$i];$l+=$a[$i+32];}return max($u,$l)/($u+$l).($u<$l?' low':' upp').'ercase';}

@Manatwork के लिए 129 वर्णों को छोटा किया गया:

function f($s){$a=count_chars($s);for(;$i<26;$u+=$a[$i+++65])$l+=$a[$i+97];return max($u,$l)/($u+$l).' '.($u<$l?low:upp).ercase;}

टिप्पणियों के साथ:

function uclcratio($s)
{
  // Get info about string, see http://php.net/manual/de/function.count-chars.php
  $array = count_chars($s);

  // Loop through A to Z
  for ($i = 65; $i < 91; $i++) // <91 rather than <=90 to save a byte
  {
    // Add up occurrences of uppercase letters (ASCII 65-90)
    $uppercount += $array[$i];
    // Same with lowercase (ASCII 97-122)
    $lowercount += $array[$i+32];
  }
  // Compose output
  // Ratio is max over sum
  return max($uppercount, $lowercount) / ($uppercount + $lowercount)
  // in favour of which, equality not possible per challenge definition
         . ($uppercount < $lowercount ? ' low' : ' upp') . 'ercase';
}

Comments

यह देखते हुए $u+=…, मुझे लगता है कि आपके पास पहले से ही error_reportingडिफ़ॉल्ट है, इसलिए चेतावनी को चुप करना। फिर कुछ उद्धरण निकालें ' '.($u<$l?low:upp).ercase:।

— मैनटवर्क

यदि आपके पास दोहराने के लिए केवल एक बयान होगा for, तो आप इसके चारों ओर ब्रेसिज़ निकाल सकते हैं। for($i=65;$i<91;$u+=$a[$i++])$l+=$a[$i+32];

— मैनटवर्क

एक और चेतावनी की कीमत के साथ, आप for65..91 के बजाय 0..26 को लूप करके कंट्रोल वेरिएबल इनिशियलाइज़ेशन को छोड़ सकते हैं :for(;$i<26;$u+=$a[$i+++65])$l+=$a[$i+97];

— manatwork

वाह, धन्यवाद @manatwork, मुझे नहीं पता था कि PHP कितना सहिष्णु है! : D दूसरा वाला बहुत होशियार है। मैंने आपके विचारों को कार्यान्वित किया, गिनती को 140-4-5-2 = 129 :-) पर लाया

— क्राइस्टाल्के ने

Answer 13

रूबी, 81 + 1 = 82

ध्वज के साथ -p,

$_=["#{r=$_.count(a='a-z').fdiv$_.count(a+'A-Z')} low","#{1-r} upp"].max+'ercase'

यह भाग्यशाली है कि 0 और 1 के बीच की संख्याओं के लिए, लेक्सिकोग्राफ़िक छंटनी संख्यात्मक छँटाई के समान है।

Answer 14

आम लिस्प, 132 बाइट्स

(setq s(read-line)f(/(count-if'upper-case-p s)(count-if'alpha-char-p s)))(format t"~f ~aercase"(max f(- 1 f))(if(> f .5)"upp""low"))

इसे ऑनलाइन आज़माएं!

Comments

टेस्ट में 0.52 अपरकेस कम नहीं है ...

— RosLuP

@RosLuP, सही किया, बहुत बहुत धन्यवाद!

— रेनजो

Answer 15

Gema, 125 वर्ण

\A=@set{l;0}@set{u;0}
<J1>=@incr{l}
<K1>=@incr{u}
?=
\Z=0.@div{@cmpn{$l;$u;$u;;$l}00;@add{$l;$u}} @cmpn{$l;$u;upp;;low}ercase

नमूना रन:

bash-4.3$ for input in 'PrOgRaMiNgPuZzLeS & CoDe GoLf' 'DowNGoAT RiGHtGoAt LeFTGoat UpGoAT' 'Foo BaR Baz'; do
>     gema '\A=@set{l;0}@set{u;0};<J1>=@incr{l};<K1>=@incr{u};?=;\Z=0.@div{@cmpn{$l;$u;$u;;$l}00;@add{$l;$u}} @cmpn{$l;$u;upp;;low}ercase' <<< "$input"
>     echo " <- $input"
> done
0.52 uppercase <- PrOgRaMiNgPuZzLeS & CoDe GoLf
0.58 uppercase <- DowNGoAT RiGHtGoAt LeFTGoat UpGoAT
0.55 lowercase <- Foo BaR Baz

Comments

-1 क्योंकि esolangs आपके दोस्तों को डराता है। (jk, upvoted)

— ev3commander

Answer 16

गंभीरता से, 58 बाइट्स

" upp"" low"k"ercase"@+╗,;;ú;û+∩@-@-;l@ú@-l/;1-k;i<@╜@ZEεj

हेक्स डंप:

22207570702222206c6f77226b2265726361736522402bbb2c3b3ba33b
962bef402d402d3b6c40a3402d6c2f3b312d6b3b693c40bd405a45ee6a

यह केवल डाउनलोड करने योग्य दुभाषिया पर काम करता है ... ऑनलाइन एक अभी भी टूट गया है।

स्पष्टीकरण:

" upp"" low"k"ercase"@+╗                                    Put [" lowercase"," uppercase"]
                                                            in reg0
                        ,;;ú;û+∩@-@-                        Read input, remove non-alpha
                                    ;l@                     Put its length below it
                                       ú@-                  Delete lowercase
                                          l                 Get its length
                                           /                Get the ratio of upper/total
                                            ;1-k            Make list [upp-ratio,low-ratio]
                                                ;i<         Push 1 if low-ratio is higher
                                                   @        Move list to top
                                                    ╜@Z     Zip it with list from reg0
                                                       E    Pick the one with higher ratio
                                                        εj  Convert list to string.

Answer 17

पायथ, 45 बाइट्स

AeSK.e,s/LzbkrBG1s[cGshMKd?H"upp""low""ercase

इसे ऑनलाइन आज़माएं। परीक्षण सूट।

व्याख्या

             rBG1               pair of alphabet, uppercase alphabet
    .e                          map k, b over enumerate of that:
      ,                           pair of
           b                          lowercase or uppercase alphabet
        /Lz                           counts of these characters in input
       s                              sum of that
                                    and
            k                         0 for lowercase, 1 for uppercase
   K                            save result in K
 eS                             sort the pairs & take the larger one
A                               save the number of letters in and the 0 or 1 in H

s[                              print the following on one line:
  cG                              larger number of letters divided by
    shMK                            sum of first items of all items of K
                                    (= the total number of letters)
        d                         space
         ?H"upp""low"             "upp" if H is 1 (for uppercase), otherwise "low"
                     "ercase      "ercase"

Answer 18

कॉफ़ीस्क्रिप्ट, 104 वर्ण

 (a)->(r=1.0*a.replace(/\W|[A-Z]/g,'').length/a.length)&&"#{(r>.5&&(r+' low')||(1-r+' upp'))+'ercase'}"

कॉफ़ीस्क्रिप्ट शुरू में "आर" मान के तर्क के रूप में इच्छित रिटर्न मान को पारित करने की कोशिश कर रहा था, जो विफल रहा और सुपर कष्टप्रद था क्योंकि आर एक संख्या थी, एक फ़ंक्शन नहीं। मैं &&उन्हें अलग करने के लिए बयानों के बीच रखकर इसके आसपास हो गया ।

Answer 19

पायथ, ५४ ५३

एक बाइट ने @Maltysen को धन्यवाद दिया

K0VzI}NG=hZ)I}NrG1=hK;ceS,ZK+ZK+?>ZK"low""upp""ercase

इसे ऑनलाइन आज़माएं

K0                  " Set K to 0
                    " (Implicit: Set Z to 0)

Vz                  " For all characters (V) in input (z):
  I}NG              " If the character (N) is in (}) the lowercase alphabet (G):
    =hZ             " Increment (=h) Z
  )                 " End statement
  I}NrG1            " If the character is in the uppercase alphabet (rG1):
    =hK             " Increment K
;                   " End all unclosed statements/loops

c                   " (Implicit print) The division of
  e                 " the last element of
    S,ZK           " the sorted (S) list of Z and K (this returns the max value)
+ZK                 " by the sum of Z and K

+                   " (Implicit print) The concatenation of
  ?>ZK"low""upp"    " "low" if Z > K, else "upp"
  "ercase"          " and the string "ercase".

Comments

,<any><any>एक दो एरिटी कमांड है जो एक समान है [<any><any>)जो आपको एक बाइट बचा सकता है

— माल्टीसेन

Answer 20

रूबी, 97 वर्ण

->s{'%f %sercase'%[(l,u=[/[a-z]/,/[A-Z]/].map{|r|s.scan(r).size}).max.fdiv(l+u),l>u ?:low: :upp]}

नमूना रन:

2.1.5 :001 > ['PrOgRaMiNgPuZzLeS & CoDe GoLf', 'DowNGoAT RiGHtGoAt LeFTGoat UpGoAT', 'Foo BaR Baz'].map{|s|->s{'%f %sercase'%[(l,u=[/[a-z]/,/[A-Z]/].map{|r|s.scan(r).size}).max.fdiv(l+u),l>u ?:low: :upp]}[s]}
 => ["0.520000 uppercase", "0.580645 uppercase", "0.555556 lowercase"] 

Answer 21

05AB1E , 28 बाइट्स

ʒ.u}gság/Dò©_αð„Œ„›…#'ƒß«®èJ

इसे ऑनलाइन आज़माएं!

---

ʒ.u}g                        # filter all but uppercase letters, get length.
     ság/                    # Differential between uppercase and input length.
         Dò©                 # Round up store result in register w/o pop.
            _α               # Negated, absolute difference.
              ð              # Push space.
               „Œ„›…         # Push "upper lower"
                    #        # Split on space.
                     'ƒß«    # Concat "case" resulting in [uppercase,lowercase]
                         ®èJ # Bring it all together.

Answer 22

जावा 8, 136 130 बाइट्स

s->{float l=s.replaceAll("[^a-z]","").length();l/=l+s.replaceAll("[^A-Z]","").length();return(l<.5?1-l+" upp":l+" low")+"ercase";}

-6 बाइट्स @ProgramFOX 'C # .NET उत्तर का पोर्ट बनाते हैं ।

इसे ऑनलाइन आज़माएं।

स्पष्टीकरण:

s->{                  // Method with String as both parameter and return-type
  float l=s.replaceAll("[^a-z]","").length();
                      //  Amount of lowercase
  l/=l+s.replaceAll("[^A-Z]","").length();
                      //  Lowercase compared to total amount of letters
  return(l<.5?        //  If this is below 0.5:
          1-l+" upp"  //   Return `1-l`, and append " upp"
         :            //  Else:
          l+" low")   //   Return `l`, and append " low"
        +"ercase";}   //  And append "ercase"

Answer 23

REXX, 144 बाइट्स

a=arg(1)
l=n(upper(a))
u=n(lower(a))
c.0='upp';c.1='low'
d=u<l
say 1/((u+l)/max(u,l)) c.d'ercase'
n:return length(space(translate(a,,arg(1)),0))

Comments

141 बाइट्स

— अंडा

Answer 24

पर्ल 5 -p , 72 बाइट्स

$_=(($u=y/A-Z//)>($l=y/a-z//)?$u:$l)/($u+$l).$".($u>$l?upp:low).'ercase'

इसे ऑनलाइन आज़माएं!

Answer 25

कोटलिन , 138 बाइट्स

कोड

let{var u=0.0
var l=0.0
forEach{when{it.isUpperCase()->u++
it.isLowerCase()->l++}}
"${maxOf(u,l)/(u+l)} ${if(u>l)"upp" else "low"}ercase"}

प्रयोग

fun String.y():String =let{var u=0.0
var l=0.0
forEach{when{it.isUpperCase()->u++
it.isLowerCase()->l++}}
"${maxOf(u,l)/(u+l)} ${if(u>l)"upp" else "low"}ercase"}

fun main(args: Array<String>) {
    println("PrOgRaMiNgPuZzLeS & CoDe GoLf".y())
    println("DowNGoAT RiGHtGoAt LeFTGoat UpGoAT".y())
    println("Foo BaR Baz".y())
}

Answer 26

पायथ, 40 39 बाइट्स

Jml@dQrBG1+jdeS.T,cRsJJc2."kw񽙽""ercase

इसे यहाँ आज़माएँ

व्याख्या

Jml@dQrBG1+jdeS.T,cRsJJc2."kw񽙽""ercase
 m    rBG1                                For the lower and uppercase alphabet...
  l@dQ                                    ... count the occurrences in the input.
J                 cRsJJ                   Convert to frequencies.
               .T,     c2."kw񽙽"          Pair each with the appropriate case.
             eS                           Get the more frequent.
          +jd                    "ercase  Stick it all together.

Answer 27

पावरशेल कोर , 134 128 बाइट्स

Filter F{$p=($_-creplace"[^A-Z]",'').Length/($_-replace"[^a-z]",'').Length;$l=1-$p;(.({"$p upp"},{"$l low"})[$p-lt$l])+"ercase"}

इसे ऑनलाइन आज़माएं!

धन्यवाद, Veskah , छह बाइट्स को फ़ंक्शन को फ़िल्टर में परिवर्तित करके सहेजने के लिए!

Comments

आप दो फ्री बाइट्स को फंक्शन के बजाय फ़िल्टर बनाकर बचा सकते हैं, अर्थात फ़िल्टर F (कोड)

— Veskah

मैं कभी नहीं जानता था कि यह एक बात थी! धन्यवाद, Veskah!

— जेफ फ्रीमैन

Answer 28

Tcl , 166 बाइट्स

proc C s {lmap c [split $s ""] {if [string is u $c] {incr u}
if [string is lo $c] {incr l}}
puts [expr $u>$l?"[expr $u./($u+$l)] upp":"[expr $l./($u+$l)] low"]ercase}

इसे ऑनलाइन आज़माएं!

Answer 29

एपीएल (एनएआरएस), 58 चार, 116 बाइट्स

{m←+/⍵∊⎕A⋄n←+/⍵∊⎕a⋄∊((n⌈m)÷m+n),{m>n:'upp'⋄'low'}'ercase'}

परीक्षा:

  h←{m←+/⍵∊⎕A⋄n←+/⍵∊⎕a⋄∊((n⌈m)÷m+n),{m>n:'upp'⋄'low'}'ercase'}
  h "PrOgRaMiNgPuZzLeS & CoDe GoLf"
0.52 uppercase
  h "DowNGoAT RiGHtGoAt LeFTGoat UpGoAT"
0.5806451613 uppercase
  h "Foo BaR Baz"
0.5555555556 lowercase

Answer 30

सी, 120 बाइट्स

f(char*a){int m=0,k=0,c;for(;isalpha(c=*a++)?c&32?++k:++m:c;);printf("%f %sercase",(m>k?m:k)/(m+k+.0),m>k?"upp":"low");}

परीक्षण और परिणाम:

main()
{char *p="PrOgRaMiNgPuZzLeS & CoDe GoLf", *q="DowNGoAT RiGHtGoAt LeFTGoat UpGoAT", *m="Foo BaR Baz";
 f(p);printf("\n");f(q);printf("\n");f(m);printf("\n");
}

परिणाम

0.520000 uppercase
0.580645 uppercase
0.555556 lowercase

ऐसा लगता है कि असीसी चरित्र सेट है।

Comments

116 बाइट्स

— सीलिंगकैट

@ceilingcat आप अपनी उस 116 बाइट्स को अपडेट कर सकते हैं ... यदि पर्याप्त हो तो मेरे लिए यह 120 बाइट्स ...

— RosLuP