केवल बाइट्स

Question

परिदृश्य

हाल ही में आप अपने पसंदीदा पाठ संपादक के साथ कुछ अजीब व्यवहार देख रहे हैं। पहले ऐसा लगता था कि डिस्क पर लिखते समय यह आपके कोड के यादृच्छिक अक्षरों को अनदेखा कर रहा था। थोड़ी देर के बाद आपने एक पैटर्न देखा; विषम ASCII मूल्यों वाले पात्रों को अनदेखा किया जा रहा था। आगे के निरीक्षण में आपको पता चला कि आप केवल फाइलों को ठीक से लिख सकते हैं यदि हर आठवां बिट शून्य हो। अब आपको यह जानने की जरूरत है कि क्या आपकी कीमती फाइलें इस अजीब बग से प्रभावित हुई हैं।

काम

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

इनपुट

आपका प्रोग्राम या तो स्टड या कमांड लाइन से एक फ़ाइल के लिए या पथ की सामग्री ले जाएगा।

उत्पादन

आपका प्रोग्राम या तो एक सत्य मान को स्टडआउट करने के लिए आउटपुट देगा यदि दिए गए फ़ाइल में एक अजीब बाइट या एक झूठा होता है अगर हर आठवां बिट शून्य है।

मानदंड

यह कोड गोल्फ, सबसे छोटा प्रोग्राम है जो टास्क जीतता है। फाइल स्रोत कोड में हर आठवें बिट पर एक वैध सबमिशन होना एक शून्य होना चाहिए। मैं आपके प्रस्तुतिकरण में आपके स्रोत कोड के बायनेरिज़ की एक प्रति शामिल करने की सलाह दूंगा।

मानक खामियां लागू होती हैं।

परीक्षण के मामलों

(ASCII एन्कोडिंग में) इनपुट:

"$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~

Output:
falsy

Input:
!#%')+-/13579;=?ACEGIKMOQSUWY[]_acegikmoqsuwy{}

Output:
truthy

Input:
LOREMIPSVMDOLORSITAMETCONSECTETVRADIPISCINGELITSEDDOEIVSMODTEMPORINCIDIDVNTVTLABOREETDOLOREMAGNAALIQVA
VTENIMADMINIMVENIAMQVISNOSTRVDEXERCITATIONVLLAMCOLABORISNISIVTALIQVIPEXEACOMMODOCONSEQVAT
DVISAVTEIRVREDOLORINREPREHENDERITINVOLVPTATEVELITESSECILLVMDOLOREEVFVGIATNVLLAPARIATVR
EXCEPTEVRSINTOCCAECATCVPIDATATNONPROIDENTSVNTINCVLPAQVIOFFICIADESERVNTMOLLITANIMIDESTLABORVM

Output:
truthy

टिप्स

• समझदारी से भाषा चुनें यह चुनौती हर भाषा में संभव नहीं हो सकती है

• यूनिक्स कमांड xxd -b <file name>किसी फ़ाइल के बायनेरिज़ को कंसोल (कुछ अतिरिक्त स्वरूपण सामग्री के साथ) प्रिंट करेगा

• आप ASCII के अलावा अन्य यूकोडिंग का उपयोग कर सकते हैं जैसे कि UTF-8 जब तक कि अन्य सभी नियमों का पालन किया जाता है

Comments

कुछ भाषाओं में मल्टी-लाइन इनपुट पढ़ने में कठिन समय होता है, लेकिन ऐसा नहीं है कि यह चुनौती आसान है, इसलिए यह ठीक है। : P क्या इनपुट खाली हो सकता है?

— डेनिस

!#%')+-/13579;=?ACEGIKMOQSUWY[]_acegikmoqsuwy{}जो भी परवाह करता है, के लिए प्रतिबंधित मुद्रण योग्य ASCII वर्ण हैं। अनुमत मुद्रण योग्य ASCII वर्ण हैं" $&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~

— पैट्रिक रॉबर्ट्स

काफी आसान है कि सभी स्वरों पर प्रतिबंध लगा दिया गया है ... ;-)

— ओवेरोडर

वेल्ड, बीएफ के लिए इस चुनौती में एक मौका है।

— TLW

यह भी ध्यान दें कि यदि आपके पास डॉस / विंडोज फाइल में कोई लाइन ब्रेक है, [CR]तो विषम बिट है। मैं उम्मीद कर रहा था कि व्हाइटस्पेस सुरक्षित था, लेकिन अफसोस [TAB]। यदि आप पुराने स्कूल जाना चाहते हैं, तो EBCDIC आपको तीन स्वर देता है।

— गिटारपिकर

Answer 1

जीएस 2 , 4 बाइट्स

dΦ("

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

Hexdump

0000000: 64 e8 28 22                                      d.("

यह काम किस प्रकार करता है

      (implicit) Read all input and push it on the stack.
 Φ    Map the previous token over all characters in the string:
d       Even; push 1 for even characters, 0 for odd ones.
  (   Take the minimum of the resulting list of Booleans.
   "  Negate the minimum.

Answer 2

Befunge, 36 बाइट्स

मुझे पता है कि यह एक पुराना प्रश्न है, लेकिन मैं इसे एक कोशिश देना चाहता था क्योंकि मुझे लगा कि यह बेफ़ुज में एक दिलचस्प चुनौती होगी।

>~:0`|
>20`:>$.@
|` " "<
*8*82<^p24*

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

1यदि इनपुट दूषित है (यानी एक विषम बाइट में), और 0यदि यह ठीक है , तो यह आउटपुट करता है ।

व्याख्या

समस्या यह है कि /(डिवाइड) या %(मोडुलो) कमांड तक पहुंच के बिना विषम बाइट्स का निर्धारण कैसे किया जाए । समाधान को मूल्य को 128 (अनुक्रम 28*8**) से गुणा करना था , फिर उस परिणाम को प्लेफील्ड में लिखें। कड़ाई से मानक दुभाषिया पर, प्लेफील्ड कोशिकाओं को 8 बिट मूल्यों पर हस्ताक्षरित किया जाता है, इसलिए एक विषम संख्या को 128 से गुणा करके -1 से छोटा कर दिया जाता है जबकि एक सम संख्या 0 हो जाती है।

दूसरी चाल खेलने के मैदान से -1 या 0 वापस पढ़ने के लिए थी g(प्राप्त) आदेश तक पहुंच के बिना । इसके लिए समाधान एक मौजूदा स्ट्रिंग अनुक्रम ( " ") के बीच में मान लिखना था , फिर उस क्रम को स्टैक पर संलग्न मान को धकेलने के लिए निष्पादित करें। उस बिंदु पर, बाइट की विषमता का निर्धारण एक सरल कम-से-शून्य परीक्षण है।

चर्चा के लायक एक अंतिम पहलू आउटपुट है। झूठे मामले में, हम >$.स्टैक पर सिर्फ एक मूल्य के साथ अनुक्रम तक पहुंचते हैं , इसलिए आउटपुट को शून्य $बनाते हुए स्टैक को साफ करता .है। सच्चे मामले में, हम पथ का अनुसरण करते हैं 20`:>$.। चूंकि दो शून्य से अधिक है, तुलना स्टैक पर एक को धक्का देती है, और :एक डुप्लिकेट प्रतिलिपि बनाती है ताकि $आउटपुट प्राप्त होने से पहले इसे ड्रॉप न करें।

Comments

यह देर से और नया हो सकता है लेकिन यह पहले से ही मेरा पसंदीदा उत्तर है।

— गेहूं जादूगर

@WheatWizard मैं केवल अब एहसास हुआ कि इस जवाब पर इतना ध्यान क्यों दिया जा रहा है। इनाम के लिए धन्यवाद!

— जेम्स होल्डरनेस

Answer 3

CJam (11 बाइट्स)

"r2":(~f&2b

ऑनलाइन डेमो

विषम बाइट्स से बचने के लिए चाल को दूर करना, यह कम हो जाता है

q1f&2b

जो इनपुट को पढ़ता है, एक बिटवाइंड और के साथ मैप 1करता है, और फिर एक आधार रूपांतरण करता है, और यदि सभी ANDs शून्य शून्य थे।

Comments

यह कोड दुखद है:(

— betseg

चूँकि इसमें केवल आधे वर्ण @ लेटसेग

— रोमन ग्रैफ़

Answer 4

प्रिंट करने योग्य .COM फ़ाइल, 100 बाइट्स

^FZjfDXVL\,LPXD$$4"PXD,lHPXDjJXDRDX@PXDjtXDH,nPXDj@XD4`@PXD,ZHPXD4,@PXD4:4"PXDH,\PXD4"PXD,hPXDRDX@P\

Hexdump:

00000000  5e 46 5a 6a 66 44 58 56  4c 5c 2c 4c 50 58 44 24  |^FZjfDXVL\,LPXD$|
00000010  24 34 22 50 58 44 2c 6c  48 50 58 44 6a 4a 58 44  |$4"PXD,lHPXDjJXD|
00000020  52 44 58 40 50 58 44 6a  74 58 44 48 2c 6e 50 58  |RDX@PXDjtXDH,nPX|
00000030  44 6a 40 58 44 34 60 40  50 58 44 2c 5a 48 50 58  |Dj@XD4`@PXD,ZHPX|
00000040  44 34 2c 40 50 58 44 34  3a 34 22 50 58 44 48 2c  |D4,@PXD4:4"PXDH,|
00000050  5c 50 58 44 34 22 50 58  44 2c 68 50 58 44 52 44  |\PXD4"PXD,hPXDRD|
00000060  58 40 50 5c                                       |X@P\|
00000064

स्रोत की एक बहुत ही ढीली परिभाषा का उपयोग करना , जिसे मानव द्वारा यथोचित रूप से टाइप किया जा सकता है, और EICAR स्टैंडर्ड एंटीवायरस टेस्ट फाइल से प्रेरित है ( Bugtraq में " आइएएसएआर टेस्ट फाइल के साथ मज़े करें" पर अधिक जानकारी )।

केवल मुद्रण योग्य गैर-विषम ASCII बाइट्स का उपयोग करना (साइड नोट: शब्दों को प्रभावित करने वाले opcodes विषम होते हैं, W बिट कुछ opcodes का lsb है), यह SP पर कोड का एक टुकड़ा बनाता है (जिसे हम आसानी से हमारे उत्पादन कोड से पहले सेट करते हैं) , और निष्पादन उत्पन्न कोड के माध्यम से गिरता है।

यह इस तथ्य का उपयोग करता है कि स्टैक शुरू में पीएसपी की शुरुआत के पास एक पॉइंटर होता है, और यह कि पीएसपी की शुरुआत में INT 20hनिर्देश ( https://stackoverflow.com/questions/12591673/ पर इस पर अधिक जानकारी ) शामिल है।

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

; we want to generate the following fragment of code

;  5E                pop si             ; zero SI (pop near pointer to start of PSP)
;  46                inc si             ; set SI to 1
; loop:
;  B406              mov ah,0x6         ; \
;  99                cwd                ; >
;  4A                dec dx             ; > D-2106--DLFF
;  CD21              int 0x21           ; > DIRECT CONSOLE INPUT
;  7405              jz end             ; > jump if no more input
;  40                inc ax             ; > lsb 0/1 odd/even
;  21C6              and si,ax          ; > zero SI on first odd byte
;  EBF3              jmp short loop     ; /
; end:
;  96                xchg ax,si         ; return code
;  B44C              mov ah,0x4c        ; D-214C
;  CD21              int 0x21           ; TERMINATE WITH RETURN CODE

 pop si             ; this two opcodes don't need to be encoded
 inc si

 pop dx             ; DX = 20CD (int 0x20 at start of PSP)
 push byte +0x66
 inc sp
 pop ax
 push si
 dec sp
 pop sp             ; SP = 0x0166
 sub al,0x4c        ; B4
 push ax
 pop ax
 inc sp
 and al,0x24
 xor al,0x22        ; 06
 push ax
 pop ax
 inc sp
 sub al,0x6c
 dec ax             ; 99
 push ax
 pop ax
 inc sp
 push byte +0x4a    ; 4A
 pop ax
 inc sp
 push dx            ; [20]CD
 inc sp
 pop ax
 inc ax             ; 21
 push ax
 pop ax
 inc sp
 push byte +0x74    ; 74
 pop ax
 inc sp
 dec ax
 sub al,0x6e        ; 05
 push ax
 pop ax
 inc sp
 push byte +0x40    ; 40
 pop ax
 inc sp
 xor al,0x60
 inc ax             ; 21
 push ax
 pop ax
 inc sp
 sub al,0x5a
 dec ax             ; C6
 push ax
 pop ax
 inc sp
 xor al,0x2c
 inc ax             ; EB
 push ax
 pop ax
 inc sp
 xor al,0x3a
 xor al,0x22        ; F3
 push ax
 pop ax
 inc sp
 dec ax
 sub al,0x5c        ; 96
 push ax
 pop ax
 inc sp
 xor al,0x22        ; B4
 push ax
 pop ax
 inc sp
 sub al,0x68        ; 4C
 push ax
 pop ax
 inc sp
 push dx            ; [20]CD
 inc sp
 pop ax
 inc ax
 push ax            ; 21
 pop sp             ; now get the stack out of the way

Answer 5

MATL , 7 बाइट्स

l$Z$2\z

स्रोत कोड UTF-8 एन्कोडिंग का उपयोग करता है। तो स्रोत बाइट्स (दशमलव में) हैं

108    36    90    36    50    92   122

इनपुट एक फ़ाइल नाम है, जिसे एकल उद्धरणों में संलग्न स्ट्रिंग के रूप में लिया जाता है। आउटपुट फ़ाइल में विषम बाइट्स की संख्या है, जो सत्य है iff nonzero।

व्याख्या

l    % Push a 1. We use `l` instead of `1` to have an even value
$    % Input specificication. This indicates that the next function takes 1 input
Z$   % Input file name implicitly, read its raw bytes and push them as an array of chars
2\   % Modulo 2
z    % Number of nonzero values. This gives the number of odd bytes. Implicitly display

Answer 6

CJam, 18 17 15 बाइट्स

"<rj":(((*~:|X&

मान लेता है कि लोकल लैटिन -1 में सेट है। इसे ऑनलाइन आज़माएं!

यह काम किस प्रकार करता है

सीधा समाधान इस प्रकार है।

q       e# Read all input from STDIN and push it as a string on the stack.
 :i     e# Cast each character to its code point.
   :|   e# Take the bitwise OR of all code points.
     X  e# Push 1.
      & e# Take the bitwise AND of the logical OR and 1.

दुर्भाग्य से, वर्ण qऔर iस्रोत कोड में दिखाई नहीं दे सकते। इस मुद्दे के आसपास काम करने के लिए, हम गतिशील रूप से उपरोक्त स्रोत कोड का हिस्सा बनाने जा रहे हैं, फिर स्ट्रिंग का मूल्यांकन करें।

"<rj"         e# Push that string on the stack.
     :(       e# Decrement all characters, pushing ";qi".
       (      e# Shift out the first character, pushing "qi" and ';'.
        (     e# Decrement ';' to push ':'.
         *    e# Join "qi" with separator ':', pushing "q:i". 
          ~   e# Evaluate the string "q:i", which behaves as explained before.

Answer 7

पायथ, 20 13 बाइट्स

vj0>LhZ.BRj.z

या बाइनरी में:

00000000: 01110110 01101010 00110000 00111110 01001100 01101000  vj0>Lh
00000006: 01011010 00101110 01000010 01010010 01101010 00101110  Z.BRj.
0000000c: 01111010                                               z

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

यह काम किस प्रकार करता है

           .z   all lines of input
          j     join on newline
       .BR      convert each character to binary
   >LhZ         take the last (0 + 1) characters of each binary string
 j0             join on 0
v               evaluate as an integer

परिणामी पूर्णांक सत्य है (नॉनजरो) यदि कोई बाइट विषम था।

Answer 8

जेली , 13 बाइट्स

24‘ịØBvF|\ṪBṪ

इनपुट को उद्धृत कमांड-लाइन तर्क के रूप में अपेक्षित करता है। इसे ऑनलाइन आज़माएं!

Hexdump

0000000: 32 34 fc d8 12 42 76 46 7c 5c ce 42 ce           24...BvF|\.B.

Comments

यदि यह विषम बाइट प्रतिबंध के लिए नहीं था, तो यह 6 बाइट्स पर समान रूप से काम करेगा O%2¬Ạ¬:।

— आउटगॉल्फ

Answer 9

रेटिना , 106 बाइट्स

प्रत्येक अनुमत वर्ण को निकालता है, फिर किसी भी शेष वर्ण से मेल खाता है। सत्य मूल्यों में पाए जाने वाले पात्रों की संख्या होगी। झूठे मूल्य होंगे 0।

`"| |\$|&|\(|\*|,|\.|0|2|4|6|8|:|<|>|@|B|D|F|H|J|L|N|P|R|T|V|X|Z|\\|\^|`|b|d|f|h|j|l|n|p|r|t|v|x|z|\||~

.

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

चूंकि .डिफ़ॉल्ट रूप से नई सूचियों से मेल नहीं खाता है, इसलिए मुझे उन्हें हटाने की आवश्यकता नहीं है।

Answer 10

पर्ल 5 + -p0, 136 बाइट्स

अन्य उत्तरों के समान, यह सभी बाइट्स को हटा देता है और किसी भी विषम बाइट्स (जो सत्य है) को छोड़ देता है।

tr<�
 "$&(*,.02468:<>@BDFHJLNPRTVXZ\\^`bdfhjlnprtvxz|~€‚„†ˆŠŒŽ’”–˜šœž ¢¤¦¨ª¬®°²´¶¸º¼¾ÀÂÄÆÈÊÌÎÐÒÔÖØÚÜÞàâäæèêìîðòôöøúüþ><>d

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

Comments

-0newlines के लिए कुछ भी नहीं करता है। यह केवल यह निर्धारित करता है कि इनपुट को कैसे विभाजित किया जाए , यह किसी भी वर्ण को नहीं हटाता है।

— अर्जन जोहान्सन

आउच यह बहुत बुरा है।

— अर्जन जोहान्सन

@ AboutrjanJohansen हाँ, आप इसके बारे में सही हैं -0, मैं पूरे ब्लॉक को एक गांठ के रूप में करना चाहता था, लेकिन यह बात नहीं होनी चाहिए, लेकिन मैं इस के आसपास नहीं जा सकता ... बहुत बुरा! मैं इन टिप्पणियों को साफ करूंगा। फिर भी आगाह करने के लिए धन्यवाद!

— डोम हेस्टिंग्स

तो यह अब काम करता है? मुझे लगता है कि मुझे कुछ टिप्पणियों को हटाना चाहिए। संपादन अंतर से, मुझे लगता है कि अब आप कार्यक्रम में हर बाइट को भी शामिल कर रहे हैं। मुझे लगता है कि आप स्पष्ट रूप से कहना चाह सकते हैं, क्योंकि उन सभी पात्रों को नहीं दिखाया गया है (कम से कम मेरे लिए)।

— अर्जन जोहान्सन

@ ØrjanJohansen हाँ! मुझे लगता है कि मुझे अब मिल गया है। मुझे नहीं लगता कि अन्य सभी उत्तर या तो सभी बाइट्स को कवर करते हैं, मुझे लगता है कि मुद्रण योग्य ASCII पर कुछ ही काम करते हैं। मुझे पूरा विश्वास है कि यह वही है जो अब मैं चाहता था। मैं वैसे भी आशा करता हूँ!

— डोम हेस्टिंग्स

Answer 11

जाप , 10 बाइट्स

ø0ôH² ®dZÄ

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

जाप का कोडपेज ISO-8859-1 है। कोड falseतब देता है जब खुद को एक स्ट्रिंग के रूप में दर्ज किया जाता है, इसलिए एक मान्य सबमिशन।

अनपैक्ड और यह कैसे काम करता है

Uø0ôHp2  mZ{ZdZ+1

Uø      Does input string contain any element in the following array...?
0ôHp2     Range of 0 to 32**2, inclusive
mZ{       Map...
ZdZ+1       Convert the number Z to a char having charcode 2*Z+1

न होना String.c(चार्ट प्राप्त करना, या चार्ट पर नक्शा) एक दर्द था, लेकिन सौभाग्य से वहाँ है Number.d( चार्ट को चार्ट में बदलें )।

यह बताता है कि जाप CJam, पायथ और जेली पर जीतता है :)

---

प्रतिबंध के बिना, 6 बाइट्स में इसे करने के कुछ तरीके हैं (सीजेम और जेली के साथ फिर से जाना):

®c uÃn

Unpacked: UmZ{Zc u} n

UmZ{   Map on each char...
Zc u     Convert to charcode modulo 2
}
n      Convert the resulting string to number

"000..000"संख्या 0 (मिथ्या) में परिवर्तित हो जाती है, चाहे वह कितनी भी लंबी हो। दूसरी ओर, कुछ भी जिसमें 1 शामिल है double, नॉनज़रो में बदल जाता है , या Infinityयदि यह बहुत बड़ा है (दोनों सत्य)।

¬d_c u

Unpacked: q dZ{Zc u

q    Convert to array of chars
dZ{  Is something true when mapped with...
Zc u   Convert each char to charcode modulo 2

अधिक सीधा दृष्टिकोण जो सीधे पैदावार trueया false।

या, 5 बाइट्स समाधान -dध्वज की मदद से भी संभव है :

¨c u

Unpacked: q mZ{Zc u

q     Convert to array of chars
mZ{   Map...
Zc u    Convert to charcode modulo 2

      Result is array of zeros and ones
-d    Apply .some() on the resulting array