loops - Removing sublists in a list by comparing them with an alist in Common Lisp -


this complicated, , i'm hoping there's simpler way it.

i'm comparing freshly generated list of "suggested connections" social networking site against "blocked suggestions" list. first list looks this:

((12 :mutuals 8 :ranking 8)(43 :mutuals 2 :mutual-groups (2) :ranking 4) ... )

the first value user id, , plist in cdr of each sublist "reasons" why person suggested.

the second list looks like:

((12 . 2) (3 . 4) (43 . 3) ...)

the car user id , cdr ranking had when "blocked" user's suggestions.

i want find way, each sublist in first list, compare against list of blocked suggestions. there 3 possible outcomes:

  • there no corresponding entry => leave suggestion in list.
  • there corresponding entry , ranking field 5 or more higher => leave suggestion in list , remove blocked suggestion index.
  • there corresponding entry ranking same or within 5 => remove suggestion list of suggestions.

my current code uses loop. best way me spell out literally possible.

(this in let block in defun. function (remove-suggestion) own function modifies hash table.)

    (let ((userid 10753) ; userid in program, example           (suggestion-list '((12 :mutuals 8 :ranking 8)(43 :mutuals 2 :mutual-groups (2) :ranking 4) (4 :mutuals 10 :ranking 10)))           (blocked-list '((12 . 2) (3 . 4) (43 . 3)))       (remove nil         (loop suggestion in suggestion-list               sug-id = (car suggestion)               sug-rank = (getf (cdr suggestion) :ranking)               collect                 (loop (block-id . block-rank) in blocked-list                       until (= block-id sug-id)                                              (if (/= block-id sug-id (return suggestion)                          (when (>= (- sug-rank block-rank) 5)                            (progn                              (remove-suggestion block-id userid :blocked t)                              (return suggestion))))))))

when evaluate in repl, get:

((12 :mutuals 8 :ranking 8)) (4 :mutuals 10 :ranking 10))

which right, since though user 12 blocked before, ranking went retained. user 43 removed because ranking had not gotten high enough. user 4 kept because there no corresponding entry in blocked list.

i'm hoping there way more cleanly. perhaps using combination of remove, remove-if, mapcar, and/or lambda?

i know store list in question defparameter , use

(remove suggested-contact <location> :key #'car)

which did before, don't conceptually.

if made end, congrats!

ok, can 2 remove-ifs - 1 each list.

for first one:

(remove-if (lambda (e)              (let ((blocked (assoc (first e)                                    '((12 . 2) (3 . 4) (43 . 3) ...)))                (and blocked (< (cdr blocked) 5))))            '((12 :mutuals 8 :ranking 8)              (43 :mutuals 2 :mutual-groups (2) :ranking 4)              ...))

and second:

(remove-if (lambda (e)              (and (member (car e)                           '((12 :mutuals 8 :ranking 8)                             (43 :mutuals 2 :mutual-groups (2) :ranking 4)                             ...)                           :key 'first)                   (>= (cdr e) 5))            '((12 . 2) (3 . 4) (43 . 3) ...))

-

Comments

Post a Comment

Popular posts from this blog

php - regexp cyrillic filename not matches -

i take list of files php glob(."*.pdf") . files have cyrillic names. example: ООО «Рога и копыта» then load company names database , try find them in file names: preg_match("/$firm_name/ui", $file_name, $match); i have problem: firms if $firm_name visually similar $file_name , preg_match says there no match. mb_detect_encoding both variables return utf-8. there problem in file name, or maybe there encoding or something, can not understand, ask help. upd: $file_name='ООО «Рога и копыта»'; preg_match("/... .Рога и копыта./ui", $file_name, $match); as result, ОО «Рога и копыта» , 1 О missing
Read more

c# - OpenXML hanging while writing elements -

Image
i have program pulls data database, caches file , exports data multiple formats (excel, excel 2003, csv). i'm using openxml sdk 2.0 excel work. these export processes run in parallel (using parallel.foreach ), , amount of data can pretty large - e.g. csvs 800mb. during these larger exports, i've noticed writing of xml documents hang. instance, if have 8 exporting in parallel, @ point "pause". hang around same point: //this.writer openxmlwriter created worksheetpart. this.writer.writeelement(new cell() { cellvalue = new cellvalue(value), datatype = cellvalues.string }); when happens, pause debugger (vs2013 in case) , notice threads blocking around same portion of code - bit deeper in openxml sdk - stem call openxmlwriter.writeelement . i dug through source using justdecompile didn't find answers. appears there intermediary stream in use writing isolated storage , is, reason, blocking. underlying stream each of these filestream . here screenshot ...
Read more

sql - Select Query has unexpected multiple records (MS Access) -

i may tired, can't seem figure out happening. have 2 queries. query 1 has 10 fields. query 2 has 5 fields. fields 1 through 3 same in both queries. trying write select query , simple add field 5 query2 query1 result should query1 additional field (query2.field5). i join first 3 fields both queries , choose select records in query1 , in query2 match. don't know sql, use query designer. expect same number of records have query 1 instead have 3 times or more. can tell me doing wrong. tried reversing joins still seem same records. thanks in advance. here query: the fields in common divisionname , supplierid = vendorid , commodityname . select [part revenue exposed query p1].divisionname, [part revenue exposed query p1].commodityname, [part revenue exposed query p1].suppliername, [part revenue exposed query p1].partnumber, [part revenue exposed query p1].partdescription, [part revenue exposed query p1].bucode, ...
Read more