क्या यह संख्या बुराई है?


34

परिचय

संख्या सिद्धांत में, एक संख्या को बुराई माना जाता है यदि उसके द्विआधारी प्रतिनिधित्व में 1 की संख्या भी हो। आज की चुनौती में, आप पहचान पाएंगे कि दी गई संख्या बुराई है या नहीं।

चुनौती

आपका काम एक पूर्ण कार्यक्रम या फ़ंक्शन लिखना है जो इनपुट, आउटपुट (या रिटर्न) के रूप में एकल, गैर-नकारात्मक पूर्णांक को स्वीकार करता है या नहीं, यह संख्या बुराई है या नहीं।

  • यदि संख्या बुराई है, और संख्या गलत नहीं है, तो आप किसी भी सत्य मान का उत्पादन कर सकते हैं और यदि कोई संख्या गलत है।
  • आप किसी भी स्वीकार्य प्रारूप में इनपुट और आउटपुट कर सकते हैं ।
  • मानक खामियों को अस्वीकार कर दिया जाता है।
  • OEIS अनुक्रम A001969 सभी बुरे संख्याओं वाला अनुक्रम है।
  • यहाँ संदर्भ के लिए (और अधिक परीक्षण मामलों के लिए) पहले 10000 बुराई संख्याओं की एक सूची है!
  • यह सवाल , इसलिए कम, बेहतर।
  • गोल्फिंग भाषाओं में बहुत कम जवाबों से दूर मत रहो। मैं आपको अपनी पसंद की किसी भी भाषा में प्रस्तुत करने के लिए प्रोत्साहित करता हूं।
  • यहाँ कुछ परीक्षण मामले हैं:

    3 => True
    11 => False
    777 => True
    43 => True
    55 => False
    666 => False
    

लीडरबोर्ड

पृष्ठ के निचले भाग में इस प्रश्न के लिए लीडरबोर्ड युक्त एक स्टैक स्निपेट है। (साभार, @MartinEnder)

यह सुनिश्चित करने के लिए कि आपका उत्तर दिख रहा है, कृपया अपना उत्तर शीर्षक मार्कडाउन टेम्पलेट का उपयोग करके शीर्षक के साथ शुरू करें:

# Language Name, N bytes

Nआपके सबमिशन का आकार कहां है। यदि आप अपने स्कोर में सुधार करते हैं, तो आप पुराने अंकों को हेडलाइन में रख सकते हैं , उनके माध्यम से स्ट्राइक करके। उदाहरण के लिए:

# Ruby, <s>104</s> <s>101</s> 96 bytes

यदि आप अपने हेडर में कई संख्याओं को शामिल करना चाहते हैं (जैसे कि आपका स्कोर दो फ़ाइलों का योग है या आप दुभाषिया ध्वज दंड को अलग से सूचीबद्ध करना चाहते हैं), तो सुनिश्चित करें कि हेडर में वास्तविक अंक अंतिम संख्या है:

# Perl, 43 + 2 (-p flag) = 45 bytes

आप भाषा के नाम को एक लिंक भी बना सकते हैं जो लीडरबोर्ड स्निपेट में दिखाई देगा:

# [><>](http://esolangs.org/wiki/Fish), 121 bytes

संपादित करें: मेरा मानना है कि इस सवाल का एक नकली नहीं है यह जबकि यह सवाल लोगों की संख्या की गणना करने के लिए पूछ रहा है, इस सवाल पूछ रहा है क्योंकि लोगों की संख्या भी है या नहीं,। यद्यपि आप इस प्रश्न को केवल बिट्स की गिनती करके पूरा कर सकते हैं, लेकिन अन्य दृष्टिकोण भी हैं


2
संबंधित (एक्सओआर-आईएनजी हर बाइनरी अंक, योग मोडुलो -2 लेने के समान है)।
केविन क्रूज़सेन


2
@ BetaDecay लेकिन वह उल्टा काम नहीं करता है: यानी आप इन सभी उत्तरों को नहीं ले सकते हैं और mod 2 को हटा सकते हैं। इसलिए, यह चुनौती कुछ नए तरीकों को आमंत्रित करती है।
उभयलिंगी

13
मेरा मानना ​​है कि 666 => Falseटेस्ट केस होना चाहिए।
user2390246

3
लीडरबोर्ड मेरे लिए टूट गया है
जो किंग

जवाबों:


35

Z80 असेंबली (8-बिट), 2 बाइट्स

निम्नलिखित कोड केवल 255 तक के मानों के साथ काम करता है:

; Input is given in register A.
; P flag is set if A is evil.
B7     or A
C9     ret


16-बिट संस्करण (सभी परीक्षण मामलों पर काम करता है), 3 बाइट्स

यह 65535 तक के मानों के साथ काम करता है।

; Input is given in BC.
; Output is the same as above.
78     ld A,B
A9     xor C
C9     ret

यदि आप रोमांच महसूस कर रहे हैं, तो आप इनपुट बाइट को शेव कर सकते हैं Aऔर Cऐसा ही कर सकते हैं

      ld BC, 777
C5    push BC
F1    pop AF

और फिर चल रहा है

A9    xor C
C9    ret

हालांकि, यह कॉलर पर बोझ डालता है, इसलिए यह हो सकता है कि दो बाइट्स ( push BCऔर pop AF) को भी गिना जाए।


मुझे यह पसंद है लेकिन यह कैसे काम करता है? असेंबली (6502 + आर्म) के लिए मेरी मेमोरी है कि or2 ऑपरेंड्स के साथ बिटवाइज़ हैं
उत्तरी-ब्रैडली

2
@ उत्तरी-ब्रैडली Z80 पर, यह निहित है कि महामारी का दूसरा संचालक orसंचायक है। इस मामले में, कमांड ए नहीं बदलता है। यह केवल स्थिति रजिस्टर (और विशेष रूप से, समानता ध्वज) को ताज़ा करता है।
cschultz2048

1
क्या codegolf.meta.stackexchange.com/a/8509/29560 केP अनुसार अनुमति है ? यह एक बिट के भीतर हैF (झंडे) रजिस्टर के जिसमें केवल तीन जोड़े हैं जो इससे प्रभावित हैं। इसके अलावा, यह उत्तर यह उल्लेख करने में विफल रहता है कि यह केवल 8-बिट मूल्यों के लिए प्रतिस्पर्धा कर रहा Aहै , क्योंकि 8-बिट रजिस्टर है। इसका मतलब यह 777255 के लिए या किसी अन्य अहस्ताक्षरित मान के लिए एक उत्तर देने में असमर्थ है ।
सीजे डेनिस

2
धिक्कार है बिल्ट-इन :P
जो किंग

1
@ cschultz2048 Aसाथ जोड़ा जाता है F, तो मैं स्वीकार नहीं करेगा ABया BAएक 16-बिट मूल्य के रूप में। BC16-बिट है, लेकिन फिर आपको Aदूसरे को XOR करने से पहले उनमें से एक को लोड करने के लिए एक अतिरिक्त निर्देश की आवश्यकता होती है । मैंने हमेशा उल्लेख किया है कि मेरे Z80 उत्तर पूरी तरह से 255 या 65535 तक काम करते हैं, जो प्रश्न पर निर्भर करता है। शायद एक 16-बिट संस्करण भी जोड़ सकते हैं? तो 8-बिट मानों के लिए 2 बाइट्स, 16-बिट मानों के लिए 3 बाइट्स।
CJ डेनिस

25

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

f=n=>n?!f(n&~-n):1

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

व्याख्या

बिटवाइज़ लॉजिक इस प्रकार है:

  • पूर्णांकों के लिए, ~-nके बराबर है -(-n)-1, ताकि करने का एक और तरीका है n-1। उस विशेष मामले में, हम वास्तव में इस्तेमाल कर सकते थे n-1
  • n & (n-1)करने के लिए कम से कम महत्वपूर्ण बिट सेट को हटा 1 में n decrementing क्योंकि n सब अनुगामी बदल जाता है 0 के में 1 s' और साफ करता है 1 (प्रचार कैरी द्वारा) है कि तुरंत इस प्रकार है, जबकि सब कुछ किसी और अपरिवर्तित रहेगा।

    उदाहरण के लिए n = 24 (बाइनरी में 11000):

      11000 (24)                  11000 (24)
    -     1                   AND 10111 (23)
    -------                   ---------
    = 10111 (23)              =   10000 (16)
       ^                           ^
       |                           |
       +--- this bit is cleared ---+
    

इसलिए, हम कई पुनरावर्ती कॉलों की प्रक्रिया करते हैं क्योंकि बाइनरी प्रतिनिधित्व में 1 's हैं एन , के साथ हर बार परिणाम inverting !। अंतिम कॉल हमेशा 1 देता है

उदाहरण:

f(24) = !f(16) = !!f(0) = !!1 = true
f(7) = !f(6) = !!f(4) = !!!f(0) = !!!1 = false

नमस्कार, मैं समझता हूं कि कोड क्या करता है, लेकिन मैं सिर्फ तर्क / तर्क के बारे में पता नहीं लगा सकता, बिटवाइज ऑपरेशंस के बारे में कई लेख पढ़ने के बावजूद, यह जांचना कि क्या एक नंबर 2 की शक्ति है, आदि, मुझे पता है कि एक पुनरावर्ती कार्य क्या है। । मुझे अभी यह नहीं पता है कि इसका उपयोग इस तरह से क्यों किया गया है और यह पहेली का जवाब देने के लिए क्यों काम करता है, यानी पुनरावृत्ति और (दो की शक्ति) के बीच की कड़ी <==> बुराई संख्या। यदि आपके पास समय है, तो स्पष्टीकरण आपका स्वागत है :) धन्यवाद!
सुपारी

1
@supafly मैंने एक स्पष्टीकरण जोड़ा है। और BTW: PPCG में आपका स्वागत है!
अरनौलड

अभी प्रसंस्करण बहुत स्पष्ट है। फिर भी, विचार / तर्क वास्तव में जादू है! विवरण के लिए आपका धन्यवाद!
सुपरफास्ट

13

अजगर २ , 25 बाइट्स

lambda n:int(bin(n),13)%2

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

bin(n) जैसा परिणाम देता है '0b10101' । इसे आधार -13 पूर्णांक के रूप में पढ़ना, हमें प्राप्त होता है

जो कम कर देता है सापेक्ष 2 को 1 1 5 + 1 1 4 + 0 1 3 + 1 1 2 + 0 1 1 + 1 0

11135+1134+0133+1132+0131+1130
1 + 1 + 0 + 1
115+114+013+112+011+110(mod2)
1+1+0+1+0+1(mod2).

तो int(bin(n),13)%21 + (लोगों की संख्या bin(n)) modulo 2 के बराबर होता है ।

यदि nबुराई है, तो परिणाम 1 है; अन्यथा यह 0 है।

मैंने नूडल 9 से इस ट्रिक को उठाया


चूंकि यह पायथन 2 है, इसलिए कोड को फिर से हटाए गए रीप्रिट बैकटिक सिंटैक्स के साथ छोटा किया जा सकता है lambda n:int(`n`,13)%2:। इसे ऑनलाइन आज़माएं!
GarethPW

हाँ, वहाँ मस्तिष्क का एक सा गोज़ था और int के आधार तर्क के उद्देश्य को भूल गया। ओह!
GarethPW

11

जप -h!, 5 4 3 बाइट्स

¤å^

कोशिश करो


व्याख्या

¤       :Convert to base-2 string
 å^     :Cumulatively reduce by XORing
        :Implicitly output the last element negated

@LuisfelipeDejesusMunoz, केविन के 05AB1E समाधान को पोर्ट करना भी 5 बाइट्स पर काम करता है, अगर आप उसके लिए प्रयास करना चाहते हैं।
झबरा

¤¬x vयह केविन का उत्तर है
लुइस फेलिप डी जेउस मुनोज़

@LuisfelipeDejesusMunoz, हाँ, यह बात है।
झबरा

8

सी # (विजुअल सी # इंटरएक्टिव कंपाइलर) , 43 38 बाइट्स


गोल्फ ऑनलाइन यह कोशिश करो!

i=>Convert.ToString(i,2).Sum(c=>c)%2<1

Ungolfed

i => Convert.ToString( i, 2 ).Sum( c => c ) % 2 < 1

परीक्षणों के साथ पूर्ण कोड

Func<Int32, Boolean> f = i => Convert.ToString( i, 2 ).Sum( c => c ) % 2 < 1;

Int32[] testCases = { 3, 11, 777, 43, 55 };

foreach( Int32 testCase in testCases ) {
    Console.Write( $" Input: {testCase}\nOutput: {f(testCase)}" );
    Console.WriteLine("\n");
}

Console.ReadLine();

विज्ञप्ति

  • v1.1 - -5 bytes- को बदल दिया CountगयाSum
  • v1.0 - 43 bytes- प्रारंभिक समाधान।

टिप्पणियाँ

  • कोई नहीं

2
Upvoted for the chuckle your "ungolfed" version gave me.
Jack Brounstein

8

Bash (no external utilities), 56 44 bytes

while(($1));do set $(($1/2)) $(($2+$1%2));done;!(($2%2))

(($1))&&exec $0 $[$1/2] $[$2+$1%2];!(($2%2))

This assumes that the number is found in $1, having been passed as the first command line argument. It also assumes that this is a shell script (so that it can exec itself).

It recurses, after a fashion, using exec $0, until the number (in $1) reaches zero, dividing it by two in each iteration. It also sums (in $2) the number of times we get a number that is odd. At the end, the original number was "evil" if the sum in $2 in not odd.

Example invocations:

$ ./script 3 && echo evil
evil

$ ./script 11 && echo evil

$ ./script 777 && echo evil
evil

$ ./script 43 && echo evil
evil

$ ./script 55 && echo evil

For 0:

$ ./script 0 && echo evil
./script: line 1: ((: %2: syntax error: operand expected (error token is "%2")
evil

Correct result, with a bit of extra on the side.


7

R, 37 26 bytes

!sum(scan()%/%2^(0:31))%%2

Try it online!

An alternative to Robert S.'s answer, this eschews the built-in bit splitting but ends up less golfy and thanks to JayCe and digEmAll ends up coming in slightly golfier.

Only works for positive integers less than 2311.


Why don't hardcode 31 instead of log2 ? Try it online!
digEmAll

@digEmAll Which in turn means no need to define x
JayCe

@digEmAll thanks! I wasn't sure about precision issues, although I suppose that past 2311 we (probably) lose precision in the %/% and %% operators so it would be a moot point.
Giuseppe

Also intToBits supports only integer values up to 2^31-1 ;)
digEmAll

6

05AB1E, 4 bytes

bSOÈ

Try it online or verify all test cases.

Explanation:

b       # Convert to binary string
        #  i.e. 777 → 1100001001
 S      # Change it to a list of 0s and 1s
        #  i.e. 1100001001 → ['1','1','0','0','0','0','1','0','0','1']
  O     # Take the sum
        #  i.e. ['1','1','0','0','0','0','1','0','0','1'] → 4
   È    # Check if it's even (1 as truthy, 0 as falsey)
        #  i.e. 4 → 1


5

R, 99 98 44 34 28 bytes

-1 thanks to Kevin Cruijssen! -54 thanks to ngm! -10 thanks to Giuseppe! -6 thanks to JayCe!

!sum(intToBits(scan())>0)%%2

Try it online!


Alternatively, using the binaryLogic package (39 bytes):

!sum(binaryLogic::as.binary(scan()))%%2

2
I don't know R too well, but I'm pretty sure ==0 can be <1 :)
Kevin Cruijssen



1
This works as well I think : 32 bytes But requires a bit of an explanations :)
digEmAll


5

C (gcc), 36 bytes

c;f(n){for(c=0;n;c++)n&=n-1;n=~c&1;}

Try it online!

Method from K&R https://graphics.stanford.edu/~seander/bithacks.html#CountBitsSetKernighan

Must be compiled with optimization level 0


Doesn't compile on gcc 5.4.0: error: expected constructor, destructor, or type conversion before '(' token (arrow is pointing at the f in the function name). What compiler flag(s) do I need?
villapx

1
Doesn't work with -O.
nwellnhof

2
"Returns 0 for truthy, 1 for falsey" Is this legal? Not trying to discredit your answer, just curious, and because it would save me a byte. Note: The word truthy in the question links to this answer. And this comment also mentions truthiness.
Borka223

@nwellnhof @villapx Compiles fine on my 7.3.0 - just make sure you're not missing the -O0 compiler flag.

@Borka223 hmmm after months of perusing this site, I was under the impression that truthy and falsey could be anything, so long as they are consistent within your solution. However, the answer you linked certainly seems to contradict that. I went ahead and added the byte. Thanks
vazt


4

PHP, 37 36 bytes

<?=1&~substr_count(decbin($argn),1);

To run it:

echo '<input>' | php -nF <filename>

Or Try it online!

Prints 1 for true, and 0 for false.

-1 byte thanks to Benoit Esnard!


1
I think you can save one byte by removing the modulo operation: <?=1&~substr_count(decbin($argn),1);. This one also prints 0 for false.
Benoit Esnard

Thanks @BenoitEsnard! That's very clever, I've updated my answer :) You learn something new every day!
Davіd

4

Brachylog, 4 bytes

ḃo-0

Try it online!

With multiple test cases (😈 is evil and 👼 is not.)

Uses something I discovered recently about the - predicate: its documentation just says "the difference of elements of [input]", but what it actually does is "sum of even-indexed elements (starting from 0th) of input, minus the sum of odd-indexed elements of input".

Here,

converts the number into an array of binary digits,

o sorts them to bring all the 1s together.

Now, if there were an even number of 1s, there would be an equal number of 1s in even indices and odd indices. So the - after that would give a 0. But if there were an odd number of 1s, there would be an extra 1 sticking out, resulting in the difference being either -1 or 1.

So, finally, we assert that the difference is 0, and get a true or false result according to that. With more flexible output requirements, this could be removed for a 3 byte answer, with 0 as truthy output and -1 and 1 as both falsey outputs.


4

INTERCAL, 90 65 63 bytes

DOWRITEIN:1
DO:2<-'#0$#65535'~?':1~:1'
DOREADOUT:2
PLEASEGIVEUP

Try it online!

Ungolfed and expanded (for what it's worth) with C style comments.

DO WRITE IN :1 //Store user input in 1
DO :2<-:1~:1 //Select just the ones. So will convert binary 10101 to 111
DO :3<-:?2 //Run the unary xor over the result. Essentially, xor with the right bitshifted
           //(with wraparound) value).
DO :9<-#0$#65535 //Intermingle the 16 bit values of all 0's and all 1's, to create a
                 //32 bit number with 1's in the odd positions.
DO :4<-:9~:3 //It turns out that at this point, evil numbers will have no bits in odd
             //positions, and non-evil numbers will have precisely one bit in an odd
             //position. Therefore, the ~ will return 0 or 1 as appropriate.
PLEASE READ OUT :4 //Politely output
PLEASE GIVE UP //Polite and self explanatory

I had to make a few concessions to make this feasible in INTERCAL. The first is, as with all INTERCAL programs, numerical input must be written out. So if you want to input 707 you would provide SEVEN OH SEVEN.

The second is that INTERCAL doesn't really have proper truthy or falsy value. Instead, it will output the Roman Numeral I (1) if the number is not evil, or a 0 (typically represented as - since Roman Numerals can't normally represent 0).

If you want to flip those so that evil numbers return 1 and non-evil numbers return 0, you can change lines 4 and 5 from the ungolfed version as follows, although it does add 3 bytes.

DO:9<-#65535$#0
DO:4<-#1~:9~3


3

dc, 18 16 bytes

[2~rd1<M+]dsMx2%

Returns (to the stack) 0 for evil and 1 for not evil

Try it online!

Fairly straightforward - recursively applies the combined quotient/remainder operator ~ to the new quotient and adds all the remainders together, then mods by 2 (after spending two bytes to flip to a standard truthy/falsy).

Edited to reflect consensus that 0 for truthy and 1 for falsy is okay, especially in a language that has no sort of if(boolean) construct.


3

Python 2, 29 bytes

lambda n:~bin(n).count('1')&1

Try it online!

Returns 1 if True, else 0.

Converts the number to a binary string like '0b11', counts the number of 1s, gets the complement of result, and returns the last bit of the complement (thanks, https://codegolf.stackexchange.com/users/53560/cdlane!) (1 if the original number was even, 0 if it was odd).


1
No fewer bytes but lambda n:~bin(n).count('1')&1 replaces the modular division with something potentially less expensive.
cdlane

3

x86-16, 3 bytes

NASM listing:

 1                                  parity16:
 2 00000000 30E0                        xor al,ah
 3 00000002 C3                          ret

16-bit integer function arg in AX (which is destroyed), return value in PF.

The hardware calculates the parity of the result for us, in x86's Parity Flag. The caller can use jp / jnp to branch, or whatever they like.

Works exactly like @cschultz's Z80 / 8080 answer; in fact 8086 was designed to make mechanical source-porting from 8080 easy.

Note that PF is only set from the low byte of wider results, so test edi,edi wouldn't work for an x86-64 version. You'd have to horizontal-xor down to 16 bits, or popcnt eax, edi / and al,1 (where 0 is truthy).


3

C++ (gcc) (-O0),  36  31 bytes

int f(int i){i=!i||i%2-f(i/2);}

Try it online!


C++ (clang), 35 bytes

int f(int i){return!i||i%2-f(i/2);}

Try it online!


Here is my first attempt at code golfing, hope I didn't break any rule I might have missed.

Edit:
- Saved 5 bytes thanks to @Jonathan Frech : replaced != by - and return by i= (the last replacement does not seem to work with clang though)
- Since there seems to be a debate whether I should use gcc -O0 abuse, I thought I could just give both versions


Welcome to PPCG! You may be able to save a byte by golfing != to - and another four by golfing return to i=.
Jonathan Frech

@JonathanFrech It's been a long time since I did C++, does it implicitly return the last assigned expression in a function if there's no return statement? I'm guessing it's a gcc thing?
sundar - Reinstate Monica

1
It is a gcc specific undefined behaviour abuse on optimization level O0.
Jonathan Frech

By switching to K&R C, you can get it down to 23 bytes (very impressive!) Try it online!
ErikF

@JonathanFrech: why do people insist on using that stupid gcc -O0 hack? It's not like the length of a language's total boilerplate matters much when comparing implementations. Also, it makes it more interesting to choose between return vs. call-by-reference (updating *i in place). I'd rather write C or C++ answers, not un-optimized-gcc-only answers, because un-optimized-gcc isn't a very useful language.
Peter Cordes

3

SML, 32 Bytes

fun%0=1| %n=(n+ %(n div 2))mod 2

Explaination:

  • % is function name
  • takes in input in repl and returns 1 if evil, 0 otherwise
  • n is input, returns (n + %(n//2)) % 2

Made by 2 bored Carnegie Mellon Students


Welcome to PPCG, and good first answer!
mbomb007

2

Forth (gforth), 53 bytes

: f 1 swap begin 2 /mod -rot xor swap ?dup 0= until ;

Try it online!

Explanation

Takes the xor-sum of the digits of the binary form of the number. (repeatedly divides by 2 and xors the remainder with the "sum" value)

Code Explanation

: f              \ begin a new word definition
  1 swap         \ place 1 on the stack below the input (n)
  begin          \ start an indefinite loop
    2 /mod       \ get the quotient and remainder of dividing n by 2
    -rot         \ move the sum and remainder to the top of the stack
    xor          \ xor the sum and remainder
    swap         \ move the quotient back to the top of the stack
    ?dup         \ duplicate if > 0
    0=           \ get "boolean" indicating if quotient is 0
  until          \ end the loop if it is, otherwise go back to the beginning
;                \ end the word definition

2

Java 8, 40 36 bytes

n->n.toString(n,2).chars().sum()%2<1

-4 bytes thanks to @Okx for something I shouldn't have forgotten myself..

Try it online.

Explanation:

n->                // Method with Integer parameter and boolean return-type
  n.toString(n,2)  //  Convert the integer to a binary String
   .chars()        //  Convert that to an IntStream of character-encodings
   .sum()          //  Sum everything together
    %2<1           //  And check if it's even

Note that the character encoding for 0 and 1 are 48 and 49, but summing them and taking modulo-2 still holds the correct results because 48%2 = 0 and 49%2 = 1.


1
n.toString(n,2) saves 4 bytes.
Okx

@Okx Not sure how I forgot about that one, lol.. Thanks! ;)
Kevin Cruijssen

If you're allowed to use 1 and 0 instead of true and false (not sure for Java), you can change to: ~n.toString(n,2).chars().sum()%2 to save one byte.
Mario Ishac

1
@MarDev Unfortunately 0 and 1 aren't truthy/falsey in Java, only booleans/Booleans are. If a challenge would state two distinct outputs are allowed the <1 could have been removed to save 2 bytes indeed. :)
Kevin Cruijssen


2

Retina 0.8.2, 28 bytes

.+
$*
+`(1+)\1
$+0
0

11

^$

Try it online! Link includes test cases. Explanation:

.+
$*

Convert to unary.

+`(1+)\1
$+0

Partial binary conversion (leaves extra zeroes).

0

Delete all the zeros.

11

Modulo the ones by two.

^$

Test whether the result is zero.


2

x86 Assembly, 12 11 bytes

F3 0F B8 44 24 04  popcnt      eax,dword ptr [esp+4] ; Load EAX with the number of ones in arg
F7 D0              not         eax ; One's complement negation of EAX
24 01              and         al,1 ; Isolate bottom bit of EAX
C3                 ret             

-1 byte thanks to @ceilingcat's suggestion


@ceilingcat Good catch!
Govind Parmar

1
Suggest inc eax instead of not eax. Also may want to mention that this requires a processor with support for the popcnt instruction.
ceilingcat

1
also you do not have to take arg from stack. see allowed calling conventions codegolf.stackexchange.com/a/161497/17360 (Peter Cordes's more in-depth answer codegolf.stackexchange.com/a/165020/17360)
qwr

1
Note that you may return a boolean in FLAGS stackoverflow.com/a/48382679/3163618
qwr

Shouldn't 666 be a test case?
Arcanist Lupus

2

Bash + GNU utilities, 33

dc -e2o?p|tr -d 0|wc -c|dc -e?2%p

Try it online!

Reads input from STDIN. Outputs 1 for True and 0 for False.

  • dc converts input to a binary string
  • tr removes zeros
  • wc counts remaining ones (and trailing newline, which corrects sense of logic
  • dc calculates count mod 2 and outputs the answer

2

Python 2, 28 27 bytes

f=lambda n:n<1or n&1^f(n/2)

Try it online!

Returns a truthy value if exactly one of the ones-bit is a 1 and the result of calling this function on n/2 is truthy is true (or n==0). It works because n/2 is equivalent to a right bitshift with floor division (so Python 2 only).

Alternate version, also 28 27 bytes

g=lambda n:n<1or g(n&n-1)^1

Try it online!

Based on the K&R method of counting set bits referenced by vazt.

Both of these could be two bytes shorter if the output allowed falsey to mean evil.

Edit: Thanks to Amphibological for saving a byte!


You can remove the spaces between the 1 and the or to save +1 byte. Nice solution!
Amphibological

Man, I thought I tried that. Good catch!
Jack Brounstein

2

APL (Dyalog Unicode), 10 bytesSBCS

Anonymous tacit function. Can take any array of integers as argument.

≠⌿12∘⊥⍣¯1

Try it online!

2∘⊥⍣¯1 convert to binary, using as many digits as needed by the largest number, separate digits along primary axis

1⍪ prepend ones along the primary axis

≠⌿ XOR reduction along the primary axis


2

J, 9 bytes

Anonymous tacit function. Can take any integer array as argument.

1-2|1#.#:

Try it online!

1- one minus (i.e. logical negation of)

2| the mod-2 of

1#. the sum (lit. the base-1 evaluation) of

#: the binary representation


Nice one! the boring approach is 9 bytes: 2|1+1#.#:
Conor O'Brien

This only seems to work because 777 in the input makes every number be represented in 10 bits. Replace it with e.g. 480 and the output flips.
FrownyFrog

@ConorO'Brien Boring trumps incorrect.
Adám

@FrownyFrog Fixed.
Adám
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.