चुनौती

हार्ट शेप बनाएं

यहाँ छवि विवरण दर्ज करें

... ASCII कला के रूप में!

आपकी कला को बिल्कुल मेरा जैसा नहीं देखना है, बल्कि इसे हार्ट शेप की तरह देखना है।

दिल के अंदर के हिस्से में कम से कम 20 बार "लव" शब्द होना चाहिए

नियम

कार्यक्रम को कंसोल पर कला लिखना होगा।
सबसे छोटा कोड (बाइट्स में, कोई भी भाषा) जीतता है।

विजेता को 14 फरवरी को वैलेंटाइन डे पर चुना जाएगा

code-golf ascii-art

— कंप्यूटर का कीड़ा
स्रोत

2

मुझे यह संदर्भ-विशिष्ट आस्की-कला की प्रवृत्ति पसंद है। :)

— एडम मैरास

3

निष्पक्ष कोड-गोल्फ होने के लिए मुझे लगता है कि आपको आउटपुट की अधिक प्रतिबंधात्मक परिभाषा देनी चाहिए।

— हावर्ड

3

मैं किसी के लिए जैविक रूप से सटीक दिखने वाले दिल को प्रस्तुत करने की प्रतीक्षा कर रहा हूं। जो कोई भी ऐसा करता है उसे तुरंत मुझसे +1 मिल जाता है।

— जो

2

@JoeStead वैलेंटाइन्स डे की रोमांटिक विशेषताओं के बारे में आपकी धारणाएँ संदेहास्पद लगती हैं:D

— VisioN

3

यह बहुत रूप में एक बेहतर किया गया है जाएगाpopularity-contest

— SztupY

53

जावास्क्रिप्ट [160 बाइट्स]

निम्नलिखित कोड 160 बाइट्स के बिना लगता है ।

   ('l2v2l6v2'+  'e1l1v3l2'+
 'v3e1v7e1v7e1v7e1l2v6e1l4v5'+
'e1l6v4e1l8v3e1l7l3v2e1l9l3v1')
 .replace(/[lve]\d/g,function
   (c){return Array(-~c[1]).
      join({l:' ',v:'Love'
         ,e:'\n'}[c[0
             ]])})

_{बस इसे ब्राउज़र कंसोल (जैसे फ़ायरबग या क्रोम देव टूल्स) में चलाएं।}

— दृष्टि
स्रोत

2

ऑब्जेक्ट के बजाय ऐरे /[lve]\d/को बदलने /../और उपयोग ['','Love','\n']करने से कुल 10 बाइट्स बचेंगे , जो कुल 150 बाइट्स की ओर ले जाएंगे, लेकिन स्रोत का दिल अब :)

— उतना

3

!!!शानदार कार्य!!!

— SpYk3HH

1

वसा तीर फ़ंक्शन का उपयोग करने से बहुत सारे बाइट्स बचेंगे। function(c){returnद्वारा प्रतिस्थापित करें c=>और निकालें }। आपको एक छोटा संस्करण पोस्ट करना चाहिए!

— फ्लोरेंट

2

सं। EcmaScript 6.

— फ्लोरेंट

1

@ फ़्लोरेंट आह! जहाँ तक मैं जानता हूँ कि ECMAScript 6 अभी भी प्रायोगिक है और दुर्भाग्य से यह परीक्षण करना अभी भी बहुत कठिन है कि यह कैसे काम करता है। मान लें कि मेरा कोड ECMAScript 5 संगत है :)लेकिन बाहर इशारा करने के लिए धन्यवाद! मुझे उम्मीद है कि जल्द ही जावास्क्रिप्ट गोल्फ मामलों में पर्ल और पायथन के साथ प्रतिस्पर्धा करेगा और हर कोई इसे आज़माने में सक्षम होगा।

— VisioN

27

GolfScript: 62 57 54 अक्षर

4 1.5\.5,+{.5\-\2*\0.}/]4/{[32'LOVE']2*]zip{(*}%''+}%~

आउटपुट:

    LOVE    LOVE
  LOVELOVELOVELOVE
LOVELOVELOVELOVELOVE
  LOVELOVELOVELOVE
    LOVELOVELOVE
      LOVELOVE
        LOVE

या, कुछ अतिरिक्त प्रेम के लिए, और व्हॉट्सएप के महत्व का अपमानजनक अपमान (84 वर्णों के लिए):

    5 1       .8\
  .)...5   ,{.5\-\3
 *\0.}/]4 /{[32[9829
  :x.'LOVE'\]''+]2
    *[@;]zip{(*}%
     ''+}%~' '15
        *x[]+
          +

आउटपुट:

     ♥LOVE♥        ♥LOVE♥
  ♥LOVE♥♥LOVE♥  ♥LOVE♥♥LOVE♥
♥LOVE♥♥LOVE♥♥LOVE♥♥LOVE♥♥LOVE♥
   ♥LOVE♥♥LOVE♥♥LOVE♥♥LOVE♥
      ♥LOVE♥♥LOVE♥♥LOVE♥
         ♥LOVE♥♥LOVE♥
            ♥LOVE♥
               ♥

— बेन रीच
स्रोत

16

सी - 183 बाइट्स

विजेता नहीं, बल्कि एक संपूर्ण प्रेम है। क्या आप यह पता लगा सकते हैं कि यह कैसे काम करता है?

#include <stdio.h>
#define C(a) ((a)*(a)*(a))
int main(){int x,y;for(y=9;y>-6;y--){for(x=-8;x<9;x++)putchar(C(x*x+y*y-25)<25*x*x*y*y*y?"LOVE"[(x+10)%4]:'-');putchar('\n');}return 0;}

आउटपुट:

-----------------
--LOVE-----OVEL--
-ELOVEL---LOVELO-
-ELOVELO-ELOVELO-
-ELOVELO-ELOVELO-
-ELOVELOVELOVELO-
--LOVELOVELOVEL--
--LOVELOVELOVEL--
---OVELOVELOVE---
----VELOVELOV----
----VELOVELOV----
------LOVEL------
-------OVE-------
--------V--------
-----------------

6

Vनीचे की तरफ अच्छा काम ।

— लूजर

1

हार्ट कर्व का अच्छा उपयोग! आप अभी भी कुछ पात्रों को बचा सकते हैं और 153 पर उतर सकते हैं (मैंने एक जोड़ा बाइट की कीमत पर आउटपुट को थोड़ा बदल दिया है): ideone.com/ELnkEE

— reima

बहुत ही शांत। मैं वास्तव में बाइट निचोड़ पर महान नहीं रहा। आपको इसे अपने रूप में पोस्ट करना चाहिए C! हार्ट वक्र सार्वजनिक डोमेन है :)

15

पायथन, 210 वर्ण

बेशक, यह नहीं जीतेगा क्योंकि यह एक कोड गोल्फ है, लेकिन मैं रचनात्मक होना चाहता था और मैंने अपने स्रोत कोड में शब्द का उपयोग नहीं किया है Love:

import gzip
print(gzip.decompress(b'\x1f\x8b\x08\x00\x95\x10\xe0R\x02\xffSPP\xf0\xc9/KU\x80\x03\x10\x8f\x0bB\xa1c.l\x82dJ\xe0\xb0\x01\xe6\x02\x0cATa.T\xf7\x02\x00\xd9\x91g\x05\xc5\x00\x00\x00').decode('ascii'))

यह आउटपुट है:

   Love          Love
  LoveLoveLoveLoveLove
LoveLoveLoveLoveLoveLove
LoveLoveLoveLoveLoveLove
LoveLoveLoveLoveLoveLove
  LoveLoveLoveLoveLove
    LoveLoveLoveLove
      LoveLoveLove
          Love

— ProgramFOX
स्रोत

मुझे आपका दृष्टिकोण ^ _ ^

— नवीन

1

Gzip का उपयोग करना वास्तव में रचनात्मक नहीं है ...

— nyuszika7h

15

स्काला - 273 वर्ण

खैर, मैं निश्चित रूप से संक्षिप्तता के लिए जीतने की उम्मीद नहीं करता, लेकिन मैं यह देखना चाहता था कि क्या मैं स्काला में कर सकता हूं। एक होशियार गोल्फ खिलाड़ी शायद कई बाइट्स काट सकता है, लेकिन यहाँ मुझे क्या मिला:

type D=Double;def w(x:D,y:D,a:D)={val(i,j)=(x-a,y-8);Math.sqrt(i*i+j*j)< 8};val l:Stream[Char]="love".toStream#:::l;val c=l.toIterator;def p(b:Boolean)=print(if(b)c.next else' ');for(y<-0 to 24){for(x<-0 to 32){if(y>7)p((16-x).abs< 24-y)else p(w(x,y,8)|w(x,y,24))};println}

या, यदि आप पसंद करते हैं (अभी भी मान्य कोड!)

  type D=      Double 
def w(x:D,    y:D,a:D)=
{val(i,j)=   (x-a,y -8);
Math.sqrt(i* i+j*j)< 8};
val l : Stream [Char] =
"love".toStream#:::l;val
 c= l .toIterator;def p
  (b:Boolean) =print(if
   (b)c.next else' ');
    for (y <-0 to 24) 
     { for (x<- 0 to
      32){if(y >7)
        p((16-x).
          abs < 
          24-y)
         else
        p(w
       (x,
       y,
      8
      )
      |
      w(
       x,
         y,
           24)
              )}
                 println}

स्क्रीन के दो अर्धवृत्त और एक त्रिकोण को बाहर निकालता है, जिससे दिल का एक सुंदर सभ्य मुखड़ा बनता है। दिल की तस्वीर। शशाल आउटपुट

स्कैला दुभाषिया के साथ चलाने की आवश्यकता है (संकलन के लिए कुछ अतिरिक्त क्रॉफ्ट को जोड़ने की आवश्यकता होगी object Main { def main(args: Array[String]) = { ... } }और मैं सिर्फ ह्विन हूं 'कोई नहीं।

— KChaloux
स्रोत

2

@epidemian मैं शायद इसे एक सामान्य दिल की तरह देख सकता था, लेकिन मैंने कोड के आकार को गलत बताया और बहुत आलसी था। इसलिए मैंने इसके बजाय एक पूंछ बनाई। मुझे यह दिखावा करना पसंद है कि यह एक गुब्बारा है: पी

— KChaloux

12

अजगर 2, 117

loveक्षैतिज रूप से 20 एस प्रिंट करता है ।

x="love";print"   x    x\nx xx x\nx   x   x".replace("x",x)
for i in range(5):print" "*i+x+" "*(9-i*2),x
print" "*6,x

उत्पादन:

   love    love
love lovelove love
love   love   love
love          love
 love        love
  love      love
   love    love
    love  love
       love

— क्या मै था
स्रोत

कुछ वर्णों को छोड़ दें: दूसरी पंक्ति के स्ट्रिंग में एकल अक्षर प्लेसहोल्डर का उपयोग replace()करें; 3 लाइन में printपरिवर्तन एक +करने के लिए ,और 9 के साथ 10; अंतिम पंक्ति में चर x के मान का उपयोग करें। pastebin.com/i1TSEZfE

— मैनटवर्क

@manatwork धन्यवाद। शरीर को अब नीचे 121 वर्णों तक संपादित करें :-)

— वासि

क्या आप loveदायीं तरफ तीन ऊर्ध्वाधर s गिन रहे हैं जो आपको क्षैतिज loves को कंपित करके मिला है ?

— जोशुआ टेलर

@JoshuaTaylor धन्यवाद, मैंने उन लंबवत सूचनाओं पर ध्यान नहीं दिया love। जिनमे ये loveगिनती 23 होगी: D

— Wasi

11

पर्ल - 36 बाइट्स

  open    0;s
/\S.?/Lo.ve
  /ge,print
    , , for
        <0>

आउटपुट:

  LoveLove    LoveLove
LoveLoveLoveLoveLoveLove
  LoveLoveLoveLoveLove
    LoveLoveLoveLove
        LoveLove

यह थोड़ा धोखा है; यह Loveस्रोत कोड में हर दो गैर-सफेद अंतरिक्ष वर्णों के लिए एक बार प्रिंट करेगा । दिल का आकार बनाने के लिए आवश्यक व्हाट्सएप के साथ, कोड लंबाई में 61 बाइट्स है: चपटा यह केवल 36 बाइट्स है:

open 0;s/\S.?/Lo.ve/ge,print,,for<0>

पर्ल - 60 बाइट्स

print$"x(15&ord),Love,$/x/\D/for'3h112a05e0n1l2j4f6b9'=~/./g

निम्नलिखित आउटपुट:

   Love        Love
 Love Love  Love Love
Love     Love     Love
Love              Love
 Love            Love
  Love          Love
    Love      Love
      Love  Love
         Love

बिल्कुल 20 Love।

अनुरोध द्वारा संक्षिप्त व्याख्या

for'3h112a05e0n1l2j4f6b9'=~/./g
यह प्रिंट स्टेटमेंट को संशोधित करता है, और प्रत्येक वर्ण पर पुनरावृत्त करता है। रेगेक्स /./स्पष्ट रूप से एक एकल चरित्र से मेल खाता है, और सूची के संदर्भ /./gमें स्ट्रिंग में सभी पात्रों की एक सूची लौटाएगा। यह लिखने के लिए एक अधिक सामान्य, लेकिन थोड़ा लंबा रास्ता होगा for split//,'3h112a05e0n1l2j4f6b9'।
print$"x(15&ord),Love,$/x/\D/
विशेष चर $"अंतरिक्ष में चूकता है। Ord हर किरदार की inal मूल्य 16 दुकानों आधुनिक संख्या प्रत्येक के बीच की जरूरत रिक्त स्थान Loveस्ट्रिंग पुनरावृत्ति के माध्यम से ( x)। अंत में, यदि चरित्र कोई अंक ( /\D/) नहीं है, तो मूल्य $/, जिसे "\n"समाप्त करने के लिए डिफॉल्ट होता है।

— Primo
स्रोत

आपका दूसरा कार्यक्रम एक त्रुटि फेंकता है: "वाक्यविन्यास त्रुटि -e लाइन 1, निकट" / \ D / for3h112a05e0n1l2j4f6b9 " (कमांड लाइन का उपयोग करने से आह्वान करने की कोशिश की गई -e)

— Tomas

कमांड लाइन से, आपको इसके $"साथ बदलना होगा ' ':perl -e "print' 'x(15&ord),Love,$/x/\D/for'3h112a05e0n1l2j4f6b9'=~/./g"

— प्रिमो

ठीक है, अच्छी चाल!

— टॉमस

36 बाइट संस्करण वास्तव में आवश्यक आउटपुट को प्रिंट नहीं करता है

— टोबिया

1

@ सिंबाबेक ने किया।

— प्रिमो

6

वोल्फ्राम भाषा (गणितज्ञ) - 111

i=0;MatrixForm@Table[If[(x^2+y^2-200)^3+10x^2y^3<0,{"L","O","V","E"}[[i++~Mod~4+1]],""],{y,-20,20},{x,-20,20}]

यहाँ छवि विवरण दर्ज करें

— बेंत की मार
स्रोत

5

जावास्क्रिप्ट - 147 141 137 137 अक्षर

with(Math){s="";for(k=800;k--;)
x=abs(1.25-k%40/16),y=k/320-1.25,
s+=.75>x+abs(y)|.5>sqrt(x*x-x+y*y-y+.5)
?"Love"[k%4]:39==k%40?"\n":" "}s

नोट: मैंने एक और उत्तर पोस्ट किया है, लेकिन यह एक अलग दृष्टिकोण का उपयोग करता है और दिल का एक अलग आकार होता है।

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

यहाँ छवि विवरण दर्ज करें

सबसे पहले, मैं एक हीरे को प्रस्तुत करता हूं (समीकरण है |x|+|y|) फिर, मैं शीर्ष पर दो मंडलियों को जोड़ता हूं। एक्स मानों को प्रतिबिंबित किया जाता है (इसलिए केवल एक सर्कल की आवश्यकता है)।

— tigrou
स्रोत

1

आप 0पहले वाले फ़्लोटिंग नंबरों को हटाकर और Math.absकिसी वैरिएबल को असाइन करके अपने कोड को छोटा कर सकते हैं ।

— फ्लोरेंट

इसके अलावा आप बाइट्स के एक और जोड़े को बचाने के लिए दो बेकार अर्धविरामों को समाप्त करना चाहते हैं।

— VisioN

4

स्किलिंग - 28 चार्ट / 56 बाइट्स

겤뙡늆굚넰밌各긂밀❷거雙復냄뭖끐❸갰右거雙復겠⓸걠右復終

आउटपुट:

    LOVE    LOVE
  LOVELOVELOVELOVE
LOVELOVELOVELOVELOVE
  LOVELOVELOVELOVE
    LOVELOVELOVE
      LOVELOVE
        LOVE

— Timwi
स्रोत

(या 24 वर्णों में: 긢꼙겱딧꽔밂各감啃갰啃긂밀⓶復냄뭖끐⓷復겠⓸復終- लेकिन यह 啃निर्देश का उपयोग करता है , जिसे मैंने इस चुनौती के पोस्ट होने के बाद जोड़ा था, इसलिए इसकी गिनती नहीं है।)

— टिमवी

यह 84 बाइट्स है।

— २१:०२ बजे टोबिंक करें

नहीं, यह यूटीएफ -16 के रूप में 56 बाइट्स है।

— टिमवी

@ मेरे लिए टिम्मी यह 58 बाइट्स मापता है। अजीब।

— प्रिमो

@primo: यह 56 बाइट्स है। यदि आपने इसे विंडोज नोटपैड में "यूनिकोड" के रूप में सहेजा है, तो आपको एक 58 बाइट फ़ाइल मिलती है जिसमें यूटीएफ -16 बीओएम (2 बाइट्स) और 56-बाइट प्रोग्राम शामिल हैं।

— टिमवी

4

जावास्क्रिप्ट - 136 121 115 113 113 अक्षर

s="";for(k=800;k--;)
x=1.25-k%40/16,y=k/320-1.25,
s+=Math.pow(x*x+y*y-1,3)<x*x*y*y*y
?"Love"[k%4]:39==k%40?"\n":" ";s

चलाने के लिए: ब्राउज़र कंसोल में कॉपी पेस्ट (जैसे: क्रोम या फ़ायरफ़ॉक्स)

— tigrou
स्रोत

["L","o","v","e"] => "Love"11 बाइट्स बचाएगा।

— VisioN

निश्चित :)। सुझाव के लिए धन्यवाद।

— टाइगरो

3

C, 116 वर्ण

(मुझे नहीं पता कि यह दिल के आकार का है ... आउटपुट का उत्पादन करने के लिए तीन हलकों के अंदर भरता है।)

i = 192, x, y;
main(t) {
  for (; i--; putchar(i % 16? y : 10))
    y = i / 16 - 8,
    x = i % 16 - 8,
    t = x*x + y*y,
    y = " Levo"[ (t < 64 & y < 0 | t < 8*abs(x)) * (i % 4 + 1) ];
}

आउटपुट:

 veLov   veLov 
oveLove oveLove
oveLove oveLove
oveLove oveLove
oveLoveLoveLove
oveLoveLoveLove
oveLoveLoveLove
 veLoveLoveLov 
 veLoveLoveLov 
  eLoveLoveLo  
    oveLove

गोल्फ प्रक्रिया में इससे पहले, निरंतर अभिव्यक्तियों को बदलने Mसे पहले ( आकार को समायोजित करने के लिए परिवर्तन ):

#define M 4

i = 3*M * 4*M, x, y;
main(t) {
  for (; i--; putchar(i % (4*M)? x : '\n')) {
    y = i / (4*M) - 2*M, x = i % (4*M) - 2*M,
    t = x*x + y*y, x = " Levo"[ (t < 4*M*M & y < 0 | t < abs(2*M*x)) * (1 + i % 4) ];
  }
}

मैंने भी ऐसा करने के लिए मजबूर महसूस किया। : पी

#define F for
#define M main

 /*##     ####
####*/i  =192,x
,y;M(t) {F(;i--
;putchar(i %16?
y:10))y=i/16-8,
x=i%16-8,t=x*x+
y*y,y=" Levo"[(
 t<64&y<0|t<8*
  abs(x))*(i%
    4+1)];}

— जुगनू
स्रोत

इसे संकलित करने के लिए आपको किस प्रकार के रहस्यवादी विकल्प / कंपाइलर का उपयोग करना चाहिए? All variables in C are typed en.wikibooks.org/wiki/C_Programming/Variables

— मिका

1

@ मिका ग्लोबल वैरिएबल को स्पष्ट रूप से घोषित किया जाता है int, पूर्व-एएनएसआई-सी से उधार ली गई एक विरासत सुविधा। यह मेरे लिए clang foo.cया gcc -std=c99 foo.c(हालांकि, बहुत सारी चेतावनियों के साथ) ठीक है। क्या आपको कोई त्रुटि मिलती है? मुझे पता नहीं है कि मैं अच्छी तरह से नहीं जानता कि मैं अपरिभाषित व्यवहार पर निर्भर नहीं हूं, लेकिन मेरा मानना है कि मैं ऐसा नहीं करता।

— फायरफली

1

ह्म, जाहिर है यह किसी भी मानक द्वारा अनुमोदित नहीं है - मुझे लगा कि यह कम से कम C90 में कानूनी था, लेकिन अफसोस, यह नहीं है। तो यह पूर्व-एएनएसआई-सी से केवल एक विरासत की चीज बची है जो कि अधिकांश संकलक वैसे भी समर्थन करते हैं (देखें [यह फुटनोट] ( en.wikipedia.org/wiki/… विकिपीडिया पर))।

— फायरफली

3

रूबी, 47, या गोल्फस्क्रिप्ट, 41

बोरिंग जवाब।

puts" Love  Love
"+"LoveLoveLove
"*6+"    Love"

गोल्फस्क्रिप्ट संस्करण:

" Love  Love
""LoveLoveLove
"6*"    Love"

आउटपुट:

 Love  Love
LoveLoveLove
LoveLoveLove
LoveLoveLove
LoveLoveLove
LoveLoveLove
LoveLoveLove
    Love

— Doorknob
स्रोत

32

लोल, क्या बदसूरत दिल है! : डी

— अब्बास

3

रूबी - 113 वर्ण

l=->a,b=28,c=1{puts (("Love"*a).center(b))*c};l.call(2,14,2);l.call(3,14,2);[7,7,7,6,5,4,3,2,1].map{|x|l.call(x)}

आउटपुट:

1.9.3p448 :811 > l=->a,b=28,c=1{puts (("Love"*a).center(b))*c};l.call(2,14,2);l.call(3,14,2);[7,7,7,6,5,4,3,2,1].map{|x|l.call(x)}
   LoveLove      LoveLove   
 LoveLoveLove  LoveLoveLove 
LoveLoveLoveLoveLoveLoveLove
LoveLoveLoveLoveLoveLoveLove
LoveLoveLoveLoveLoveLoveLove
  LoveLoveLoveLoveLoveLove  
    LoveLoveLoveLoveLove    
      LoveLoveLoveLove      
        LoveLoveLove        
          LoveLove          
            Love

अधिक स्पष्ट होना

यहाँ छवि विवरण दर्ज करें

— शिव
स्रोत

3

पर्ल - 159 अक्षर

बड़े पैमाने पर गोल्फ नहीं ...

printf"%-14s%14s\n",$_,~~reverse for map{($.,$i,$c)=split',';($"x$i).($.x$c)}qw(L,5,3 o,3,8 v,1,11 e,0,13 L,1,13 o,3,11 v,5,9 e,7,7 L,8,6 o,10,4 v,12,2 e,13,1)

यहाँ थोड़ा बेहतर पठनीयता के लिए जोड़ा व्हाट्सएप के साथ ही है ...

printf "%-14s%14s\n", $_, ~~reverse
   for map {
      ($.,$i,$c) = split',';
      ($"x$i).($.x$c)
   } qw(
      L,5,3
      o,3,8
      v,1,11
      e,0,13
      L,1,13
      o,3,11
      v,5,9
      e,7,7
      L,8,6
      o,10,4
      v,12,2
      e,13,1
   )

आउटपुट है ...

     LLL            LLL     
   oooooooo      oooooooo   
 vvvvvvvvvvv    vvvvvvvvvvv 
eeeeeeeeeeeee  eeeeeeeeeeeee
 LLLLLLLLLLLLLLLLLLLLLLLLLL 
   oooooooooooooooooooooo   
     vvvvvvvvvvvvvvvvvv     
       eeeeeeeeeeeeee       
        LLLLLLLLLLLL        
          oooooooo          
            vvvv            
             ee

पूरा शब्द "लव" 22 बार, (कई बार) और कई भाग के साथ निहित है।

— tobyink
स्रोत

रचनात्मकता के लिए +1। मैंने इसे ऊर्ध्वाधर बनाने के लिए नहीं सोचा होगा।

— एंड्रयू गे

3

एपीएल, 36 चार्ट / बाइट्स *

7 16⍴∊'  ' 'Love'[20400948744⊤⍨36/2]

के साथ मूल्यांकन किया जाना चाहिए ⎕IO←0(डिफ़ॉल्ट कार्यान्वयन द्वारा भिन्न होता है)

* यदि आवश्यक हो तो एपीएल को एकल-बाइट चारसेट में लिखा जा सकता है (जब तक आप किसी अन्य यूनिकोड वर्ण का उपयोग नहीं करते हैं) तो गिनती के उद्देश्य के लिए एन वर्ण = एन बाइट्स।

आउटपुट:

बिल्कुल 20 "प्यार" शामिल हैं

  Love    Love
LoveLoveLoveLove
LoveLoveLoveLove
LoveLoveLoveLove
  LoveLoveLove
    LoveLove
      Love

— Tobia
स्रोत

2

विस्तारित ब्रेनफैक : 193 (गैर आवश्यक व्हाट्सएप के बिना गिना गया)

    {h]<[<]<        [<}>>-->
-3>->-3>+9>+9>+>-7>+>->-5>+>->->
-3>+>+>>4->->6+>5+>>4+[-<4+>]<[-
<4+<5+<5+<5+4>&h++]>[-[-[<10+.[-]
    >-[[-]3<[-]]>[<4+3<[[->>
    +<<]<]]]>[[>]>[.>&h]<<++
        >]]>[<<4+[->8+<]
        >....[-]<<+>>]>]

में बदल जाता है:

ब्रेनफक: 264 (गैर आवश्यक व्हाट्सएप के बिना गिना गया)

    >>-->->>        >->->>>+
    >>>>>>>>        >+>>>>>>
>>>+>->>>>>>>+>->->>>>>+>->->->>>
+>+>>---->->++++++>+++++>>++++[-<
++++>]<[-<++++<+++++<+++++<+++++>
>>>]<[<]<[<++]>[-[-[<++++++++++.[
    -]>-[[-]<<<[-]]>[<++++<<<
    [[->>+<<]<]]]>[[>]>[.>]<[
        <]<[<]<<++>]]>[<<
        ++++[->++++++++<]
            >....[-]<
             <+>>]>]

आप इसे किसी भी bf दुभाषिया के साथ चलाते हैं। उबंटू है bfऔर beefदोनों अच्छी तरह से काम करता है।

bf heart.bf

आउटपुट (344 बाइट्स):

    LOVELOVE        LOVELOVE
    LOVELOVE        LOVELOVE
LOVELOVELOVELOVELOVELOVELOVELOVE
LOVELOVELOVELOVELOVELOVELOVELOVE
LOVELOVELOVELOVELOVELOVELOVELOVE
LOVELOVELOVELOVELOVELOVELOVELOVE
    LOVELOVELOVELOVELOVELOVE
    LOVELOVELOVELOVELOVELOVE
        LOVELOVELOVELOVE
        LOVELOVELOVELOVE
            LOVELOVE
            LOVELOVE

Ungolfed EBF कोड:

>>--> ; mark

;; ##  ##@   
;;########@
;;########@
;; ######@
;;  ####@
;;   ##@
;; the block below is the art above 
;; where space is replaced with ->
;; # with > and @ with +>
->>>->->>>+>
>>>>>>>>+>
>>>>>>>>+>
->>>>>>>+>
->->>>>>+>
->->->>>+>+>

;; we store the string LOVE after a blank
>
~"LOVE"<[<]<
[<++] ;; add 2 to every cell until mark

;; Variables
:new
:zero
:in
:next

@zero
$in(
  -[ ; 1
     -[ ; 2
        $zero 10+.[-]
        $in-[#[-]$new<[-] @in] ; its second round lf
        $next[#$in++++$new<[[->>+<<]<]]@new     ; 2   
      ]
      >[[>]>[.>]<[<]<[<]<<++>   ]@new
  ]>[@next $zero 4+(-$in 8+) $in.... (-) $new+ $in]@zero
)

— Sylwester
स्रोत

2

C # 224

class P{static void Main(){for(int i=0,m=1;i<30;i++)for(int l=0;l<new[]{5,6,7,6,8,10,3,10,4,13,1,13,1,87,1,27,4,23,7,20,11,16,16,11,20,7,24,3,27,1}[i];l++,m++)System.Console.Write((i%2>0?"love"[m%4]:' ')+(m%29>0?"":"\n"));}}

प्रारूपित:

class P
{
    static void Main()
    {
        for (int i = 0, m = 1; i < 30; i++)
            for (int l = 0; l < new[] { 5, 6, 7, 6, 8, 10, 3, 10, 4, 13, 1, 13, 1, 87, 1, 27, 4, 23, 7, 20, 11, 16, 16, 11, 20, 7, 24, 3, 27, 1 }[i]; l++, m++)
                System.Console.Write((i % 2 > 0 ? "love"[m % 4] : ' ') + (m % 29 > 0 ? "" : "\n"));
    }
}

आउटपुट:

     velove       elovel
   ovelovelov   velovelove
 lovelovelovel velovelovelov
lovelovelovelovelovelovelovel
ovelovelovelovelovelovelovelo
velovelovelovelovelovelovelov
 lovelovelovelovelovelovelov
   elovelovelovelovelovelo
    ovelovelovelovelovel
      lovelovelovelove
         lovelovelov
           elovelo
             vel
              l

— RobIII
स्रोत

2

पायथन, 334 बाइट्स

x = "love"
print("\t  love\t      love")
print("\t"+str(x*2)+"    "+str(x*2))
print("      "+str(x*6))
print(str(" "*5)+str(x*6)+"lo")
print(str(" "*5)+str(x*6)+"lo")
print("      "+str(x*6))
print("\t"+str(x*5))
print("\t"+str(" "*2)+str(x*4)+"l")
print("\t"+str(" "*4)+str(x*3)+"l")
print("\t"+str(" "*7)+str(x*2))
print("\t"+str(" "*10)+"v")

उत्पादन:

यहाँ छवि विवरण दर्ज करें

— yanti
स्रोत

1

PPCG में आपका स्वागत है। यह कोड गोल्फ है, इसलिए उत्तर में अपने कोड के बाइट्स की संख्या शामिल करें। कृपया यह भी बताएं कि यह कौन सी भाषा है।

— मार्टिन एंडर

@ मार्टिनबटनर आपको किस भाषा से मतलब है? और यह 334 बाइट्स है

— यंती

1

आपने जिस प्रोग्रामिंग लैंग्वेज में यह कोड लिखा है।

— मार्टिन एंडर

मुझे पता है ! यह अजगर है! ओह और आप strस्ट्रिंग रिपीटिशन के साथ कॉल को हटा सकते हैं , क्योंकि *इसकी तुलना में अधिक पूर्वता है +।

— TuxCrafting

दरअसल, यह कोड 682 बाइट्स लंबा है।

— TuxCrafting

1

पर्ल - 97 अक्षर

यह उत्तर @ वासी के 121 चरित्र पायथन समाधान पर आधारित है।

$.=love;say"   $.    $.$/$. $.$. $.$/$.   $.   $.";say$"x$_,$.,$"x(9-$_*2),$.for 0..4;say$"x 6,$.

आपको -M5.0105.10-विशिष्ट सुविधाओं को सक्षम करने के लिए विकल्प के साथ पर्ल को चलाने की आवश्यकता है। यह स्पष्ट रूप से अनुमति है ।

दिलचस्प विशेषताएं:

मैं चर का उपयोग करता हूं $. "प्यार" शब्द को संग्रहीत करने के का । ऐसा इसलिए है क्योंकि यदि आवश्यक हो तो इसे तुरंत किसी अन्य शब्द के बाद किया जा सकता है। $.forके $.बाद के रूप में स्पष्ट रूप से टोकन है for; $_forइसके $_बाद टोकन नहीं दिया जाएगा forक्योंकि $_forयह स्वयं एक कानूनी चर नाम है।
$", उस चरित्र का प्रतिनिधित्व करने वाला एक अंतर्निहित वैरिएबल जिसमें एरेज़ को एक स्ट्रिंग में प्रक्षेपित करने के साथ जोड़ा जाएगा (और एक ही स्थान वर्ण के लिए चूक) का उपयोग किया जाता है " " यहाँ और वहाँ एक वर्ण की बचत के लिए ।
पर्ल की स्ट्रिंग इंटरपलेशन .replaceकोड गोल्फिंग में अजगर विधि को महत्वपूर्ण रूप से हरा देती है।
पर्ल के for 0..4 इसी तरह से जीत हुईfor i in range(5)

— tobyink
स्रोत

1

सीजेएम - 33 बाइट्स

19285703234336595Zb["Love"SS+N]f=

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

आउटपुट:

  Love    Love
LoveLoveLoveLove
LoveLoveLoveLove
LoveLoveLoveLove
  LoveLoveLove
    LoveLove
      Love

स्पष्टीकरण:

19285703234336595    number that contains the pattern as base-3 digits
Zb                   converts to base 3 (Z=3)
["Love"SS+N]         creates an array containing "Love", "  " and a newline
f=                   replaces the base-3 digits with the corresponding strings
                     (0 -> "Love", 1 -> "  ", 2 -> newline)

— aditsu
स्रोत

0

बैश, 170 बाइट्स

पूरी तरह से programFOX की एक कॉपी :)

echo '\x1f\x8b\x08\x00\x95\x10\xe0R\x02\xffSPP\xf0\xc9/KU\x80\x03\x10\x8f\x0bB\xa1c.l\x82dJ\xe0\xb0\x01\xe6\x02\x0cATa.T\xf7\x02\x00\xd9\x91g\x05\xc5\x00\x00\x00'|gunzip

— Newbrict
स्रोत

हार्ट शेप ड्रा करें

चुनौती

नियम

जावास्क्रिप्ट [160 बाइट्स]

GolfScript: 62 57 54 अक्षर

सी - 183 बाइट्स

पायथन, 210 वर्ण

स्काला - 273 वर्ण

अजगर 2, 117

पर्ल - 36 बाइट्स

पर्ल - 60 बाइट्स

वोल्फ्राम भाषा (गणितज्ञ) - 111

जावास्क्रिप्ट - 147 141 137 137 अक्षर

स्किलिंग - 28 चार्ट / 56 बाइट्स

जावास्क्रिप्ट - 136 121 115 113 113 अक्षर

C, 116 वर्ण

रूबी, 47, या गोल्फस्क्रिप्ट, 41

रूबी - 113 वर्ण

एपीएल, 36 चार्ट / बाइट्स *

विस्तारित ब्रेनफैक : 193 (गैर आवश्यक व्हाट्सएप के बिना गिना गया)

ब्रेनफक: 264 (गैर आवश्यक व्हाट्सएप के बिना गिना गया)

C # 224

पायथन, 334 बाइट्स

सीजेएम - 33 बाइट्स