এই চমৎকার ASCII- আর্ট ফ্রেম

Question

ভূমিকা

আমি মনে করি সবাই একমত যে চমৎকার ছবি একটি সুন্দর ফ্রেম আছে। তবে এএসসিআইআই-আর্ট সম্পর্কে এই সাইটের বেশিরভাগ চ্যালেঞ্জগুলি কেবল কাঁচা চিত্র চায় এবং এটি সংরক্ষণের বিষয়ে চিন্তা করে না।
আমাদের যদি এমন কিছু প্রোগ্রাম হয় যা কিছু ASCII- আর্ট নেয় এবং এটি একটি সুন্দর ফ্রেমের সাথে ঘিরে থাকে তবে কি ভাল লাগবে না?

চ্যালেঞ্জ

এমন একটি প্রোগ্রাম লিখুন যা কিছু ASCII- আর্টকে ইনপুট হিসাবে গ্রহণ করে এবং এটি একটি সুন্দর ফ্রেমের চারপাশে আউটপুট দেয়।

উদাহরণ:

*****
 ***
  *
 ***
*****

হয়ে

╔═══════╗
║ ***** ║
║ *** ║
║ * ║
║ *** ║
║ ***** ║
╚═══════╝

• উদাহরণস্বরূপ ফ্রেমের জন্য আপনাকে ঠিক একই অক্ষর ব্যবহার করতে হবে: ═ ║ ╔ ╗ ╚ ╝
• ফ্রেমের উপরে এবং নীচে ইনপুটটির প্রথম এবং শেষ লাইনের আগে sertedোকানো হবে।
• ফ্রেমের বাম এবং অধিকার অংশগুলির ইনপুটটির প্রশস্ত লাইনে সঠিকভাবে একটি স্পেস প্যাডিং থাকতে হবে।
• আউটপুটে কোনও শীর্ষস্থানীয় বা পিছনের শ্বেতস্পেস থাকতে পারে না। কেবল একটি ট্রেলিং নিউলাইন অনুমোদিত।
• আপনি ধরে নিতে পারেন যে ইনপুটটির কোনও অপ্রয়োজনীয় নেতৃস্থানীয় হোয়াইটস্পেস নেই।
• আপনি ধরে নিতে পারেন ইনপুটটির কোনও লাইনে কোনও পেছনের সাদা স্থান নেই।
• আপনাকে খালি ইনপুট হ্যান্ডেল করতে হবে না।
• ইনপুটটিতে কেবল প্রিন্টযোগ্য এএসসিআইআই-অক্ষর এবং নতুনলাইন থাকবে।

বিধি

• ফাংশন বা সম্পূর্ণ প্রোগ্রাম অনুমোদিত।
• ইনপুট / আউটপুট জন্য ডিফল্ট নিয়ম ।
• স্ট্যান্ডার্ড লুফোলস প্রযোজ্য।
• এটি কোড-গল্ফ , তাই সর্বনিম্ন বাইট-কাউন্ট জেতা। টাইব্রেকার আগে জমা দেওয়া হয়।

শুভ কোডিং!

আপনার প্রোগ্রামের ইনপুট হিসাবে এবং একটি দুর্দান্ত ফ্রেমের সাহায্যে এটিকে দেখানো অত্যন্ত উত্সাহিত হওয়ার সাথে সাথে দুর্দান্ত কিছু এএসসিআইআই-আর্ট ব্যবহার করে যা এই সাইটের যেকোন চ্যালেঞ্জের মধ্যে তৈরি হয়েছিল!

Comments

এএসসিআইআই আর্টের জন্য একটি নন-এএসসিআইআই ফ্রেম? বৈধর্ম্য!

— ডেনিস

খুব ঘনিষ্ঠভাবে সম্পর্কিত। একই চ্যালেঞ্জ, তবে ফ্রেমের জন্য কেবল একটি একক (ASCII) অক্ষর ব্যবহার করা।

— মার্টিন এন্ডার

(আমি নির্মল উচিত আমি এটি একটি প্রতারিত মনে করি না। 6 বিভিন্ন অক্ষর ব্যবহার করতে হচ্ছে এই অনেক, trickier তোলে। অন্যান্য চ্যালেঞ্জ গ্রিড আবর্তিত এবং সংযোজন করে সমাধান করা যেতে পারে #শ্রেষ্ঠ সময়ে চতুর হতে হবে চার বার। যেমন একটি পদ্ধতির এখানে মানিয়ে নেওয়া , এবং সবচেয়ে খারাপভাবে টেকসই নয়))

— মার্টিন এন্ডার

@ ইসমাইল মিগুয়েল আমি আগের প্রতিযোগিতা জিতেছি এবং আমি কীভাবে আমার পুরানো উত্তরটি একেবারে মানিয়ে নিতে পারি তা দেখছি না।

— মার্টিন ইন্ডার

আমার সন্দেহ হয় যে ডেনকারএফ সিপি 437 বা এমন কিছু ধরে নিচ্ছে যেখানে ফ্রেমের অক্ষরগুলিও একটি বাইট।

— জোশুয়া

Answer 1

সিজেম, 45 টি চর / 52 বাইট

qN/_z,)[_)'═*N]2*C,3%'╔f+.\4/@@f{Se]'║S@2$N}*

এই ব্যয়বহুল 3-বাইট চরগুলি এড়ানোর চেষ্টা করা ছিল ... আকর্ষণীয়।

এটি অনলাইনে চেষ্টা করুন

ব্যাখ্যা

qN/                   Split input by newline
_z,                   Zip and get length L, i.e. length of longest line
)                     Increment -> L+1
[_)'═*N]              Make two-element array of "═"*(L+2) and newline
2*                    Double the array, giving ["═"*(L+2) "\n" "═"*(L+2) "\n"]

C,                    range(12), i.e. [0 1 2 ... 11]
3%                    Every third element, i.e. [0 3 6 9]
'╔f+                  Add "╔" to each, giving "╔╗╚╝"
.\                    Vectorised swap with the previous array, giving
                      ["╔" "═"*(L+2) "╗" "\n" "╚" "═"*(L+2) "╝" "\n"]
4/                    Split into chunks of length 4

@@                    Move split input and L+1 to top
f{...}                Map with L+1 as extra parameter...
  Se]                   Pad line to length L+1, with spaces
  '║S                   Put "║" and space before it
  2$N                   Put "║" and newline after it

*                     Join, putting the formatted lines between the top and bottom rows

Answer 2

হাস্কেল, ১৩৯ বাইট

q=length
g x|l<-lines x,m<-maximum$q<$>l,s<-[-1..m]>>"═"='╔':s++"╗\n"++(l>>= \z->"║ "++z++([q z..m]>>" ")++"║\n")++'╚':s++"╝"

উদাহরণ হিসাবে আমি স্নোম্যান "12333321" ফ্রেম করছি ।

*Main> putStrLn $ g " _===_\n (O.O)\n/(] [)\\\n ( : )"
╔═════════╗
║  _===_  ║
║  (O.O)  ║
║ /(] [)\ ║
║  ( : )  ║
╚═════════╝

কিভাবে এটা কাজ করে:

bind
  l: input split into lines
  m: maximum line length
  s: m+2 times ═

build top line
prepend left frame to each line, pad with spaces, append right frame
build bottom line.

Answer 3

জাভাস্ক্রিপ্ট (ES6), 138 বাইট

এটি আইবিএম 866 এনকোডিংয়ের 138 বাইট, যা লেখার সময় ফায়ারফক্সে এখনও সমর্থিত তবে ইউটিএফ -8 এ 152 রয়েছে 2

s=>`╔${t='═'.repeat(w=2+Math.max(...(a=s.split`
`).map(s=>s.length)))}╗
${a.map(s=>('║ '+s+' '.repeat(w)).slice(0,w+1)).join`║
`}║
╚${t}╝`

Comments

আপনি কি সিপি 437 ব্যবহার করে জাভাস্ক্রিপ্টকে প্রকৃতপক্ষে এনকোড করতে পারেন এবং এখনও চালাতে পারেন? যদি তা না হয় তবে এটি আসলে 138 বাইট নয়।

— মামা ফান রোল

@ ӍѲꝆΛҐӍΛПҒЦꝆ যদিও আমি সিপি 437 সমর্থন করে কিছু পাইনি, ফায়ারফক্স বর্তমানে আইবিএম 866 সমর্থন করে যার মধ্যে এই বাক্সের অঙ্কন অক্ষর রয়েছে, তাই আমি আমার উত্তর আপডেট করেছি।

— নীল

ঠিক আছে ভদ্র. একটি upvote আছে!

— মামা ফান রোল

Answer 4

বাশ, ^{_{173 171 150 148}} 147 বাইট, ^{_{157 136 134}} 133 অক্ষর

q(){((n=${#2}>n?${#2}:n));};mapfile -tc1 -C q v;for((p=++n+1;p;--p));do z+=═;done;echo ╔$z╗;printf "║ %-${n}s║\n" "${v[@]}";echo ╚$z╝

একাধিক লাইন:

q() {
    (( n = ${#2} > n ? ${#2} : n))
}
mapfile -tc1 -C q v

for((p=++n+1;p;--p))
do 
    z+=═
done

echo ╔$z╗
printf "║ %-${n}s║\n" "${v[@]}"
echo ╚$z╝

উদাহরণ কার্যকর:

bash -c 'q(){((n=${#2}>n?${#2}:n));};mapfile -tc1 -C q v;for((p=++n+1;p;--p));do z+=═;done;echo ╔$z╗;printf "║ %-${n}s║\n" "${v[@]}";echo ╚$z╝'< bear.txt

স্ক্রিপ্ট থেকে নমুনা রান করুন:

$ cat bear2.txt 
     (()__(()
     /       \
    ( /    \  \
     \ o o    /
     (_()_)__/ \
    / _,==.____ \
   (   |--|      )
   /\_.|__|'-.__/\_
  / (        /     \
  \  \      (      /
   )  '._____)    /
(((____.--(((____/mrf
$ ./frame< bear2.txt 
╔═══════════════════════╗
║      (()__(()         ║
║      /       \        ║
║     ( /    \  \       ║
║      \ o o    /       ║
║      (_()_)__/ \      ║
║     / _,==.____ \     ║
║    (   |--|      )    ║
║    /\_.|__|'-.__/\_   ║
║   / (        /     \  ║
║   \  \      (      /  ║
║    )  '._____)    /   ║
║ (((____.--(((____/mrf ║
╚═══════════════════════╝

Comments

আপনার উদাহরণটিতে নীচের ফ্রেম এবং ইনপুটটির মধ্যে একটি এমটিপি লাইন রয়েছে যা অবৈধ। উপরের এবং নীচের ফ্রেমগুলি সরাসরি ইনপুটটির আগে এবং পরে sertedোকাতে হবে (আপনার পূর্ববর্তী সংস্করণটি ঠিক বিটিডব্লিউ ছিল)।

— ডেনকার

ভাল ! , তবে ...?${#2}+2:n))পরিবর্তে +12 স্পেস এবং এর printf -v z %${n}s;পরিবর্তে আপনি প্রায় 5 চর সংরক্ষণ করতে পারেন printf -v z " %*.s" $n।

— এফ। হাউরি

@ সুকিন্ডার ওকে, ইতিমধ্যে এটি অনুমান করা হয়েছিল তবে আপনি যে ইনপুট দেখান তাতে কোনও খালি লাইন থাকে না বলে এটি নিশ্চিত করতে চেয়েছিলেন। আমি দাবি করিনি যে আপনি খালি লাইনগুলি শীর্ষস্থানীয় বা ট্রায়ালিংয়ের ইনপুট সাফ করুন, সুতরাং আপনি প্রোগ্রামটি পুরোপুরি ঠিক আছে।

— ডেনকার

Answer 5

এডাব্লুকে, 159 বাইট

{a[NR]=$0
x=length($0)
m=m<x?x:m
a[NR,1]=x}
END{for(;i<m+2;i++)t=t"═"
print"╔"t"╗"
for(j=1;j<NR;j++){f="║ %-"m"s ║\n"
printf f,a[j]}print"╚"t"╝"}

awkআপনি কোডে কীভাবে এটি পাবেন তা নির্ধারণ করতে পারলে দৃশ্যত ইউনিকোড মুদ্রণ করতে পারেন।

Comments

আমার কাছে এখন দুর্দান্ত পাইপগুলির জন্য অনেকগুলি ধারণা রয়েছে ...

— সেবব

@ সেবব এটি মজাদার মনে হয় না। :)

— রবার্ট বেনসন

Answer 6

পার্ল, 111 টি অক্ষর

(দোভাষী পতাকাগুলির জন্য স্কোর +5 অন্তর্ভুক্ত)

#!/usr/bin/perl -n0 -aF\n
$n=(sort{$b<=>$a}map length,@F)[0];$l="═"x$n;
print"╔═$l═╗\n",(map{sprintf"║ %-${n}s ║\n",$_}@F),"╚═$l═╝";

প্রথমত, আমরা $nসমস্ত লাইনের দৈর্ঘ্যকে সংখ্যা অনুসারে বাছাই করে দীর্ঘতম রেখার দৈর্ঘ্য পাই ।

আমরা অনুভূমিক ফ্রেম চরিত্রের পুনরাবৃত্তি $lহতে শিরোনাম / পাদচরণ বার হতে সেট করেছি $n।

তারপরে আমরা $nফ্রেমের অক্ষরের মাঝে স্যান্ডউইচ করা প্রস্থের একটি বাম-সারিবদ্ধ বিন্যাসে প্রতিটি লাইন মুদ্রণ করি ।

ফলাফল:

╔═══════════╗
║   |\_/|   ║
║  / @ @ \  ║
║ ( > * < ) ║
║  `>>x<<'  ║
║  /  O  \  ║
╚═══════════╝

Answer 7

পাইথ, 44 টি অক্ষর (58 বাইট)

++\╔K*JhheSlR.z\═\╗jbm+\║+.[+;d;J\║.z++\╚K\╝

ব্যাখ্যা

++\╔K*JhheSlR.z\═\╗                          - print out the first line
           lR.z                              -        map(len, all_input())
          S                                  -       sorted(^)
         e                                   -      ^[-1]
       hh                                    -     ^+2
      J                                      -    autoassign J = ^
     *         \═                            -   ^*"═"
    K                                        -  autoassign K = ^
++\╔             \╗                          - imp_print("╔"+^+"╗")

                   jbm+\║+.[+;d;J\║.z        - print out the middle
                   jb                        - "\n".join(V)
                     m             .z        -  [V for d in all_input()]
                      +\║+       \║          -   "║"+V+"║"
                          .[   ;J            -    pad(V, " ", J)
                            +;d              -     " "+d

                                     ++\╚K\╝ - print out the end
                                     ++\╚K\╝ - imp_print("╚"+K+"╝")

এখানে চেষ্টা করুন।

Answer 8

পিএইচপি 5.3, 209 বাইট

এটি কেবল এনকোডিং OEM 860 ব্যবহার করে কাজ করে । এটি একটি বর্ধিত ASCII সুপারসেট, পর্তুগিজ ডস সংস্করণগুলিতে ব্যবহৃত হয়। যেহেতু আমি পর্তুগিজ (এবং আমি পাস্কালে এই "ফ্রেমগুলি" করতে পছন্দ করতাম) এবং এটি একটি স্ট্যান্ডার্ড এনকোডিং তাই আমি এটি নিয়ে এগিয়ে গেলাম:

<?foreach($W=explode('
',$argv[1])as$v)$M=max($M,strlen($v)+2);printf("É%'Í{$M}s»
º%1\${$M}sº
%2\$s
º%1\${$M}sº
È%1\$'Í{$M}s¼",'',join('
',array_map(function($v)use($M){return str_pad(" $v ",$M);},$W)));

এখানে বেস 64:

PD9mb3JlYWNoKCRXPWV4cGxvZGUoJwonLCRhcmd2WzFdKWFzJHYpJE09bWF4KCRNLHN0cmxlbigkdikrMik7cHJpbnRmKCLilZQlJ+KVkHskTX1z4pWXCuKVkSUxXCR7JE19c+KVkQolMlwkcwrilZElMVwkeyRNfXPilZEK4pWaJTFcJCfilZB7JE19c+KVnSIsJycsam9pbignCicsYXJyYXlfbWFwKGZ1bmN0aW9uKCR2KXVzZSgkTSl7cmV0dXJuIHN0cl9wYWQoIiAkdiAiLCRNKTt9LCRXKSkpOw==

এই উত্তরটি আমার উত্তরটির উপর ভিত্তি করে তৈরি হয়েছিল: https://codegolf.stackexchange.com/a/57883/14732 (ভারী উত্তোলন সমস্ত সেখানে তৈরি হয়েছিল, কেবল কিছুটা পলক করতে হয়েছিল)।

Comments

কমপক্ষে বলার জন্য চিত্তাকর্ষক :)

— MonkeyZeus

কোডগুলি 209 বাইট / অক্ষর। 22+58+11+5+11+24+66+12=209শেষ 12 টি নিউলাইন এবং এটি ডস হিসাবে এর অর্থ সিআরএলএফ, বা নিউলাইন প্রতি দুটি বাইট। Charactercountonline সাইটের নতুন লাইন গণনা করা হয় না। নন-এএসসিআইআই এর প্রতিটি

— গ্লাইফগুলি

@ সুকিমিন্ডার এএসসিআইআই / পাঠ্য মোডে ফাইলটি খোলার সময় ভুলে যাবেন না যে (কমপক্ষে) উইন্ডোজ রূপান্তরিত \nহয় \r\n।

— ইসমাইল মিগুয়েল

Answer 9

পাইথন 3, 119 বাইট

def f(x): 
 n='\n';s="║ ";e=" ║";h=(x.find(n)+2)*"═";return"╔"+h+"╗"+n+s+x.replace(n,e+n+s)+e+n+"╚"+h+"╝"

126 বাইট

import sys
o=["║ %s ║\n"%j[:-1] for j in sys.stdin]
h="═"*(len(o[0])-3)
print("╔"+h+"╗\n"+"".join(o)+"╚"+h+"╝")

ইনপুট:

hello
there
  !  

আউটপুট:

╔═══════╗
║ hello ║
║ there ║
║   !   ║
╚═══════╝

Comments

প্রোগামামিং ধাঁধা এবং কোড গল্ফ স্বাগতম! প্রথম উত্তর! আপনি সর্বদা সম্পূর্ণ প্রোগ্রামের পরিবর্তে ফাংশন লিখতে পারেন (যদি চ্যালেঞ্জটিতে স্পষ্টভাবে নিষিদ্ধ না হয়) যা আপনাকে যুক্তি হিসাবে ইনপুট নিয়ে কিছু বাইট সংরক্ষণ করতে দেয় allow এছাড়াও আপনি পাইথন 2 ব্যবহার করতে চাইতে পারেন, যাতে আপনি যেতে গিয়ে 2 বাইট সংরক্ষণ করতে পারেন print"╔"+h+"╗\n"+"".join(o)+"╚"+h+"╝"।

— ডেনকার

ধন্যবাদ। পাইথন 2-এ কীভাবে হাই-বাইটস কাজ করা যায় তা আমি বুঝতে পারি না (সম্ভবত কোডেক পরিবেশের ভেরিয়েবলটি নির্ধারণ করা কাজ করবে তবে আমি নিশ্চিত নই যে এটি গল্ফ বাইট গণনাগুলিতে কীভাবে খেলবে)। ফাংশন পদ্ধতির অজগর 2/3 পার্থক্য দূর করে তবে আমার সেরা পদ্ধতির একটি বাইট যুক্ত করে।

— সুমনার হাইস

ঠিক আছে, আমি এটি একটি কার্য হিসাবে 119 টি অক্ষরে নামিয়েছি; স্ট্রিং হিসাবে ইনপুট লাগে। আমার মিনি-মার্কডাউন স্পষ্টতই নাস্তানাবুদ নয়; লাইন 1 ডিএফ, বাকী (কোলনের পরে) লাইন 2, একটি শীর্ষস্থানীয় স্থান। def f(x): n='\n';s="║ ";e=" ║";h=(x.find(n)+2)*"═";return"╔"+h+"╗"+n+s+x.replace(n,e+n+s)+e+n+"╚"+h+"╝"

— সুমনারহেইস

নতুন সংস্করণ এবং নতুন স্কোর দিয়ে আপনার পোস্টটি আপডেট করুন (পুরাতন স্কোরটি আউট করে <s>...</s>)। এছাড়াও আপনি <!-- language-all: lang-python -->আপনার কোডটিতে সিনট্যাক্স হাইলাইট করার জন্য আপনার কোড-ব্লকের আগে যুক্ত করতে পারেন ।

— ডেনকার

ইনপুটটি আয়তক্ষেত্রাকার না হলে এটি কাজ করে না, যখন প্রশ্নটি বলছে যে কোনও লাইনেই পূর্ববর্তী সাদা স্থান থাকবে না।

— ডেনিস

Answer 10

পাইথন 2, 115 বাইট

def f(i):w='═'*(i.find('\n')+2);return'╔%s╗\n║ %s ║\n╚%s╝'%(w,' ║\n║ '.join(i.split('\n')),w)

এখানে 115 এর চেয়ে কম দেখায়, তবে কার্যকারী ফাইলে 3-বাইট ইউটিএফ -8 বিওএম চিহ্ন স্বাক্ষর অন্তর্ভুক্ত রয়েছে, এটি 115 বাইট পর্যন্ত ধাক্কা দিয়ে। আপনি যদি পাইথন 3 এ এটি চালনা করেন তবে আপনাকে বিওএমের প্রয়োজন হবে না এবং এটি 112 বাইটে নেমে আসবে।

Comments

প্রোগ্রামিং ধাঁধা এবং কোড গল্ফ স্বাগতম! দুর্ভাগ্যক্রমে, আপনার কোডটি ধরে নিয়েছে যে ইনপুটটি আয়তক্ষেত্রাকার, যদিও প্রশ্নটি বলছে যে কোনও লাইনেই পূর্ববর্তী সাদা স্থান থাকবে না।

— ডেনিস

আমি 107 বাইট গণনা। আমার মনে হয় না আপনাকে "ইউটিএফ -8 বিওএম চিহ্ন স্বাক্ষর" অন্তর্ভুক্ত করতে হবে।

— ক্যালকুলেটরফলাইন

পুনঃটুইটগুলি আপনি কি পাইথন 2 ব্যবহার করছেন? পাইথন 3 এ সমস্ত স্ট্রিং ইউনিকোড, তবে পাইথন 2 এর সাথে এটি আরও জটিল।

— জেনি মিলার

ওহো, আমি পাইপগুলিকে 2 বাইট হিসাবে গণনা করেছি, তবে একটি আসল বাইটকাউন্টার ব্যবহার করার পরেও, এখনও 111 বাইট। এই 5 টি বাইট কোথা থেকে এসেছে তা বলুন।

— ক্যালকুলেটরফলাইন

ইউটিএফ -8 বিওএমটি 3 বাইট ( এন.ইউইকিপিডিয়া . org / উইকি / বাইট_র্ডার_মার্ক )। আমার গণনাটি একটি উচ্চ ছিল কারণ আমার পাঠ্য সম্পাদকটি একটি নতুন নতুন লাইন যুক্ত করেছিলেন, সুতরাং আমার সমাধানটি কেবলমাত্র 115 বাইট। আপনি পাইথন 3 (যা ইউনিকোড হিসাবে সমস্ত স্ট্রিংকে গণনা করে) ব্যবহার করে থাকলে আপনি নেতৃস্থানীয় বিওএম বাইটগুলি ছেড়ে দিয়ে 112 এ নামতে পারেন। তবে আমি জানি না আপনি কীভাবে কেবল 111 বাইট দেখছেন। বিটিডব্লিউ, এখানে আমি কীভাবে বিওএম যুক্ত করেছি: sed -i '1s/^\(\xef\xbb\xbf\)\?/\xef\xbb\xbf/' codeGolf.py

— জেনি মিলার

Answer 11

সি, 290 বাইট

Bনির্ভরতা সহ গল্ফযুক্ত ফাংশন ; নাল-সমাপ্ত চর * হিসাবে ইনপুট নেয়

#define l(s) strlen(s)
p(char*s,int n){while(n--)printf(s);}
B(char*s){char*t=strtok(s,"\n");int x=l(t),z=1;while(t=strtok(0,"\n"))z++,x=l(t)>x?l(t):x;p("╔",1);p("=",x+2);p("╗\n",1);while(z--)printf("║ %s", s),p(" ",x-l(s)),p(" ║\n",1),s+=l(s)+1;p("╚",1);p("=",x+2);p("╝\n",1);}

পুরো প্রোগ্রামে কিছুটা-অরক্ষণশীল ফাংশন

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#define MAX 1024

// GOLF-BEGIN =>
#define l(s) strlen(s)
// since multibyte chars don't fit in char: use char* instead
void p (char*s,int n){ while(n--)printf(s); } 
void B (char *s){
    char *t = strtok(s,"\n");
    int x=l(t), z=1;
    while(t=strtok(0,"\n"))z++,x=l(t)>x?l(t):x;  
    // x is l(longest line), z is #lines
    p("╔",1);p("=",x+2);p("╗\n",1);
    while(z--)printf("║ %s", s),p(" ",x-l(s)),p(" ║\n",1),s+=l(s)+1;
    p("╚",1);p("=",x+2);p("╝\n",1);       
}
// <= GOLF-END

int main(int argc, char **argv) {
    char buffer[MAX];
    memset(buffer, 0, MAX);
    FILE *f = fopen(argv[1], "rb");
    fread(buffer, 1, MAX, f); 
    B(buffer);
    return 0;
}

ইনপুট

     _.,----,._
   .:'        `:.
 .'              `.
.'                `.
:                  :
`    .'`':'`'`/    '
 `.   \  |   /   ,'
   \   \ |  /   /
    `\_..,,.._/'
     {`'-,_`'-}
     {`'-,_`'-}
     {`'-,_`'-}
      `YXXXXY'
        ~^^~

আউটপুট

╔======================╗
║      _.,----,._      ║
║    .:'        `:.    ║
║  .'              `.  ║
║ .'                `. ║
║ :                  : ║
║ `    .'`':'`'`/    ' ║
║  `.   \  |   /   ,'  ║
║    \   \ |  /   /    ║
║     `\_..,,.._/'     ║
║      {`'-,_`'-}      ║
║      {`'-,_`'-}      ║
║      {`'-,_`'-}      ║
║       `YXXXXY'       ║
║         ~^^~         ║
╚======================╝

সি গল্ফিং টিপস প্রশংসা!