عربات القطار البلجيكية

group ( seq n -- groups )

USING: grouping ;

{ 1 2 3 4 5 6 7 } 3 group .
! => { { 1 2 3 } { 4 5 6 } { 7 } }

clump ( seq n -- clumps )

USING: grouping ;

{ 1 2 3 4 5 } 2 clump .
! => { { 1 2 } { 2 3 } { 3 4 } { 4 5 } }

split-when ( seq quot: ( elt -- ? ) -- pieces )

USING: splitting ;

{ 1 2 0 3 4 0 5 } [ zero? ] split-when .
! => { { 1 2 } { 3 4 } { 5 } }

monotonic-split ( seq quot: ( a b -- ? ) -- pieces )

USING: splitting.monotonic ;

{ 1 1 2 2 2 3 } [ = ] monotonic-split .
! => { { 1 1 } { 2 2 2 } { 3 } }

التعليمات

ليلة مزدحمة أخرى في ساحة الفرز في أنتويرب. أنت موجّه الحركة المناوب: يجب إعادة تجميع عربات الشحن القادمة في قطارات صادرة، وفحص الوصلات، وتقسيم المسارات عند المفاصل، ودمج الحمولات المتطابقة لأغراض الفوترة.

كل عربة هي سلسلة نصية تسمّي ما تحمله: "coal"، "timber"، "crates"، إلخ.

1. اقرن العربات في قطارات

عرّف couple لتأخذ مصفوفة من العربات وطولًا n، وتُرجع قطارات غير متداخلة من n عربة لكل قطار. قد يكون القطار الأخير أقصر إذا لم يقبل العدد القسمة بالتساوي.

{ "coal" "coal" "coke" "ore" "ore" "timber" "timber" } 3 couple .
! => { { "coal" "coal" "coke" } { "ore" "ore" "timber" } { "timber" } }

2. ألقِ نظرة على الوصلات

عرّف peek-couplings لتأخذ مصفوفة من العربات وتُرجع كل زوج متجاور، حتى يتمكن المفتش من فحص كل وصلة.

{ "coal" "ore" "timber" "crates" } peek-couplings .
! => { { "coal" "ore" } { "ore" "timber" } { "timber" "crates" } }

3. قسّم صفّ العربات عند المفاصل

عرّف split-at-junctions لتأخذ مصفوفة من العربات ومصفوفة junctions (عربات تحدّد نقطة قطع)، وتُرجع المقاطع الواقعة بين عربات المفاصل. لا تُحتفظ بعربات المفاصل نفسها.

{ "coal" "coal" "switch" "ore" "switch" "timber" }
{ "switch" } split-at-junctions .
! => { { "coal" "coal" } { "ore" } { "timber" } }

4. ادمج الحمولات المتطابقة

عرّف coalesce-cargo لتأخذ مصفوفة من العربات وتجمع العربات المتتالية الحاملة للحمولة نفسها في متتاليات.

{ "coal" "coal" "ore" "ore" "ore" "timber" "coal" } coalesce-cargo .
! => { { "coal" "coal" } { "ore" "ore" "ore" } { "timber" } { "coal" } }