[קל] fbin$ - תוצאות

[Ohad]

תיאור:
האתגר הוא להחזיר את המספר העשרוני של מספר בינארי שמתקבל כקלט.
הייתי מציע לכם לקרוא את זה לפני שתשלחו את פתרונכם לאתגר.
לאתגר זה יהיו שני קטוגריות:

• קודים עם ראגאקס
• קודים ללא ראגאקס

תחביר:

קוד: בחר הכל

$fbin(N)

מועד אחרון לשליחה: יום רביעי, 28/7/2010 בשעה 20:00
סוג: הקוד הקצר ביותר מנצח

איסורים:

• DLLs
• Sockets
• COM Objects
• base$

קלט (אין לבדוק אותו):

• $1 >= 0
• $1 יכיל רק 0 ו/או 1

פלט:

• לפני הפלט לא יופיעו אפסים מיותרים (משמע רק כאשר הקלט הוא 0, אז הפלט יתחיל ב-0)
• הפלט לא יכיל הודעות שגיאה
• הפלט יהיה רק מספר

דוגמאות:

קוד: בחר הכל

$fbin(1101) = 13
$fbin(0) = 0
$fbin(1) = 1
$fbin(1001001) = 73
$fbin(11111111) = 255
$fbin(1111111101) = 1021
$fbin(00001101100) = 108


חוקים:

• כל משתמש רשאי להגיש שני קודים:
  
  • קוד עם ראגאקס
  • קוד בלי ראגאקס
  המשתמש רשאי לערוך כל אחד מהקודים הנ"ל פעם אחת (בסה"כ מקסימום 4 שליחות)
• את הפתרונות יש לשלוח אליי בהודעה פרטית בפורום, כאשר בכותרת מצויין שם האתגר (fbin$) וקטוגריית הקוד (עם ראגאקס או ללא ראגאקס)
• הקוד חיב לתת תוצאות נכונות ברציפות (קוד שיעבוד בפעם הראשונה ולאחר מכן לא יעבוד יותר - יחשב כפסול)
• מספרים הבתים יקבע ע"י מונה הבתים של Kol או ע"י מונה הבתים של Bluebus112 (שניהם זהים)

תנאי בדיקה:

• הקוד יבדק בסקשן האליאסים במירק גירסאת 6.35 נקי
• הקוד צריך להיסגר בצורה חוקית (זאת אומרת שאם פתחתם סוגר מסולסל } אז אתם חייבים לסגור אותו)

פתרונות (לפי סדר השליחה):
1. TrAsKy
vendetta .2
Ocean .3
Ventox .4
uns .5
ZxoR .6
Nighthawk .7

בהצלחה!

[TrAsKy]

אתגר נחמד..
הכנתי משהו קטן לבדיקה

קוד: בחר הכל

alias fbincheck {
  if ($fbin(1101) = 13) echo -a 3OK - $v1
  else { echo -a 4ERROR(1101) }
  if ($fbin(0) = 0) echo -a 3OK - $v1
  else { echo -a 4ERROR(0) }
  if ($fbin(1) = 1) echo -a 3OK - $v1
  else { echo -a 4ERROR(1) }
  if ($fbin(1001001) = 73) echo -a 3OK - $v1
  else { echo -a 4ERROR(1001001) }
  if ($fbin(11111111) = 255) echo -a 3OK - $v1
  else { echo -a 4ERROR(11111111) }
  if ($fbin(1111111101) = 1021) echo -a 3OK - $v1
  else { echo -a 4ERROR(1111111101) }
  if ($fbin(00001101100) = 108) echo -a 3OK - $v1
  else { echo -a 4ERROR(00001101100) }
}

להפעלה

קוד: בחר הכל

/fbincheck

[ZxoR]

TrAsKy כתב:

אתגר נחמד..
הכנתי משהו קטן לבדיקה

קוד: בחר הכל

alias fbincheck {
  if ($fbin(1101) = 13) echo -a 3OK - $v1
  else { echo -a 4ERROR(1101) }
  if ($fbin(0) = 0) echo -a 3OK - $v1
  else { echo -a 4ERROR(0) }
  if ($fbin(1) = 1) echo -a 3OK - $v1
  else { echo -a 4ERROR(1) }
  if ($fbin(1001001) = 73) echo -a 3OK - $v1
  else { echo -a 4ERROR(1001001) }
  if ($fbin(11111111) = 255) echo -a 3OK - $v1
  else { echo -a 4ERROR(11111111) }
  if ($fbin(1111111101) = 1021) echo -a 3OK - $v1
  else { echo -a 4ERROR(1111111101) }
  if ($fbin(00001101100) = 108) echo -a 3OK - $v1
  else { echo -a 4ERROR(00001101100) }
}

להפעלה

קוד: בחר הכל

/fbincheck

אבל למה לא לעשות לולאה שתבדוק בעזרת $base עד 500 או משהו וזהו ?

[TrAsKy]

ZxoR כתב:

TrAsKy כתב:

אתגר נחמד..
הכנתי משהו קטן לבדיקה

קוד: בחר הכל

alias fbincheck {
  if ($fbin(1101) = 13) echo -a 3OK - $v1
  else { echo -a 4ERROR(1101) }
  if ($fbin(0) = 0) echo -a 3OK - $v1
  else { echo -a 4ERROR(0) }
  if ($fbin(1) = 1) echo -a 3OK - $v1
  else { echo -a 4ERROR(1) }
  if ($fbin(1001001) = 73) echo -a 3OK - $v1
  else { echo -a 4ERROR(1001001) }
  if ($fbin(11111111) = 255) echo -a 3OK - $v1
  else { echo -a 4ERROR(11111111) }
  if ($fbin(1111111101) = 1021) echo -a 3OK - $v1
  else { echo -a 4ERROR(1111111101) }
  if ($fbin(00001101100) = 108) echo -a 3OK - $v1
  else { echo -a 4ERROR(00001101100) }
}

להפעלה

קוד: בחר הכל

/fbincheck

אבל למה לא לעשות לולאה שתבדוק בעזרת $base עד 500 או משהו וזהו ?

זה לא כזה משנה כי אם קוד יעבור את התנאים האלו הוא טוב וככה הוא יבדק אז חפיף, זה סתם משהו קליל..

[ZxoR]

TrAsKy כתב:

ZxoR כתב:

TrAsKy כתב:

אתגר נחמד..
הכנתי משהו קטן לבדיקה

קוד: בחר הכל

alias fbincheck {
  if ($fbin(1101) = 13) echo -a 3OK - $v1
  else { echo -a 4ERROR(1101) }
  if ($fbin(0) = 0) echo -a 3OK - $v1
  else { echo -a 4ERROR(0) }
  if ($fbin(1) = 1) echo -a 3OK - $v1
  else { echo -a 4ERROR(1) }
  if ($fbin(1001001) = 73) echo -a 3OK - $v1
  else { echo -a 4ERROR(1001001) }
  if ($fbin(11111111) = 255) echo -a 3OK - $v1
  else { echo -a 4ERROR(11111111) }
  if ($fbin(1111111101) = 1021) echo -a 3OK - $v1
  else { echo -a 4ERROR(1111111101) }
  if ($fbin(00001101100) = 108) echo -a 3OK - $v1
  else { echo -a 4ERROR(00001101100) }
}

להפעלה

קוד: בחר הכל

/fbincheck

אבל למה לא לעשות לולאה שתבדוק בעזרת $base עד 500 או משהו וזהו ?

זה לא כזה משנה כי אם קוד יעבור את התנאים האלו הוא טוב וככה הוא יבדק אז חפיף, זה סתם משהו קליל..

אבל זה היה פי 2 קצר ופי 20 אפקטיבי.

[ZxoR]

קוד: בחר הכל

alias fbincheck {
  var %cur = 1,%max = 1000,%ers = 0
  while (%cur <= %max) {
    if ($fbin($base(%cur,10,2)) == %cur) { echo -asg BCheck: $+([,%cur,]) 3OK  } | else { echo -asg BCheck: $+([,%cur,]) 4ERROR | inc %ers }
    inc %cur
  }
  echo -asg 4Errors: %ers 1 $+ $(|) 13OK: $calc(%max - %ers)
}

חחח.

[TrAsKy]

ZxoR כתב:

קוד: בחר הכל

alias fbincheck {
  var %cur = 1,%max = 1000,%ers = 0
  while (%cur <= %max) {
    if ($fbin($base(%cur,10,2)) == %cur) { echo -asg BCheck: $+([,%cur,]) 3OK  } | else { echo -asg BCheck: $+([,%cur,]) 4ERROR | inc %ers }
    inc %cur
  }
  echo -asg 4Errors: %ers 1 $+ $(|) 13OK: $calc(%max - %ers)
}

חחח.

נחמד.. אמרתי לך בניתי סתם משהו חפיף.. אני לא רואה טעם לבדוק 1000 פעמים שמספיק 6
ועדיף כבר שתתחיל את הלולאה מ0 ולא מ1

[ZxoR]

TrAsKy כתב:

ZxoR כתב:

קוד: בחר הכל

alias fbincheck {
  var %cur = 1,%max = 1000,%ers = 0
  while (%cur <= %max) {
    if ($fbin($base(%cur,10,2)) == %cur) { echo -asg BCheck: $+([,%cur,]) 3OK  } | else { echo -asg BCheck: $+([,%cur,]) 4ERROR | inc %ers }
    inc %cur
  }
  echo -asg 4Errors: %ers 1 $+ $(|) 13OK: $calc(%max - %ers)
}

חחח.

נחמד.. אמרתי לך בניתי סתם משהו חפיף.. אני לא רואה טעם לבדוק 1000 פעמים שמספיק 6
ועדיף כבר שתתחיל את הלולאה מ0 ולא מ1

חחח דווקא שתדע לך שאתה לא צודק, וכדאי לבדוק 1000 מאשר 6 בדבר כזה...

[ZxoR]

שלחתי, תשתתפו חברים!

[Ocean]

המנצח לא צריך ליהיות כבר מפורסם??

[uns]

אני מניח שיפורסם בקרוב,
אני מהמר על אוראל (Nighthawk).

[Ohad]

טוב יחסית לאתגר ראשון הייתה הענות יפה.
בלי לדבר הרבה, התוצאות:

ללא-ראגאקס

מקום ראשון:
Nighthawk - 86 bytes

קוד: בחר הכל

fbin {
  %s = 0
  %i = 1
  while $pos($1,1,%i) {
    inc %s $calc(2^($len($1)-$v1))
    inc %i
  }
  return %s
}

מקום שני:
Ventox - 91 bytes

קוד: בחר הכל

fbin {
  %x = -1
  %L = 0
  while $mid($1,%x,1) >= 0 {
    inc %L $calc(2^(-1-1*%x)*$v1)
    dec %x
  }
  return %L
}

מקום שלישי:
uns - 94 bytes

קוד: בחר הכל

fbin {
  var %y $len($1),%z
  while %y {
    inc %z $calc($mid($1,%y,1)*2^($len($1)-%y))
    dec %y
  }
  return %z
}

מקום רביעי:
TrAsKy - 96 bytes

קוד: בחר הכל

fbin {
  %x = 1
  %y = 0
  while $mid($1,%x,1) >= 0 {
    inc %y $calc((2^($len($1)-%x))*$v1)
    inc %x
  }
  return %y
}

מקום חמישי:
Ocean - 100 bytes

קוד: בחר הכל

fbin {
  %a = 1
  %b = 0
  while %a <= $len($1) {
    inc %b $calc($mid($1,%a,1)*2^($len($1)-%a))
    inc %a
  }
  return %b
}

מקום שישי:
ZxoR - 112 bytes

קוד: בחר הכל

Fbin {
  var %A $1,%C 1,%N $len($1),%B 0
  while (%C <= %N) {
    inc %B $calc($mid(%A,%C,1) *2^(%N - %C))
    inc %C
  }
  return %B
}

Ohad - 79 bytes

קוד: בחר הכל

fbin {
  while 2 \\ $0 tokenize 2 $mid($1 $calc($left($1,1)+2*$2) b,2)
  return $1
}

הערות כלליות:

• יש מקומות במזהה calc שאפשר להוריד רווחים, תנסו להוריד אותם במקומות האפשריים.
• לפעמים כאשר מגדירים משתנים יותר קצר להגדיר את המשתנים כמשתנים גלובאלים ולא כמקומיים - var
• לפעמים אפשר להוריד את הסוגריים של התנאי (כאשר יש v1,v2,operator) אז תורידו אותם.
• אם אתם משתמשים בתנאי/תנאי לולאה במזהה מסוים שאתם משתמשים בו לאחר מכאן, אז תשתמשו ב
  
  קוד: בחר הכל

  $v1 $v2
• בקודים שקוראים מההתחלה לסוף (עם מינוסים) אז אפשר להשתמש בחישוב בדבר הבא:
  
  קוד: בחר הכל

  $calc(.5/2^%x *$v1)
  
  כאשר המשתנה x הוא אינדקס הלולאה שקטן כל פעם באחד ו-v1 הוא התו שבמספר שהתקבל (אחד/אפס).
• כאשר אתם עושים תנאי, עשו את כל המאמצים שהאופרטר יהיה תו אחד, נגיד אצל Ventox בקוד, אפשר לשנות את התנאי ל:
  
  קוד: בחר הכל

  $mid($1,%x,1) > '

ראגאקס
חבל שאף אחד לא השתתף...

Ohad - 51 bytes

קוד: בחר הכל

fbin return $calc($regsubex($1,/()/g,*2^( \0-\n)+))

תודה למשתתפים ובהצלחה באתגר הבא!

[Nighthawk]

תודה רבה לכולם וצוות האתר, אני רואה שהרבה עשו קודים ממש יפים.

מחכה כבר לאתגר הבא... והמון בהצלחה לאתר.

[Ohad]

עוד קוד חמוד ביותר שהוא יותר ארוך מהקוד המקורי שלי, אבל הקוד הזה ממש חמוד:

קוד: בחר הכל

fbin {
  while 2 \\ $0 tokenize 46 $mid($1. $calc(.1+ $left($1,1)+2*$2),2)
  return $1
}

81 bytes

[uns]

כל הכבוד אוראל!!