Kod noktası toplamı quine


20

Bu sitedeki tüm zorlukları bayt sayısına veya karakterlerin kendilerine odaklanır. Bu farklı. Sorun, kaynağın kod noktası toplamı ile aynı bir kod noktası toplamı olan çıktı üreten bir program yazmaktır.

Bir kod noktası toplamı üretmek için:

  1. Programın karakter kümesindeki karakterlerin değerlerini bulun.
    Örneğin - FOOASCII'de: F= 70, O= 79, O= 79
  2. Hepsini bir araya getirin. ASCII'de
    kod noktası toplamı FOO: F+ O+ O= 70 + 79 + 79 = 228.

ASCII toplamı sorgusunun bir örneği, kaynak kodun ABCve çıkışın olması olabilir !!!!!!. Çünkü kaynağın ASCII değerlerinin toplamı ( A= 65, B= 66, C= 67, toplam = 198) çıktıdaki ASCII değerlerinin toplamı ile aynıdır ( != 33, 33 * 6 = 198) . BBBolduğu gibi geçerli bir çıktı olur cc.

kurallar

  • Programınız ters, karıştırılmış, hata veya başka bir tür "doğru" ayraç olmamalıdır. Ayrıntılı olarak açıklamak için: Çıktı kaynak ile aynı karakterleri içeriyorsa geçersizdir.
  • Programınız, derleyici / yorumlayıcıdan çıktı olarak herhangi bir hata / uyarı kullanamaz.
  • Programınızın kaynağı çıktıyla aynı kod sayfasını kullanmalıdır.
  • Programınız, bu meydan okumadan önce oluşturulmuş herhangi bir kod sayfasını kullanabilir.
  • Programınızın çıktısında satır beslemeleri ve sekmeler dışında yazdırılamaz karakterler (ör. ASCII 0 - 31 veya 127 üstü) bulunmamalıdır.
  • Standart boşluklar geçerlidir.
  • Kaynak ve / veya çıktının sonunda satır besleme varsa, kod noktası toplamına dahil edilmesi gerekir.
  • Derleyici bayrakları son bayt sayısına (skor) dahil edilmelidir, ancak kaynağın kod noktası toplamına dahil edilmez.
  • Çıktı / kaynak boş olmayabilir.

puanlama

Bayt sayısında en kısa cevap (kod noktası toplamı değil) kazanır. Lütfen bu başlık biçimi yanıtlarını kullanın:

# Jelly, 12 bytes, sum 56 (SBCS)

ASCII toplamlarını hesaplamak için bu aracı kullanabilirsiniz .

Referans

İşte bazı yararlı kod sayfası referansları.


Yorumlara izin veriliyor mu?
musicman523

@ musicman523 evet, sanırım.
MD XF

Uyarılara neden izin verme? Bunun gereksiz olduğunu hissediyorum.
Conor O'Brien

1
@ ConorO'Brien Uyarıların programın çıktısı olmasına izin verilmez, örneğin hata sorgusu yoktur. Sanırım bu belli değil, bir dakika.
MD XF

Bayraklarla ilgili politika nedir?
Okx

Yanıtlar:


24

Retina , 1 bayt, toplam = 58 (ASCII)

:

Bu :, girişteki ( 0 ) eşleşmelerini sayar , böylece yazdırır

0

Kod noktası :, 0ve LF (LF) olan 58 , 48 ve 10 (sırasıyla) ve 58 = 48 + 10 .

Çevrimiçi deneyin!


14

ArnoldC, 316 bayt, toplam 20992 (ASCII)

Yeterince eğlenceli.

IT'S SHOWTIME
HEY CHRISTMAS TREE s
YOU SET US UP 1
HEY CHRISTMAS TREE iaV
YOU SET US UP 0
STICK AROUND s
GET TO THE CHOPPER iaV
HERE IS MY INVITATION iaV
GET UP 8
ENOUGH TALK
TALK TO THE HAND "H"
GET TO THE CHOPPER s
HERE IS MY INVITATION 2048
LET OFF SOME STEAM BENNET iaV
ENOUGH TALK
CHILL
YOU HAVE BEEN TERMINATED

Ben kullanılan bu ve bu benim hesaplamaları yapmak için. Bana bir buçuk saat sürdü. Ama eğlenceli.

Çevrimiçi Deneyin!

Nasıl çalışır

STICK AROUND2048dizindeki süreleri döngüye alan bir döngüdür, iaVancak bu dizin adım adım ilerler 8. Yani 256döngüler, baskı Hve bir satır besleme var (72 + 10 = 82, 82 * 256 = 20992).

Bu hala ÇOK golf oynamak mümkün (diğer calcs bularak) ama her değişiklik yaptığınızda bayt toplamı ölçmek uzun ve sıkıcı.

Lütfen bana herhangi bir yerde yanılıp davranmadığımı söyle.


1
Gördüğüm en iyi ArnoldC cevabı.
Sihirli Ahtapot Urn

1
@MagicOctopusUrn teşekkürler xD bu dilde ilk denemem (¿¿??!?!? Hala olduğundan emin değilim)
V. Courtois

ABD başkanını taklit etmek istiyorsanız github.com/samshadwell/TrumpScript başka bir anlamsız "dil" dir.
Sihirli Ahtapot Urn

@MagicOctopusUrn iyi o zaman trumpscript bu meydan okuma yapıyor.
V. Courtois

1
Böylece ArnoldC unicode çıkışı destekledi ve 2 bayt daha tıraş etti. Ben ayrı ayrı yayınladım (teşekkür ile)
TemporalWolf


8

Python 2,11 bayt, toplam 838 (ASCII)

print 76**8

baskılar

1113034787454976

Çok zeki değil ama işe yarıyor

Çevrimiçi deneyin!


Harika ilk cevap; siteye hoşgeldiniz! ASCII toplamının doğru olduğunu doğrulayabilirim .
MD XF

Bu bir polygot, Groovy'de de çalışıyor, çok etkileyici.
Sihirli Ahtapot Urn

2
Harika bir yanıt, ancak çıktının eklenmesi gereken bir sondaki satır besleme yok mu?
Monica'yı

Bu aynı zamanda ruby'de de çalışıyor
Alexis Andersen

7

Jöle, 12 bayt, toplam 948 (SBCS)

Dedin:

Jöle, 12 bayt

o zaman Jelly, 12 bayt.

\
³³³: D +++

Jelly'i hiç bilmediğim için eğlenceliydi.

Nasıl çalışır

Hiçbir fikrim yok. Ama ³yığınında 100 sokuyor, ,bir dizi falan koyar yığını, :süre şeyi sıralamak olabilir Dlisteleri her (yok) son rakamının mektup ve +++ eğlence içindir. İlk ve son satır çıktıyı etkilemez :)

Çevrimiçi deneyin!

Kullanılan bu saymak.


4
"Ne yaptığını ³ve ne yaptığını biliyorum D, ama bana başka hiçbir şeyin WTF'den sorma - Bir Jelly cevabı verirsem bu benim yazım da olurdu.
Sihirli Ahtapot Urn

6

CJam / Japt / bc, 2 bayt, toplam 97 (ASCII)

A

Çevrimiçi Deneyin (CJam), Çevrimiçi Deneyin (Japt) (teşekkürler @shaggy),

BC sürümü komut satırında çalışır, ancak TIO'da çalışmaz.

çıktılar 10

Kaynak: A+ Space= 65 + 32 = 97

Çıktı: 1+ 0 = 49 + 48 = 97


Bu Japt'ta da çalışır.
Shaggy

Bunun M.Ö. Bildiğim tüm sürümler sondaki satırsonunda ısrar ediyor.
Dennis

@Dennis Sadece bcprogramı çalıştırdım ve daha sonra yazdım A . BC REPL demeli miyim?
geokavel



5

Bu yanıtlardan bazıları sizin için görünmeyecek karakterler içeriyor (özellikle ASCII 17), yerleşimlerini görmek için TIO bağlantılarını tıklayın.

Klein 100/110, 4 bayt, toplam 147

1
@

Çevrimiçi deneyin!

Çıktı:

1 1

Klein 201, 4 bayt, toplam 147

1
@

Çevrimiçi deneyin!

Çıktı:

1 1

Klein (herhangi bir topoloji), 5 bayt, toplam 221 (ASCII)

111@

Çevrimiçi deneyin!

Bu yazdırır

1 1 1


Bunu maviden çıkaran herkese bir teşekkür. Bana ikinci kez bakmamı sağladın ve şimdi biraz geliştirdim.
Post Rock Garf Hunter

@JoKing Bunu kendi cevabınız olarak gönderin diyebilirim. Oldukça akıllı ve yaptığım şeyde bir gelişme değil.
Post Rock Garf Hunter

4

Java 7, 88 85 bayt, toplam 7808 7617 7507 (ASCII)

class
w{public
static
void
main(String[]H){for(int
B=0;B<77;)System.out.print(B++);}}

Neredeyse kesinlikle golf oynayabilir. Sınıfın adı ve serbestçe değiştirebileceğimiz program arguments parametresinin adı gibi bazı yedek değişkenlerimiz olduğundan, ince ayar yapmak oldukça kolaydır.

Çevrimiçi test edin!

Çevrimiçi deneyin!


Java 8, 84 bayt, toplam 7434

Kredi Kevin Cruijssen'e gidiyor .

interface A{static void main(String[]G){for(int A=59;A-->0;)System.out.print("~");}}

Çevrimiçi test edin!

Çevrimiçi deneyin!


İyi iş, burada çalıştığını doğrulayabilirim . +1 olur ama oylarım biter.
MD XF

Java 8'e dönüştürmek için bunu kullanabilirsiniz: interface A{static void main(String[]G){for(int A=59;A-->0;)System.out.print("~");}}4 bayt ile golf yapmak ve toplam olarak 7434'e düşürmek için. Burada deneyin. ve Ortaya çıkan toplamı doğrulayın.
Kevin Cruijssen

1
@KevinCruijssen Cevabımı Java 7'de tutmak istiyorum, ancak Java 8 çözümünüzü cevabıma ekledim ve size kredi verdim. Kendinizi yayınlamayı tercih ederseniz cevabınızı benden kaldırabilirim.
Poke

3

Python 2,11 bayt, bayt toplamı 854 (ASCII)

Kod (sondaki satırsonu ile birlikte):

print'z'*7

Çıktı (sondaki yeni satır ile):

zzzzzzz

Çevrimiçi deneyin!


<code> bölümü neden çalışmıyor? Demek istediğim, yayınınızı düzenlediğimde önizlemede sondaki yeni satırı görebiliyorum, ancak yayında göremiyoruz.
V. Courtois

@ V.Courtois Tarayıcı farklılıkları (ör. Firefox'ta çalışır, Chrome'da çalışmaz). Bu yüzden satırsonunu açıkça işaret ettim.
Anders Kaseorg

tamam, bir sonraki adımda yapmam gereken bir şey gibi görünüyor. Peki ikinci bölüm neden iyi tepki veriyor? : o
V. Courtois


3

V , 2 bayt, Toplam 255 (Latin1)

á

Çevrimiçi deneyin!

HexDump:

00000000: 1ee1                                     ..

İlk karakter ctrl-^veya LATIN1 / ASCII kod noktasıdır 0x1E. İkinci karakter alt-aveya LATIN1 karakteridir 0xE1. Bu program çıkışları ÿolan, 0xFFLatin1.

O nasıl çalışır?

İlk karakter hareketsizdir. Program üzerinde hiçbir etkisi yoktur. İkinci karakter, tek karakter ekleme komutudur. Ancak hangi karakterin ekleneceğini belirtmiyoruz. Dolayısıyla, örtülü sonlar nedeniyle , V'nin programın bittiğini bildirmek için kullandığı karakteri ekler, ki bu olur 0xFF.


Toplam ve kod sayfası?
MD XF

@MDXF Hepsi bu benim açıklamamda ...
DJMcMayhem

3

05AB1E , 5 bayt, toplam 256 (05AB1E Base-255 Çeviri)

ΔTnon

Çevrimiçi deneyin!


Bu çıktılar: 1606938044258990275541962092341162602522202993782792835301376

Hangi, 05AB1E'nin kod sayfasını kullanarak: [1, 6, 0, 6, 9, 3, 8, 0, 4, 4, 2, 5, 8, 9, 9, 0, 2, 7, 5, 5, 4, 1, 9, 6, 2, 0, 9, 2, 3, 4, 1, 1, 6, 2, 6, 0, 2, 5, 2, 2, 2, 0, 2, 9, 9, 3, 7, 8, 2, 7, 9, 2, 8, 3, 5, 3, 0, 1, 3, 7, 6]

Hangisi: 256


Kod nerede: ΔTnon

Kod noktaları ile: [79, 29, 49, 50, 49]

Hangisi: 256


Bu hangi kod sayfası? Bu liste 1 değil 491 olarak listelenir .
Dennis

@Dennis 05AB1E işlevi için geri döndüğü ne olursa olsun gittim base(char, 255)(görünüşte yanlış) bir ve aynı olacağını varsaymıştım.
Sihirli Ahtapot Urn

3

Taksi , 543 bayt, toplam 47124 (ASCII)

374 is waiting at Starchild Numerology.Go to Starchild Numerology:w 1 l 2 r 1 l 1 l 2 l.Pickup a passenger going to The Underground.'~' is waiting at Writer's Depot.Go to Writer's Depot:w 1 r 1 l 1 r.Pickup a passenger going to Cyclone.Go to Cyclone:n.[a]Pickup a passenger going to Cyclone.Pickup a passenger going to Post Office.Go to Zoom Zoom:n.Go to Post Office:w 3 l 2 r 1 l.Go to The Underground:n 1 r 1 l.Switch to plan "R" if no one is waiting.Pickup a passenger going to The Underground.Go to Cyclone:n 3 l 2 l.Switch to plan "a".[R]

Çevrimiçi deneyin! ( Puan doğrulaması )

Çıktı 374 tild'dir ~.


3

Mathematica, 2 bayt, toplam = 101 (ASCII)

E + Boşluk e döndürür

E 

Mathematica, 2 bayt, toplam = 105 (ASCII)

benim için de işe yarıyor

I + Space i döndürür

I 


2

Brain-Flak (Rain-Flak) , 79 bayt

(((((((((((((((((((((((((((((((((()()()()){}){})))))))))))))))))))))))))))))))

Çevrimiçi deneyin!

Bu baskı 16ve yeni satır 31 kez.

Brain-Flak (BrainHack) , 55 bayt

(((((((((((((((((((((()()()()){}){})))))))))))))))))))#

Çevrimiçi deneyin!

Bu baskı 16ve bir boşluk 18 kez.

Ayrıca 55 bayt

((((((((((((((((((((((()()()){}){}))))))))))))))))))))

Çevrimiçi deneyin!

Bu baskılar 12bir boşlukla 19 kez izledi.


Toplam ve kod sayfası?
MD XF

@ MDXF Toplamları hatırlamıyorum ama hepsi ascii.
Rock Garf Hunter Post

İkinci ve üçüncü doğru görünmüyor (belirtilen dizenin 19 ve 20 katı yazdırılıyor), her ikisini de düzeltebilirsiniz, buraya bakın .
ბიმო


2

Cubix , 20 bayt, kod noktası toplamı 1505

OuOOQ++OOOOU@>!OOO<

Yazdırılamaz karakteri içeriyor DEL(ascii 127).

Qiter "(cubix'te bulunan en büyük sabit), daha sonra tekrar tekrar yazdırır ( O) 68veya 1505 olana 102kadar yeterli kez basar 68686868686868102102102102102; Biraz deneme yanılma yoluyla .(Cubix no-op ve ASCII 46) 81 puandan daha fazlasına ihtiyacım olduğunu fark ettim.DEL hala bir op-op değil.

Çevrimiçi deneyin!

Bir küp üzerinde:

    O u
    O O
Q + + O O O O U
@ > ! O O O  <
    . .
    . .

1
"Cubix" i gördüm ve " Cubically " ı okudum , sana bir ödül vermeden önce kendimi yakalamak zorundaydım ... çekti +1
MD XF

@MDXF mücadelesi kabul edildi
Giuseppe


2

dc, 7 bayt, toplam 720 (ASCII)

[my]fff

(91 + 109 + 121 + 93 * 3 + (102) = 720)

Çıktılar:

my
my
my

(= 720 (109 + 121 + 10) x 3)


2

Havuç , 4 bayt, toplam = 279 (ASCII)

]^*2

Çevrimiçi deneyin!

Baskılar ]]].


Bu konuda benim önümde. Doğru meblağ elde etmeye hiç yakın değildim.
TheLethalCoder

@TheLethalCoder ASCII toplamı ^*3187 idi, bu yüzden çözmeyi denedim x+187=4x, ama bu tamsayı çözümü ile sonuçlandı. Ben devam etti Yani ^*2, hangi beni var 186+x=3xbana verdi xolarak 93kod noktası, ]. Tüm yaptığım buydu :)
Kritixi Lithos

Ah akıllı bir şekilde yapıyor :)
TheLethalCoder

Sanırım bu ¹^*1da işe yarıyor. Eğer benim matematik doğru yapsaydım. Bu unicode değeri utf8 olmasa da.
TheLethalCoder

@TheLethalCoder Sanırım kodlamaya bağlıdır, çünkü Carrot varsayılan olarak ASCII kullanıyor.
Kritixi Lithos

2

Kübik olarak , 3 bayt, toplam = 105 (ASCII)

%4

Üçüncü bayt, kod noktası 16 olan DLE'dir , bu nedenle kaynak kodun kod noktası toplamı 37 + 52 + 16 = 105'tir.
.

Program yazdırılıyor

36

kod noktası toplamı 51 + 54 = 105 olan .

Çevrimiçi deneyin!


* DLE uygular * üzgünüm, geçersiz. : P +1
MD XF

Burada başka bir Kübik çözüm görmedim. Tüh!
TehPers

2

Cubix , 11 bayt, bayt toplamı 954 (ASCII)

Kod:

vOw~N(!@O^|

Çıktı:

998877665544332211

Burada doğrulandı!

Çevrimiçi deneyin!

Cubified:

    v O
    w ~
N ( ! @ O ^ | .
. . . . . . . .
    . .
    . .
  • N yığını 10 ile ilklendirir
  • (! doğruluk için azaltma ve test etme
    • @ sıfır duraklamada
  • O^O çıkış akım numarası üst yüze yönlendirir ve tekrar çıkar
  • vw(döngüyü tekrar başlatmak için azalmaya geri yönlendir

Koşmasını izle


1

Kabuk , 4 bayt, toplam 334 ( Kabuk SBCS )

up63

Çıktı:

[3,7]

Bir rakam değeri verilir 0x3?(ki burada ?da bu dijitin anlamına gelir) ve u, p, [, ], ,değerlere sahip 0x75, 0x70, 0x5b, 0x5d, 0x2c- bu şekilde toplamları:

0x75 + 0x70 + 0x36 + 0x33        = 0x14e
0x5b + 0x33 + 0x2c + 0x37 + 0x5d = 0x14e

Çevrimiçi deneyin!


1

JavaScript (ES6), 6 bayt, toplam = 385 (ASCII)

Y=>1E7

Çıktılar 10000000. Gibi 6 baytlık cevaplar da var h=>1e8. Bu kod noktası sayacını deneyin:

<input oninput=o.textContent=[...this.value].reduce(function(s,c){return(s+c.charCodeAt())},0)><pre id=o>0


1

cQuents , 5 bayt, toplam 238 (ASCII)

#3::$

Outputs 1,2,3, or in cQuents terms, prints the first three terms of the sequence 1,2,3,4,5,6....

Now listen. This was, literally, the first program I tried. The reason I tried it was because this was the program I used for Output with the same length as code. And it freaking worked.

Try it online!


1

Gaia, 4 bytes, sum 176 (SBCS)

6 5%

Explanation

In Gaia's codepage, linefeed has a code point of x7F (127 in decimal). Printable ASCII characters have the same code point as in ASCII.

This computes 6 modulo 5, which is 1, and prints 1 with a trailing linefeed.

Byte values of the characters in the codepage (in decimal):

6 5%: 54 + 32 + 53 + 37 = 176

1: 49 + 127 (linefeed) = 176


1

Trumpscript, 131 bytes, sum 10600 (ASCII)

They wants to make war 110000000;make dark 10000000;as long as,dark less war;:make dark,dark plus 1000000;say "00"!america is great

Is this real life?

Check with this.

Thanks @MagicOctopusUrn for telling me that exists.


Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.