æ–‡å—列ã®ãƒãƒƒã‚·ãƒ¥å€¤ã®è¨ˆç®— - imHoãƒãƒƒã‚·ãƒ¥ã®æ¦‚念ã¯ã‚ã‹ã‚‹ã€ã‘ã©å®Ÿéš›ã®ã¨ã“ã‚ã©ã‚“ãªã‚‚ã‚“ã‹ã‚ˆãã‚ã‹ã£ã¦ãªã„…。特ã«æ–‡å—列ã®ãƒãƒƒã‚·ãƒ¥å€¤ã‚’ã©ã†ã‚„ã£ã¦è¨ˆç®—ã—ã¦ã‚‹ã®ã‹ã¨ã€ãƒãƒƒã‚·ãƒ¥å€¤ãŒè¡çªã—ãŸã¨ãã«ã©ã†ã™ã‚‹ã®ã‹ã¨ã€ãƒãƒƒãƒ•ã‚¡ã®ã‚µã‚¤ã‚ºã‚’ã©ã†ã™ã‚‹ã®ã‹ã€‚ãªã®ã§ã„ãã¤ã‹ã®å‡¦ç†ç³»ã‚’調ã¹ã¦ã¿ãŸã€‚ Gauche ソースを'hash'ã§grepã—ãŸã‚‰ãれらã—ã„部分ãŒè¦‹ã¤ã‹ã£ãŸã€‚ /* General hash function */ u_long Scm_Hash(ScmObj obj) { u_long hashval; if (!SCM_PTRP(obj)) { SMALL_INT_HASH(hashval, (u_long)SCM_WORD(obj)); return hashval; } else if (SCM_NUMBERP(obj)) { return Scm_EqvHash(obj); } else if (SCM_STRINGP(obj
{{#tags}}- {{label}}
{{/tags}}