আরজিবি থেকে সিএমাইক পর্যন্ত


9

ইনপুট হিসাবে 3 বাইট বা আরজিবি দেওয়া, নিকটতম সিএমওয়াইকে মান গণনা করুন এবং সেগুলি আউটপুট করুন।

  • প্যারামিটার এবং রিটার্ন মান সহ একটি ফাংশন তৈরি করুন বা স্টিডিন / স্টাডাউটে পরিচালিত একটি প্রোগ্রাম
  • আপনার পছন্দের রঙ প্রোফাইল ব্যবহার করুন, তবে একটি রেফারেন্স সরবরাহ করুন
  • ইনপুট হয় বিস্তৃত পৃথক সংখ্যাসূচক মান হতে পারে [0; 255] অথবা 6 ডিজিটের হেক্স স্ট্রিং
  • আউটপুট [0; 1] বা [0; 100] এর মধ্যে পৃথক সংখ্যাসূচক মান হওয়া উচিত
  • স্ট্যান্ডার্ড কোড গল্ফ: কোনও ফাঁক নেই , সংক্ষিপ্ততম কোড জিতবে
  • অমিতব্যয়ী ধারণা স্বাগত

নমুনা তথ্য:

input             output
108,174,106       [0.3793103448275862, 0.0, 0.3908045977011494, 0.3176470588235294]
0,0,0             0,0,0,1
170,255,238       33,0,7,0  
0x0088ff          1,0.4667,0,0
[250,235,215]     [0,6,14,1.96]  
#123456           .7907,.3953,0,.6627
  • আন-ক্যালিব্রেটেড ম্যাপিং ভাল এবং সম্ভবত সবচেয়ে সহজ
  • কোন ইনপুট বৈধতা প্রয়োজন; ভাসমানগুলি অনুমোদিত (0 থেকে 255 অবধি) তবে এটি বৃত্তাকারও হতে পারে
  • আউটপুট ফর্ম্যাটটি হয় স্পষ্টভাবে মন্তব্য করা উচিত বা স্পষ্ট; অর্থাৎ,
    1. সেই আদেশে সিএমওয়াইকে
    2. শতকরা [0; 100] বা খাঁটি সংখ্যা [0; 1] থাকলে কিছু যায় আসে না
  • পরীক্ষার মধ্যে তুচ্ছ উদাহরণ অন্তর্ভুক্ত করা উচিত [0,0,0]।

এই সাইটে অনলাইন সরঞ্জামগুলির সর্বাধিক অঙ্ক রয়েছে যা আমি খুঁজে পেতে পারি। কেউ কি এমন কোনও সরঞ্জাম জানেন যা 4 টিরও বেশি সংখ্যা দেয়?


4
আপনি কিছু ইনপুট / আউটপুট দিতে পারেন?
কেভিন ক্রুইজসেন

8
@ কেভিন ক্রুজসেন কেবল একটি পার্শ্ব নোট, তবে আপনি কীভাবে ব্যবহার করেন তা আমি মনে করি না ...
লিকি নুন

1
সাইটে স্বাগতম! এটি একটি শালীন চ্যালেঞ্জ, তবে এটি কিছুটা অস্পষ্ট। আপনি যা জিজ্ঞাসা করছেন তা অস্পষ্ট হিসাবে ভোট দেওয়ার জন্য আমি ভোট দিচ্ছি, তবে আপনি যদি তাদেরকে রূপান্তর করতে এবং কিছু পরীক্ষার ক্ষেত্রে সরবরাহ করার জন্য অ্যালগরিদম ব্যাখ্যা করেন তবে আমি আমার ভোট প্রত্যাহার করব।
জেমস

2
@ কেভিন ক্রুইজসেন অ্যাডভার্ট বিভাগে এটি দক্ষিণ আফ্রিকা বলে । এটি স্ট্যান্ডার্ড ইংরাজীতে সেভাবে ব্যবহৃত হয় না। আমরা ব্যবহার ~
mbomb007

1
কাছের ভোটের বার্তাটি কিছুটা বিভ্রান্তিমূলক, কারণ এটি আমাদের প্রশ্নোত্তর শিকড় থেকে উদ্ভূত, তবে সত্যই এটি "আপনি কী জিজ্ঞাসা করছেন তা অস্পষ্ট হয়ে গিয়েছিল"। মন্তব্যে স্পষ্টির জন্য বেশ কয়েকটি অনুরোধ রইল যেগুলিকে সম্বোধন করা হয়নি: বিশেষত 0 থেকে 1 এর মধ্যে ফ্লোট হিসাবে ইনপুট এবং আউটপুটগুলি অনুমোদিত কিনা (বা এটি 0 থেকে 255 পর্যন্ত পূর্ণসংখ্যা হতে হবে কিনা), রূপান্তরটি আসলে কীভাবে কাজ করে, এবং আপনি কিছু পরীক্ষার কেস অন্তর্ভুক্ত করতে পারেন কিনা।
মার্টিন ইন্ডার

উত্তর:


8

ডায়ালগ এপিএল , 16 15 বাইট

1-⊢(÷,255÷⍨⊢)⌈/

Y দ্বারা বিভক্ত 1 বিয়োগ 1-
X , 255 এর পরে ভাগ করে Y , যেখানে এক্স নিজেই (যেমন আরজিবি মানগুলির তালিকা) এবং Y হ'ল (আরজিবি মানগুলির) of÷ ,255÷⍨
  
  /⌈

{জে=মিএকটিএক্স(আর,জি,বি)সি=1-আরজেএম=1-জিজেওয়াই=1-বিজেকে=1-জে255

TryAPL!

ক্রেডিট:
 n -1 বাইট দ্বারা ngn


পিপিসিজি কখন ম্যাথজ্যাক্স পাচ্ছে?
নীল


+1 এর জন্য ! চমৎকার ইমোটিকন
প্রোগ্রামার

1
@ প্রোগ্রামার ৫০০০ আপনাকে ধন্যবাদ আপনি আমার কোড-গল্ফগুলিতে এটি পেয়ে যাবেন। এটি ফাংশনের যুক্তিগুলি তার বামে অদলবদল করে। অন্যান্য এপিএল ইমোটিকনগুলি হলেন এবং । আমি আশা করি আমরা কিনবো এবং শীঘ্রই।
অ্যাডম

@ অ্যাডাম আমাকে খুশি করবে!
প্রোগ্রামার

8

সি # , 88 86 85 84 বাইট

(r,g,b)=>{float[]a={r,g,b,1};var j=a.Max();a[3]=j*j/255;return a.Select(x=>1-x/j);};

এর জন্য আউটপুট 108,174,106:

0.3793104
0
0.3908046
0.3176471

যেহেতু ওপি ফাংশন অনুমতি দেয় আমি কেবল ল্যাম্বড জমা দিয়েছি। নেটফিডেলে আপনি একটি চলমান ডেমো খুঁজে পেতে পারেন । আমি কোনও গল্ফার নই, মজাদার জন্য পোস্ট করি। এছাড়াও, এটি আমার প্রথম উত্তর \ o /। কোন উন্নতি মন্তব্য নির্দ্বিধায় :)

সূত্রটির জন্য কুডোস থেকে লিকি নুন।

সতর্কতা: এটি [0,0,0] এর জন্য কাজ করে না (ধন্যবাদ তিতাস)


1
1.0-x/j? তুমি নিশ্চয়ই পারবে না 1-x/j?
এরিক দি আউটগল্ফার

@ EʀɪᴋᴛʜᴇGᴏʟғᴇʀ হ্যাঁ পারি! এটি একটি অভিজ্ঞতা থেকে বিশ্রাম ছিল। লক্ষ্যটি ছিল অটো কাস্ট করা দ্বিগুণ। আমি এটি অপসারণ।
কোডিসডটকম.কম

1
যাইহোক বিয়োগের জন্য আপনার এটির দরকার নেই। এছাড়াও, আপনি পুনরায় ব্যবহার a[3]করবেন বলে মনে হয় না এবং এর জন্য আপনি কোনও নির্দিষ্ট আকার নির্দিষ্ট করে বলে মনে করেন না a, তাই আপনি এটি করতে পারেন {r,g,b}এবং a[3]=j*j(কারণ যাইহোক, 1 * a = a)।
এরিক আউটগলফার

@ EʀɪᴋᴛʜᴇGᴏʟғᴇʀ আমি পুনঃব্যবহার করছি aসঙ্গে select()। আমি যদি a[3]এই জাতীয় ব্যবহার করি তবে আমি সীমার বাইরে চলে যাব, না?
কোডিসডটকম ডটকম এলোআইএসডিগ

1
দুর্দান্ত প্রথম উত্তর এবং পিপিসিজিতে আপনাকে স্বাগতম! আপনি যদি অন্য ভাষাগুলির উত্তরগুলির মতো বৃহত ফন্টে (যা সাধারণত এখানে স্ট্যান্ডার্ড হয়) আপনার ভাষা এবং বাইটগুলি প্রদর্শন করতে চান তবে আপনি #লাইনের সামনে একটি যুক্ত করতে পারেন । :)
কেভিন ক্রুইজসেন

4

পাইথন, 46 বাইট

lambda*c:[1-i/max(c)for i in c]+[1-max(c)/255]

পাইথন 2 এ ভাসমান হতে ইনপুট প্রয়োজন, মোটামুটি নিশ্চিত যে এটি 3-এ নেই।


3

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

a=>[...a.map(e=>1-e/m||1,m=Math.max(...a)),1-m/255]

একটি অ্যারে গ্রহণ করে [R, G, B](পৃথক প্যারামিটারগুলির জন্য 7 বাইট যোগ করুন) এবং [C, M, Y, K]অব্যক্ত রঙীন ম্যাপিং ব্যবহার করে একটি অ্যারে প্রদান করে।


আপনার দ্বিতীয় উত্তরের CYMK অর্ডারটি সম্পর্কে নিশ্চিত? আমার কাছে সিএমওয়াইকের মতো দেখাচ্ছে।
তিতাস

২) আপনি কি জানেন যে কেন aএটির উপাদানগুলি মিশ্রিত করে? এটা অদ্ভুত। 3) আপনি [0,0,0] পরীক্ষা করেছেন? ইএস-তে কোনও ব্যতিক্রম নয়, তবে শূন্য দ্বারা বিভাগের মতো দেখায়।
টাইটাস

দুঃখিত, তারা দুজনই সিএমওয়াই ছিল, এটাই আমার দোষ ছিল। এখন [0,0,0] কেসও স্থির করে।
নিল

4) [...a,m=Math.max(...a)]আপনার অ্যারে সমাধান চেষ্টা করুন । 5) আপনি কি অন্যটিকে ইনপুট হিসাবে অ্যারে ব্যবহার করে আরও গল্ফ করতে পারেন? a.0পরিবর্তে ইত্যাদি ব্যবহার বিবেচনা করুন .map
তিতাস

@ টিটাস আমি এখন সম্পূর্ণ নতুন পদ্ধতি নিয়ে এসেছি যা আসলে সিএমওয়াইকে অর্ডার পছন্দ করে এবং by বাইটও সঞ্চয় করে!
নিল

3

ম্যাথামেটিকাল, 36 28 33 বাইট

List@@ColorConvert[{##}/255,"CMYK"]&

আই / ও ফর্ম্যাটগুলি উদারকরণের পরে আরও গল্ফ হয়েছে: List@@#~ColorConvert~"CMYK"&

বেনামে ফাংশন, যা চাওয়া হয় তা করে।

পুরানো ফাংশনটি 0 থেকে 255 পর্যন্ত তিনটি আর্গুমেন্ট গ্রহণ করে (এই সীমা ছাড়িয়ে যে কোনও কিছুই স্বয়ংক্রিয়ভাবে এই ব্যাপ্তিতে ক্লিপ হবে) এবং এর মধ্যে "সিএমওয়াইকে" মানগুলির একটি অ্যারে প্রদান করে 0.and1.

উদাহরণ (পুরানো ফাংশনের জন্য):

List @@ ColorConvert[{##}/255, "CMYK"] &[108, 174, 106]
{0.37931, 0., 0.390805, 0.320313}

যেহেতু অ্যারেগুলি ইনপুট হিসাবে অনুমোদিত, তাই 33 বাইট:

List@@ColorConvert[#/255,"CMYK"]&

অবশ্যই বিল্ট-ইন ফাংশন হ্যান্ডলগুলি {0, 0, 0}সঠিকভাবে এবং আয় {0, 0, 0, 1}


1) স্পষ্ট করার জন্য: ইনপুট মানগুলি অবশ্যই [0; 255] এ থাকা উচিত। এক মিনিটের মধ্যে প্রশ্নটি সম্পাদনা করবে, ২) দয়া করে পরীক্ষা করুন [0,0,0]। 3) কি করা উচিত /255?
তিতাস

@ টিটাস আপনি ঠিক বলেছেন, এটির 255, এই মুহূর্তে সমস্ত সমস্যার সমাধান করতে পারে না, তবে আমি খুব তাড়াতাড়ি সুবিধার্থে জিনিসগুলি ঠিক করব
এলএলএএমএনওয়াইপি

@ টিটাস এটি ঠিক করেছে
LLlAMnYP

2

বাশ + চিত্রম্যাগিক, 69 বাইট

convert "xc:$1[1x1]" -colorspace cmyk txt:-|grep -o '([^)]*)'|head -1

উদাহরণ:

$ ./rgb2cmyk.sh "#6CAE6A"
(38%,0%,39%,32%)

$ ./rgb2cmyk.sh "#000000"
(0%,0%,0%,100%)

$ ./rgb2cmyk.sh "#AAFFEE"
(33%,0%,7%,0%)

$ ./rgb2cmyk.sh "#0088ff"
(100%,47%,0%,0%)

$ ./rgb2cmyk.sh "#FAEBD7"
(0%,6%,14%,2%)

$ ./rgb2cmyk.sh "#123456"
(79%,40%,0%,66%)

2

স্মাইলব্যাসিক, 73 72 বাইট

INPUT R,G,B
J=MAX(R,G,B)IF!J THEN?0,0,0,1 ELSE?1-R/J,1-G/J,1-B/J,1-J/255

অনেক খাটো হতে পারে।


তুমি কি লিখতে J=MAX(R,G,B)চাও?
আন্ডারাকিস

হ্যাঁ, আপনাকে ধন্যবাদ.
12

2

পাইথ, 24 21 18 24 21 বাইট

জীবন সত্যই একটি বৃত্তাকার ভ্রমণ।

= সিআর 255 কিউ + এমসি - 1 ডি কে-1 জিজিএসকিজেকিউ 
= সিআর 
255 কিউ + এমসি-জেএসকিউজেকি -1 জে + এমসি-জেএসকিউজেজে -1 সিজে 255
 + এমসি-জেএসকিডি + জ ^ টি_15 কিউ -1 সিজে 255
+ M-1? JeSQcdJ1Q-1cJ255

পরীক্ষা স্যুট.

নমুনা ইনপুট: 108,174,106

নমুনা আউটপুট: [0.3793103448275862, 0.0, 0.3908045977011494, 0.3176470588235294]

নমুনা ইনপুট: 0,0,0

নমুনা আউটপুট: [0, 0, 0, 1.0]

সূত্র ব্যবহৃত:

{জে=মিএকটিএক্স(আর,জি,বি)সি=1-আরজেএম=1-জিজেওয়াই=1-বিজেকে=1-জে255

পুরানো সূত্র: http://i.stack.imgur.com/ZtPD6.gif

পুরানো সূত্র: http://i.stack.imgur.com/Nqi9F.gif


দুর্দান্ত গল্ফিং একটি ভাঙ্গনের জন্য যত্ন?
তিতাস

2

লিথপ , 114 বাইট

#R,G,B::((var J(max R G B))(if(!= 0 J)((list(- 1(/ R J))(- 1(/ G J))(- 1(/ B J))(- 1(/ J 255))))((list 0 0 0 1))))

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

  • 6 টি বাইট সংরক্ষণ করা হয়েছে (ভুলে গেছেন যে maxকোনও সংখ্যক আর্গুমেন্ট লাগে)

আমি ঠিক নিশ্চিত না যে এটি ঠিক। নমুনা ডেটা সহ প্রথম দুটি ফলাফল সঠিক, তবে বাকিগুলি নেই ( অনলাইনে চেষ্টা করে দেখুন ))

নীচে সুন্দরভাবে বর্ণিত বাস্তবায়নটি ব্যবহার করে:

{জে=মিএকটিএক্স(আর,জি,বি)সি=1-আরজেএম=1-জিজেওয়াই=1-বিজেকে=1-জে255


1

পিএইচপি 7, 123 110 105 বাইট

আরজিবি রঙ হিসাবে ইনপুট 100 240 75

$j=max($h=$argv);echo strtr(@(1-$h[1]/$j).",".@(1-$h[2]/$j).",".@(1-$h[3]/$j).",".(1-$j/255),["NAN"=>0]);

দশমিক 0...1পরিসীমা হিসাবে সিএমওয়াইকে মান আউটপুট করে ।

টাইটাসকে প্রচুর বাইট সংরক্ষণ করা হয়েছে।

নমুনা ব্যবহার:

php -r '$j=max($h=$argv...' 100 240 75
0.58333333333333,0,0.6875,0.058823529411765

php -r '$j=max($h=$argv...' 255 255 255
0,0,0,0

php -r '$j=max($h=$argv...' 0 255 0
1,0,1,0

php -r '$j=max($h=$argv...' 0 0 0 
0,0,0,1

অনলাইন পরীক্ষা


এইচএক্স রঙ হিসাবে ইনপুট #123456, 202 বাইট

$h=str_split(substr($argv[1],-6),2);$j=max($r=hexdec($h[0]),$g=hexdec($h[1]),$b=hexdec($h[2]));echo z($r,$j),",",z($g,$j),",",z($b,$j),",",1-$j/255;function z($c,$y){return is_nan(@($c/$y))?0:1-$c/$y;}

শূন্য দ্বারা বিভাজন রোধ করতে ফাংশনের জন্য 54 বাইট, সম্ভবত গল্ফযোগ্য বা অপসারণযোগ্য।

এইচএক্স হিসাবে ইনপুট আরজিবি রঙ হিসাবে পাওয়া যায় #123456এবং সিএমওয়াইকে দশমিকের 0...1পরিসীমা হিসাবে আউটপুট করে ।

নমুনা ব্যবহার:

php -r '$h=str_split...' '#000000'
0,0,0,1

php -r '$h=str_split...' '#ffffff'
0,0,0,0

php -r '$h=str_split...' '#123456'
0.7906976744186,0.3953488372093,0,0.66274509803922

php -r '$h=str_split...' '#ffff00'
0,0,1,0

separate numeric valuesএর অর্থ আপনি গ্রহণ করতে পারেন $h=$argv;এবং $h[1]পরিবর্তে ব্যবহার করতে পারেন $h[0]ইত্যাদি ইত্যাদি। আমি NANকৌশলটি পছন্দ করি ; তবে কি সেই সতর্কবার্তা পাওয়া যায় না? strtrসম্ভবত এর চেয়ে সংক্ষিপ্ত str_replace, এবং NANকোনও কোটেশন প্রয়োজন নেই (বিজ্ঞপ্তি দেবে, তবে সেগুলি ডিফল্ট কনফিগারেশনে প্রদর্শিত হবে না)।
তিতাস

এছাড়াও, দয়া করে এই পিএইচপি সংস্করণ সরবরাহ করুন যা এটি কাজ করে It এটি পিএইচপি 7 (যেখানে 1/0ফলাফল আসে INF) বা পিএইচপি 5 ( 1/0=> false) এ না।
তিতাস

@ টিটাস $argvকমান্ড লাইনে খুব আকর্ষণীয় অ্যারে টিপের জন্য ধন্যবাদ ! আমি পিএইচপি সংস্করণ যুক্ত করেছি। এটি এর সাথে কাজ করে NANকারণ আপনি যখন str_replaceএটি ব্যবহার করেন তখন স্পষ্টভাবে সংখ্যাকে স্ট্রিংয়ে রূপান্তর করে তাই এটি আউটপুট হয় NAN, বাস্তবে আপনি যদি এই লিঙ্কটিতে পরীক্ষা করেন , আপনি দেখতে পাবেন যে এটি NANএর str_replace("INF"পরিবর্তে আউটপুট দেয় str_replace("NAN"। আমি এটি ব্যবহার করে কাজ করতে পারি না strtr। আমি @সতর্কতা দমন করতে যোগ করেছি ।
মারিও

আমি আমার ভুল পাওয়া গেছে: $n/0হয় INF, কিন্তু 0/0হয় NAN(এছাড়াও পিএইচপি 7.0 এ)। আপনি 4 বাইট str_replace(NAN,0,$s)বা 6 বাইট সহ বাঁচাতে পারবেন strtr($s,["NAN"=>0)
তিতাস

@ টিটাস দুর্দান্ত ধন্যবাদ, আমি কীভাবে সঠিকভাবে ব্যবহার করতে পারি তা বুঝতে পারি না strtr();
মারিও

1

পিএইচপি, প্রতিযোগিতা নয়

আমি নিজের পোস্ট করার জন্য খুব লোভ পেয়েছিলাম।

আরজিবি ইনপুট, by৪ বাইট

for(;$i++<4;)echo$i<4?($j=max($argv))?1-$argv[$i]/$j:0:1-$j/255,","[$i>3];

বা আউটপুটে একটি পিছনের কমা সহ 68 বাইট: অপসারণ [$i>3]

সাথে চালাও php -r '<code>' <red-value> <green-value> <blue-value>

এইচএক্স ইনপুট, 100 বাইট

foreach($a=array_map(hexdec,str_split($argv[1],2))as$c)echo($j=max($a))?1-$c/$j:0,",";echo 1-$j/255;  

সাথে চালাও php -nr '<code>' RRGGBB

যে পদ্ধতির আরজিবি ইনপুট জন্য 75 বাইট নিতে হবে:
প্রতিস্থাপন foreach($a=array_map...as$c)সঙ্গে foreach($a=$argv as$c)if($i++)


0

সি, 155 বাইট

#define C(x) 1-x/(j>0?j:1)
#define F float
i=0;F j;f(F r,F g,F b){j=(r>g?r:g)>b?(r>g?r:g):b;for(;i++<4;)printf("%f\n",i>1?i>2?i>3?1-j/255:C(b):C(g):C(r));}

আমি কীভাবে এটি আরও গল্ফ হতে পারে তা জানার চেষ্টা করছি।

ব্যবহার:

#define C(x) 1-x/(j>0?j:1)
#define F float
i=0;F j;f(F r,F g,F b){j=(r>g?r:g)>b?(r>g?r:g):b;for(;i++<4;)printf("%f\n",i>1?i>2?i>3?1-j/255:C(b):C(g):C(r));}
main(){
    f(108,174,106);
}

আউটপুট:

0.379310
0.000000
0.390805
0.317647

1) +3: ভুল: ফাংশন ফলাফল মুদ্রণ করা উচিত, এটি মুদ্রণ না। (দুঃখিত আমি এটি দেখেছি) 2) +4: ত্রুটি: আমি ঘোষিত হয়নি। 3) +0: ত্রুটি: আপনার টার্নারি অপারেটরগুলি বন্ধ বলে মনে হচ্ছে। হওয়া উচিত নয়i>0?i>1?i>2
তিতাস

তবে কিছু গল্ফ সম্ভাবনা আছে; আমি এএনএসআই সি -২২ বাইট এবং সি -৯৯ এ অন্য -১৯ পেয়েছি। 2 বাইট এখানে: j>0?লুপ থেকে মুক্তি পাওয়ার 17 এবং jসংজ্ঞা বিভাজনে 6
তিতাস

ফাংশনটির জন্য আরও একটি +3 যুক্ত করুন: এটি ইনট ব্যতীত অন্য কিছু দেয়, সুতরাং একটি রিটার্নের ধরণের প্রয়োজন ( F *)। তবে আমি C99 এ গল্ফের কাছে আরেকটি বাইট পেয়েছি।
টাইটাস

@ টিটাস যদি আমার ভুল j>0?j:1না হয় তবে j+!j-৩ বাইট অর্জন করা যেতে পারে ।
অ্যালবার্ট রেনশো

এবং আমি মনে করি Cম্যাক্রো ভুল: 1-x/1জন্য j==0? আমি মনে করি এটি হওয়া উচিত 1-(j>0?x/j:1)
তিতাস

0

হুন , 110 বাইট

=>
rs
|*
a/*
=+
[s=(cury sub .1) j=(roll a max)]
(welp (turn a |*(* (s (min .1 (div +< j))))) (s (div j .255)))

একক নির্ভুলতা ভাসমান-পয়েন্ট লাইব্রেরি ব্যবহার করুন। একটি নতুন জেনেরিক ফাংশন তৈরি করুন যা লাগে a। সেট sথেকে subসঙ্গে curried .1, এবং পরবর্তী সময়ের জন্য jধরে ভাঁজ করার aসঙ্গেmax

aপ্রতিটি উপাদানকে সাথে ভাগ করে মানচিত্রটি jন্যূনতম করতে নূন্যতম এবং 1 টি সন্ধান করুন, তারপরে 1 টি বিয়োগ করুন s1-j/255তালিকাটির শেষে যুক্ত করুন ।

> =f =>
  rs
  |*
  a/*
  =+
  [s=(cury sub .1) j=(roll a max)]
  (welp (turn a |*(* (s (min .1 (div +< j))))) (s (div j .255)))
> (f (limo ~[.108 .174 .106]))
[i=.3.7931037e-1 t=[i=.0 t=[i=.3.908046e-1 .3.1764704e-1]]]
> (f (limo ~[.0 .0 .0]))
[i=.0 t=[i=.0 t=[i=.0 .1]]]

আপনি একটি TiO প্রদান করতে পারেন দয়া করে।
তিতাস

@ টিটাস: দুর্ভাগ্যক্রমে হুনের টিওও সাইট নেই।
রেন্ডারসেটেটিং
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.