| word | sense | sense |
|---|---|---|
| cross | wordsense-01913997-v-1 | wordsense-02023396-v-2 |
| farsightedness | wordsense-14555214-n-2 | wordsense-14554011-n-4 |
| get_up | wordsense-00018405-v-1 | wordsense-01974062-v-4 |
| lift | wordsense-01455184-v-2 | wordsense-01974062-v-2 |
| raise | wordsense-01975587-v-1 | wordsense-01974062-v-1 |
| make | wordsense-01646075-v-1 | wordsense-01645601-v-3 |
| do | wordsense-02561995-v-1 | wordsense-01645601-v-2 |
Alexandre Rademaker arademaker
🎯
arademaker
/ alc-in-snark.lisp
Created
June 20, 2017 10:33
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (ql:quickload :snark) | |
| (initialize) | |
| (use-resolution t) | |
| (defun var-complemente (var) | |
| (if (equal var '?x) | |
| '?y | |
| '?x)) |
arademaker
/ slime on emacs
Created
January 20, 2017 12:10
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (setenv "LANG" "en_US.UTF-8") | |
| (setenv "LC_ALL" "en_US.UTF-8") | |
| (prefer-coding-system 'utf-8) | |
| (set-language-environment "UTF-8") | |
| ;; slime setup | |
| (use-package slime | |
| :init | |
| (load (expand-file-name "~/quicklisp/slime-helper.el")) | |
| :config |
arademaker
/ racer.lisp
Created
September 18, 2016 14:13
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| RACER-USER> (signature :atomic-concepts (A C a1 a2) | |
| :roles (h)) | |
| ; No value | |
| RACER-USER> (equivalent a1 (and (some h A) (all h C))) | |
| A1 | |
| RACER-USER> (equivalent a2 (some h C)) | |
| A2 | |
| RACER-USER> (concept-subsumes? a1 a2) | |
| NIL | |
| RACER-USER> (concept-subsumes? a2 a1) |
arademaker
/ with-open-files.lisp
Last active
February 9, 2020 18:31
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defmacro with-open-files (args &rest body) | |
| (let ((res `(progn ,@body))) | |
| (reduce (lambda (acc e) `(with-open-file (,@e) ,acc)) args | |
| :initial-value res))) | |
| (defmacro with-open-files-1 (args &rest body) | |
| (let ((res `(progn ,@body))) | |
| (dolist (a (reverse args) res) | |
| (setf res `(with-open-file (,@a) | |
| ,res))))) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defun group-by (alist n &optional res) | |
| (if (null alist) | |
| (reverse res) | |
| (group-by (subseq alist n) n (cons (subseq alist 0 n) res)))) | |
| (defun split-gloss (gloss) | |
| (let* ((re "[ ]*;[ ]*\"[^\"]+\"") | |
| (pos (cl-ppcre:all-matches re gloss)) | |
| (bw '(#\; #\" #\Space))) | |
| (if pos |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;; ERC | |
| (erc-autojoin-mode t) | |
| (setq erc-save-buffer-on-part nil | |
| erc-save-queries-on-quit nil | |
| erc-log-write-after-send t | |
| erc-log-write-after-insert t | |
| erc-echo-notices-in-minibuffer-flag t | |
| erc-log-channels-directory "~/.erc/logs/" | |
| erc-autojoin-channels-alist '(("freenode.net" "#lisp") | |
| ("wnpt.brlcloud.com" "#brl"))) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| CL-USER> (pushnew "/opt/local/lib/" cffi:*foreign-library-directories* :test #'equal) | |
| ("/opt/local/lib/" (CFFI::EXPLODE-PATH-ENVIRONMENT-VARIABLE "LD_LIBRARY_PATH") | |
| (CFFI::EXPLODE-PATH-ENVIRONMENT-VARIABLE "DYLD_LIBRARY_PATH") (UIOP/OS:GETCWD) | |
| (CFFI::DARWIN-FALLBACK-LIBRARY-PATH)) | |
| CL-USER> (ql:quickload :cl-yaml) | |
| To load "cl-yaml": | |
| Load 1 ASDF system: | |
| cl-yaml | |
| ; Loading "cl-yaml" |
arademaker
/ morpholinks
Last active
October 15, 2015 19:26
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| > tmp.1 <- data[grep("person",data$lex..file2,invert=TRUE),] | |
| > subset(tmp.1, rel == "nomlex:agent", c(1,3,4,5,6,7,8,9)) | |
| word1 word2 synset1 synset2 lex..file1 lex..file2 suffix class | |
| 77 adaptar adaptador 00299580-v 02678897-n verb.change noun.artifact or REGULAR | |
| 103 fabricar fabricante 01653442-v 08060446-n verb.creation noun.group nte REGULAR | |
| 237 tripular tripulação 01089614-v 08273167-n verb.competition noun.group ção REGULAR | |
| 254 imigrar imigração 00413432-v 08413834-n verb.change noun.group ção REGULAR | |
| 273 transferir transferência 02220461-v 01107932-n verb.possession noun.act cia REGULAR | |
| 294 servir serviço 02541251-v 08186047-n verb.social noun.group o REGRESSIVE | |
| 357 roer roedor 01445597-v 02329401-n verb.contact noun.animal or REGULAR |
arademaker
/ repeated-words.org
Created
September 22, 2015 19:20
arademaker
/ output
Last active
September 28, 2015 17:24
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| $ awk '{print $2, $2, $4, "#"}' train.pt | /media/data/src/freeling/src/utilities/train-tagger/bin/change-corpus-dict pt /usr/local/share/freeling/ | |
| O O DET # o DA0MS0 0.946534 o PD0MS000 0.0337339 o PP3MSA00 0.0197186 o NCMS000 1.38766e-05 | |
| objetivo objetivo NOUN # objetivo AQ0MS0 0.554567 objetivo NCMS000 0.390889 objetivo NP00000 0.0545441 | |
| dos dos ADP # de SPS00 1 | |
| principais principais ADJ # principal AQ0CP0 0.99061 principais NCMP000 0.00469484 principal NCMP000 0.00469484 | |
| hotéis hotéis NOUN # hotel NCMP000 1 | |
| da da ADP # de SPS00 1 | |
| cidade cidade NOUN # cidade NCFS000 1 | |
| é é VERB # ser VMIP3S0 1 | |
| que que CONJ # que PR0CN000 0.586684 que CS 0.39617 que PT0CN000 0.0167849 que PE0CN000 0.000361319 |