advent of code 2017

هدفي ، مثل العام الماضي ، هو أن أفعل كل يوم بلغة مختلفة. سنرى ما يحدث. قد أعود وأقوم بعمل حلول متعددة ليوم واحد إذا لم أكن أشعر بالأسف لعدم القيام بشيء ما في APL أو LISP.

يجب أن أضيف إخلاء المسئولية بأن العديد من هذه الحلول ليست اصطلاحًا في اللغات المختارة. في بعض الأحيان لأنني لست على دراية بالاتفاقيات ، وأحيانًا لأنني أتحدىها بنشاط.

سابقًا.

• 1: Futhark
  • s ← "123123" ⋄ +/⍎¨"0",s/⍨s=s⌽⍨2÷⍨⍴s في APL
• 2: روبي
  • +/ ((#~(=>.))@(#~(1&~:))@,@(%/]))"1 is في J
• 3: و#
  • أيضا في CL. أراد لغة مع كل من المولدات والأرقام المعقدة لهذا الغرض ؛ من الصعب أن تسأل بشدة.
• 4: مخطط Guile
  • sum(1 for l in f if len({''.join(sorted(w)) for w in l.split()}) == len(l.split()))
• 5: قابلة للتمهيد X86 ASM باستخدام تعليمات BOUND
  • for (size_t i = 0; i < N; ++n) i += j[i] <3 ? j[i]++ : j[i]--;
• 6: GNU smalltalk
• 7: SWI Prolog
• 8: عامل
• 9: أيقونة

بعض النقاش حول هذا يؤدي إلى عرض بعض هذه القائمة على أنها (بشكل مفرط غير محظور).

 with open ( 'day1.in' ) as f : ds = [ int ( c ) for c in f . readline (). strip ()]
r = 1 # or len(ds)/2 for part 2
sum ( a for ( a , b ) in zip ( ds , ds [ r :] + [ ds [: r ]]) if a == b )

 with open ( 'day2.in' ) as f : ls = [[ int ( i ) for i in line . strip (). split ()] for line in f ]
sum ( max ( row ) - min ( row ) for row in ls )
sum ([ q // d for q in row for d in row if q != d and 0 == q % d ][ 0 ] for row in ls )

 with open ( 'day4.in' ) as f : sum ( 1 for l in f if len ( set ( l . split ())) == len ( l . split ()))
with open ( 'day4.in' ) as f : sum ( 1 for l in f if len ({ '' . join ( sorted ( w )) for w in l . split ()}) == len ( l . split ()))

 > >> with open ( "day5.in" ) as f : jumps = [ int ( i ) for i in f ]
> >> i , n = 0 , 0
> >> while 0 <= i < len ( jumps ): j = i + jumps [ i ]; jumps [ i ] = jumps [ i ] + ( 1 if jumps [ i ] < 3 else - 1 ); n += 1 ; i = j
> >> print ( n )