হার্ট শেপ আঁকুন


34

চ্যালেঞ্জ

হার্টের আকৃতি আঁকুন

এখানে চিত্র বর্ণনা লিখুন

... ASCII শিল্প হিসাবে!

আপনার শিল্পটি আমার মতো দেখতে ঠিক হবে না, তবে এটি হার্ট শেপের মতো দেখতে হবে।

অন্তরের অন্তরে অন্তত 20 বার "প্রেম" শব্দটি ধারণ করতে হবে

বিধি

  • প্রোগ্রামটি অবশ্যই কনসোলটিতে শিল্পটি লিখতে হবে।
  • সংক্ষিপ্ততম কোড (বাইটগুলিতে, যে কোনও ভাষায়) জয়ী হয়।

14 ফেব্রুয়ারি ভালোবাসা দিবসে বিজয়ী বাছাই করা হবে


2
আমি এই প্রসঙ্গে নির্দিষ্ট ascii- শিল্প প্রবণতা পছন্দ। :)
আদম মারাস 22'14

3
ন্যায্য কোড-গল্ফ হওয়ার জন্য আমি মনে করি আপনার আউটপুটটির আরও সীমাবদ্ধ সংজ্ঞা দেওয়া উচিত।
হাওয়ার্ড

3
আমি কেউ অপেক্ষা করছি যে কোনও জৈবিকভাবে নির্ভুল দেখার জন্য হৃদয় জমা দেবে। যে কেউ তা করে তাড়াতাড়ি আমার কাছ থেকে একটি +1 পেয়ে যায়।
জো

2
ভালোবাসা দিবসের রোমান্টিক গুণাবলী সম্পর্কে @ জোস্টেড আপনার ধারণাকে সন্দেহজনক মনে হচ্ছে:D
ভিজিওএন

3
এটি আরও অনেক ভাল হতpopularity-contest
স্জটুপওয়াই

উত্তর:


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
নং ইকোস্ক্রিপ্ট
ফ্লোরেন্ট

1
@ ফ্লোরেন্ট আহ! যতদূর আমি জানি ECMAScript 6 এখনও পরীক্ষামূলক এবং দুর্ভাগ্যক্রমে এটি কীভাবে কাজ করে তা পরীক্ষা করা এখনও খুব কঠিন। আসুন আমার কোডটি ECMAScript 5 সুসংগত বলে ধরে নিই :)তবে নির্দেশ করার জন্য আপনাকে ধন্যবাদ! আমি আশা করি শীঘ্রই জাভাস্ক্রিপ্ট পার্ফ এবং পাইথনের সাথে গল্ফিংয়ের বিষয়ে প্রতিযোগিতা করবে এবং প্রত্যেকেই এটি চেষ্টা করতে সক্ষম হবে।
ভিজিওন

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নীচে কাজ করা ভাল কাজ ।
luser droog

1
হার্ট বক্ররেখার চমৎকার ব্যবহার! আপনি এখনও কয়েকটি অক্ষর সংরক্ষণ করতে পারেন এবং 153 এ নামতে পারেন (আমি একটি যুক্ত বাইটের দামে আউটপুটটিও সামান্য পরিবর্তন করেছি): আদর্শ one.com/ELnkEE
রেমা

খুব ঠান্ডা. আমি সত্যিই বাইটগুলি পিষে কখনও দুর্দান্ত হইনি। আপনার নিজের হিসাবে এটি পোস্ট করা উচিত 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

আমি আপনার মতামত পছন্দ করি ^ _ ^
নবীন


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]) = { ... } }এবং আমি কেবল হ্যাভিন 'এর কিছুই নেই)।


2
@ পিডেমিয়ান আমি সম্ভবত এটি আরও সাধারণ হৃদয়ের মতো করে তুলতে পারতাম, তবে আমি কোডের আকারটি ভুল বুঝি এবং খুব অলস হয়ে পড়েছিলাম। আমি পরিবর্তে একটি লেজ তৈরি। আমি ভান করতে চাই এটি একটি বেলুন: পি
কেচালাক্স

12

পাইথন 2, 117

ঠিক 20 loveটি অনুভূমিকভাবে মুদ্রণ করে ।

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; শেষ লাইনে ভেরিয়েবল এক্স এর মান ব্যবহার করুন। পেস্টবিন.
com

@ মান্যাটওয়ার্ক আপনাকে ধন্যবাদ এখন শরীরের সম্পাদনা 121 টি অক্ষরে :-)
ওয়াসি

loveঅনুভূমিক loveগুলি আটকে দিয়ে আপনি ডান পাশের তিনটি উল্লম্ব গুলি গণনা করছেন ?
জোশুয়া টেলর

@ জোশুয়া টেলর ধন্যবাদ, আমি এই উল্লম্ব loveগুলি লক্ষ্য করিনি । এই গণনাগুলি সহ love23 টি হবে: ডি
ওয়াসি

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 প্রতিটি অক্ষর এর সারাই মান 16 দোকান mod সংখ্যা প্রতিটি মধ্যে প্রয়োজন স্পেস Loveস্ট্রিং পুনরাবৃত্তি মাধ্যমে ( x)। অবশেষে, অক্ষরটি যদি অঙ্ক ( /\D/) না হয় তবে এর মানটি $/, কোনটি "\n"ডিফল্টকে শেষ পর্যন্ত সরিয়ে নেওয়া হয়।

আপনার দ্বিতীয় প্রোগ্রামটিতে একটি ত্রুটি ছুঁড়েছে: "সিন্ট্যাক্স ত্রুটি -E লাইন 1 এ," / \ ডি / for3h112a05e0n1l2j4f6b9 " (ব্যবহার করে কমান্ড লাইন থেকে প্রার্থনা করার চেষ্টা করা হয়েছে -e)
টমাস

কমান্ড লাইন থেকে, আপনি প্রতিস্থাপন করতে হবে $"সঙ্গে ' ':perl -e "print' 'x(15&ord),Love,$/x/\D/for'3h112a05e0n1l2j4f6b9'=~/./g"
Primo

ঠিক আছে, দুর্দান্ত কৌশল!
টমাস

36 বাইট সংস্করণটি প্রয়োজনীয় আউটপুটটি প্রিন্ট করে না
টোবিয়া

1
@ সিম্বাবাক করেছেন।
primo

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 133 টি অক্ষর

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|) তারপরে, আমি উপরে দুটি চেনাশোনা একত্রিত করি। x মানগুলি মিরর করা হয় (সুতরাং কেবলমাত্র একটি বৃত্তের প্রয়োজন)।


1
0ভাসমান সংখ্যাগুলির আগে এবং Math.absভেরিয়েবলকে বরাদ্দ দিয়ে আপনি নিজের কোডটি ছোট করতে পারেন ।
ফ্লোরেন্ট

এছাড়াও আপনি আরও দু'বার বাইট সংরক্ষণ করতে শেষ থেকে দুটি অকেজো সেমিকোলন সরিয়ে নিতে চাইতে পারেন।
ভিজিওন

4

স্ক্রিপ্টিং - 28 টি অক্ষর / 56 বাইট

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

আউটপুট:

    LOVE    LOVE
  LOVELOVELOVELOVE
LOVELOVELOVELOVELOVE
  LOVELOVELOVELOVE
    LOVELOVELOVE
      LOVELOVE
        LOVE

(অথবা ২৪ টি চরিত্রে: 긢꼙겱딧꽔밂各감啃갰啃긂밀⓶復냄뭖끐⓷復겠⓸復終- তবে এটি সেই নির্দেশনাটি ব্যবহার করে , যা আমি এই চ্যালেঞ্জ পোস্ট হওয়ার পরে যুক্ত করেছি, সুতরাং এটি গণনা করা হয় না))
টিমউই

এটি ৮৪ বাইট।
tobyink

না, এটি ইউটিএফ -16 হিসাবে 56 বাইট।
টিমউই

@ টিমউই আমার জন্য এটি 58 ​​বাইট পরিমাপ করে। বিজোড়।
প্রিমো

@ প্রিমো: এটি ৫ by বাইট। যদি আপনি এটি উইন্ডোজ নোটপ্যাডে "ইউনিকোড" হিসাবে সংরক্ষণ করেন তবে আপনি একটি 58 ​​বাইট ফাইল পাবেন যা ইউটিএফ -16 বিওএম (2 বাইট) প্লাস 56 বাইট প্রোগ্রাম অন্তর্ভুক্ত করে।
টিমউই

4

জাভাস্ক্রিপ্ট - 136 121 115 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

চালানোর জন্য: ব্রাউজার কনসোলে কপি পেস্ট করুন (যেমন: Chrome বা ফায়ারফক্স)


["L","o","v","e"] => "Love"11 বাইট সংরক্ষণ করবে
ভিজিওন

স্থির :)। পরামর্শের জন্য ধন্যবাদ।
টাইগ্রু

3

সি, 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) ];
  }
}

আমি এটা করতে বাধ্যও বোধ করেছি। : P: P

#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 এ আইনী ছিল, তবে হায় হায়, তা নয়। তাই এটি শুধু একটি লিগ্যাসি জিনিস প্রাক ANSI-সি থেকে বাম যে অধিকাংশ কম্পাইলার যাহাই হউক না কেন সমর্থন (দেখুন [এই পাদটীকা] ( 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

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 বার (উল্লম্বভাবে) এর সাথে আরও অনেকগুলি পার্টিয়ালের মধ্যে রয়েছে।


সৃজনশীলতার জন্য +1। আমি এটি উল্লম্ব করার চিন্তা করতাম না।
অ্যান্ড্রু গিজ

3

এপিএল, ৩rs টি চর / বাইট *

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

অবশ্যই মূল্যায়ন করা উচিত ⎕IO←0(প্রয়োগের মাধ্যমে ডিফল্ট পরিবর্তিত হয়)

* এপিএল যদি প্রয়োজন হয় তবে একক বাইট অক্ষরে লেখা যেতে পারে (যতক্ষণ না আপনি অন্য কোনও ইউনিকোড চরিত্র ব্যবহার করেন না) সুতরাং এন চার্স = এন বাইট গণনা করার উদ্দেশ্যে।

আউটপুট:

ঠিক 20 "ভালবাসা" ধারণ করে

  Love    Love
LoveLoveLoveLove
LoveLoveLoveLove
LoveLoveLoveLove
  LoveLoveLove
    LoveLove
      Love

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এবং beefএবং উভয়ই দুর্দান্তভাবে কাজ করে।

bf heart.bf

আউটপুট (344 বাইট):

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

অব্যাহত 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
)

2

সি # 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

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")

আউটপুট:

এখানে চিত্র বর্ণনা লিখুন


1
পিপিসিজিতে আপনাকে স্বাগতম। এটি কোড গল্ফ, সুতরাং দয়া করে উত্তরে আপনার কোডের বাইট সংখ্যা অন্তর্ভুক্ত করুন। দয়া করে এটি কী ভাষা তা জানান।
মার্টিন এন্ডার

@ মার্টিনব্যাটনার আপনি কোন ভাষাটি বোঝাতে চাইছেন? এবং এটি 334 বাইট
ইয়ানতি

1
আপনি যে কোডিংটিতে এই কোডটি লিখেছেন সেই প্রোগ্রামিং ল্যাঙ্গুয়েজ
মার্টিন এন্ডার

আমি জানি ! এ তো পাইথন! ওহ এবং আপনি strস্ট্রিং পুনরাবৃত্তি সহ কলটি সরিয়ে ফেলতে পারেন , কারণ *এর চেয়ে বেশি অগ্রাধিকার রয়েছে +
টুকসক্রাফটিং

আসলে, এই কোডটি 682 বাইট দীর্ঘ।
TuxCraftting

1

পার্ল - 97 টি অক্ষর

এই উত্তরটি @ ওয়াসির 121 অক্ষর পাইথন সমাধানের উপর ভিত্তি করে।

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

-M5.0105.10-নির্দিষ্ট বৈশিষ্ট্যগুলি সক্ষম করতে আপনাকে বিকল্প দিয়ে পার্ল চালানো দরকার । এই দৃশ্যত অনুমতি দেওয়া হয়

আকর্ষণীয় বৈশিষ্ট্য:

  • আমি $."প্রেম" শব্দটি সঞ্চয় করতে ভেরিয়েবলটি ব্যবহার করি । এটি কারণ প্রয়োজন হলে তাৎক্ষণিকভাবে অন্য একটি শব্দ অনুসরণ করা যেতে পারে। অনুসরণ করে $.forনির্বিঘ্নভাবে টোকেনাইজড $.হয় for; $_forযেমন tokenized হবে না $_দ্বারা অনুসরণ forকারণ $_forনিজেই একটি আইনি পরিবর্তনশীল নাম।
  • $", " "এখানে এবং সেখানে একটি অক্ষরের সঞ্চয় করার পরিবর্তে একটি স্ট্রিংয়ের সাথে ইন্টারপোল্ট করা (এবং একক স্থানের অক্ষরের ডিফল্ট) ব্যবহৃত হবে এমন অক্ষরটির প্রতিনিধিত্বকারী একটি অন্তর্নির্মিত চলক
  • পার্লের স্ট্রিং ইন্টারপোলেশনটি .replaceকোড গল্ফিংয়ে অজগর পদ্ধতির উল্লেখযোগ্যভাবে মারধর করে ।
  • পার্ল for 0..4একইভাবে জিতেছেfor i in range(5)

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)

0

বাশ, 170 বাইট

প্রোগ্রামফক্স এর সম্পূর্ণরূপে একটি অনুলিপি :)

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
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.